FCAP BASIC Pogram Example

REM ** EXAM_05.PRO **

REM 1P Gate-integrals

SetFileTypes ListModeFile, "FCLM", "TEXT", "SFWF"
SelectFile ListModeFile, "LM file (4 parameters)"

OpenLMFile "", "LM file (4 parameters)"
NewHgr 3, "All[FL1]" of All
NewGate "All[FL1]", "G1", Green, (0,199 )
NewGate "All[FL1]", "G2", Blue, (200,499 )
NewGate "All[FL1]", "G3", Magenta, (500,900 )
NewGate "All[FL1]", "G4", Cyan, (901,1023 )
NewGate "All[FL1]", "G5", Red, (200,900 )


Classify
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP



x1=GateEventNum ("All[FL1]", "G1")
x2=GateEventNum ("All[FL1]", "G2")
x3=GateEventNum ("All[FL1]", "G3")
x4=GateEventNum ("All[FL1]", "G4")
x5=GateEventNum ("All[FL1]", "G5")
Tot=HgrEventNum ("All[FL1]")
print "0-199: ";x1
print "200-499: ";x2
print "500-900: ";x3
print "901-1023: ";x4
x6=x2+x3
print "200-900: ";x5;" (";x6;")"
x7=x1+x2+x3+x4
print "HgrTot: ";Tot;" (";x7;")"

Click here to Download FCAP BASIC Examples

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