FCAP BASIC Pogram Example

REM ** EXAM_02.PRO **

REM 1P & 2P Histogram and Gate Stat functions

SetFileTypes ListModeFile, "FCLM", "TEXT", "SFWF"
SelectFile ListModeFile, "LM file, 4 parameters"
OpenLMFile "",  "LM file, 4 parameters""
NewHgr 1, 2, "All[FS,SS]" of All
NewHgr 1, "All[FS]" of All
ShowHgr "All[FS]", 0.7, 5.3, 49.2, 49.2, LP
ShowHgr "All[FS,SS]", 50.5, 5.3, 49.2, 49.2, MD
NewGate "All[FS,SS]", "G1", Red, ( 195,124; 217,19; 589,27; 597,108; 336,165; 195,124 )
rem 10. sor
NewGate "All[FS,SS]", "G2", Green, ( 301,200; 583,124; 619,100; 793,108; 869,404; 529,554; 252,407; 301,200 )
SetQuadrant "All[FS,SS]", 654, 143
NewGate "All[FS]", "G1", Red, (225,437 )
GateOff "All[FS]", "G1"
Classify
print "***":Print:print "1P Hgr functions:"
print "1P HgrEventNum:";HgrEventNum ("All[FS]")
print "1P HgrPercent:";HgrPercent ("All[FS]")
print "1P HgrMean (FS):";HgrMean ("All[FS]")
print "1P HgrSD:";HgrSD ("All[FS]")
print "1P HgrHMean (FS):";HgrHMean ("All[FS]")
print "1P HgrGMean (FS):";HgrGMean ("All[FS]")
print "1P HgrMode:";HgrMode ("All[FS]")
print "1P HgrMedian:";HgrMedian ("All[FS]")
print "1P HgrKurtosis:";HgrKurtosis ("All[FS]")
print "1P HgrSkewness:";HgrSkewness ("All[FS]")
print "1P HgrTMean (FS, 2.5%):";HgrTMean ("All[FS]",2.5,2.5)
print "1P HgrTSD (2.5%):";HgrTSD ("All[FS]",2.5,2.5)
print "1P HgrTMean (FS, 25%):";HgrTMean ("All[FS]",25,25)
print "1P HgrTSD (2.5%):";HgrTSD ("All[FS]",25,25)

print:print "1P Gate functions:"
print "1P GateEventNum:";GateEventNum ("All[FS]","G1")
print "1P GatePercent:";GatePercent ("All[FS]","G1")
print "1P GateMean (FS):";GateMean ("All[FS]","G1")
print "1P GateSD:";GateSD ("All[FS]","G1")
print "1P GateHMean (FS):";GateHMean ("All[FS]","G1")
print "1P GateGMean (FS):";GateGMean ("All[FS]","G1")
print "1P GateMode:";GateMode ("All[FS]","G1")
print "1P GateMedian:";GateMedian ("All[FS]","G1")


print:print "2P Hgr functions:"
print "2P HgrEventNum:";HgrEventNum ("All[FS,SS]")
print "2P HgrPercent:";HgrPercent ("All[FS,SS]")
print "2P HgrMean (1):";HgrMean ("All[FS,SS]",1)
print "2P HgrSD (1):";HgrSD ("All[FS,SS]",1)
print "2P HgrMean (Vert):";HgrMean ("All[FS,SS]",Vertical)
print "2P HgrSD (Vert):";HgrSD ("All[FS,SS]",Vertical)
print "2P HgrGMean (1):";HgrGMean ("All[FS,SS]",1)
print "2P HgrGMean (Vert):";HgrGMean ("All[FS,SS]",Vertical)
print "2P HgrHMean (1):";HgrHMean ("All[FS,SS]",1)
print "2P HgrHMean (Vert):";HgrHMean ("All[FS,SS]",Vertical)
print "2P HgrMode (1):";HgrMode ("All[FS,SS]",1)
print "2P HgrMode (Vert):";HgrMode ("All[FS,SS]",Vertical)
print "2P HgrMedian (1):";HgrMedian ("All[FS,SS]",1)
print "2P HgrMedian (Vert):";HgrMedian ("All[FS,SS]",Vertical)
print "2P HgrSkewness (Hor):";HgrSkewness ("All[FS,SS]",Horizontal)
print "2P HgrSkewness (2):";HgrSkewness ("All[FS,SS]",2)
print "2P HgrKurtosis (Hor):";HgrKurtosis ("All[FS,SS]",Horizontal)
print "2P HgrKurtosis (2):";HgrKurtosis ("All[FS,SS]",2)
print "2P HgrTMean (FS, 2.5%):";HgrTMean ("All[FS,SS]",1,2.5,2.5)
print "2P HgrTSD (2.5%):";HgrTSD ("All[FS,SS]",1,2.5,2.5)
print "2P HgrTMean (FS, 2.5%):";HgrTMean ("All[FS,SS]",2,2.5,2.5)
print "2P HgrTSD (2.5%):";HgrTSD ("All[FS,SS]",2,2.5,2.5)

print:print "2P Gate functions:"
print "2P GateEventNum:";GateEventNum ("All[FS,SS]", "G2")
print "2P GatePercent:";GatePercent ("All[FS,SS]", "G2")
print "2P GateMean (Hor):";GateMean ("All[FS,SS]", "G2",Horizontal)
print "2P GateMean (1):";GateMean ("All[FS,SS]", "G2",1)
print "2P GateSD (1):";GateSD ("All[FS,SS]", "G2",1)
print "2P GateMean (Ver):";GateMean ("All[FS,SS]", "G2",Vertical)
print "2P GateMean (2):";GateMean ("All[FS,SS]", "G2",2)
print "2P GateSD (Ver):";GateSD ("All[FS,SS]", "G2",Vertical)
print "2P GateGMean (Hor):";GateGMean ("All[FS,SS]", "G2",Horizontal)
print "2P GateGMean (1):";GateGMean ("All[FS,SS]", "G2",1)
print "2P GateGMean (2):";GateGMean ("All[FS,SS]", "G2",2)
print "2P GateHMean (1):";GateHMean ("All[FS,SS]", "G2",1)
print "2P GateHMean (2):";GateHMean ("All[FS,SS]", "G2",2)
print "2P GateMedian (Hor):";GateMedian ("All[FS,SS]", "G2",Horizontal)
print "2P GateMedian (Ver):";GateMedian ("All[FS,SS]", "G2",Vertical)
print "2P GateMedian (2):";GateMedian ("All[FS,SS]", "G2",2)
print "2P GateMode (1):";GateMode ("All[FS,SS]", "G2",1)
print "2P GateMode (2):";GateMode ("All[FS,SS]", "G2",2)
print "End or Proj2 printing"

Click here to Download FCAP BASIC Examples

Click here to Copy FCAP BASIC Examples from this CD-ROM