FCAP BASIC Pogram Example

------------------------------*------------------------------

REM ** EXAM_25.PRO **

REM Quad-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 ez a 9. 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"
ShowHgr
Classify
print "***":Print
print:print "2P Quadrant functions:"
print "2P QuadEventNum (1):";QuadEventNum ("All[FS,SS]",1)
print "2P QuadEventNum (UL):";QuadEventNum ("All[FS,SS]",UL)
print "2P QuadEventNum (2):";QuadEventNum ("All[FS,SS]",2)
print "2P QuadEventNum (UR):";QuadEventNum ("All[FS,SS]",UR)
print "2P QuadEventNum (3):";QuadEventNum ("All[FS,SS]",3)
print "2P QuadEventNum (LL):";QuadEventNum ("All[FS,SS]",LL)
print "2P QuadEventNum (4):";QuadEventNum ("All[FS,SS]",4)
print "2P QuadEventNum (LR):";QuadEventNum ("All[FS,SS]",LR)
print "2P QuadPercent (1):";QuadPercent ("All[FS,SS]",1)
print "2P QuqdPercent (2):";QuadPercent ("All[FS,SS]",2)
print "2P QuqdPercent (3):";QuadPercent ("All[FS,SS]",3)
print "2P QuqdPercent (4):";QuadPercent ("All[FS,SS]",4)
print "2P QuadMean (UL,Hor):";QuadMean ("All[FS,SS]",UR,Horizontal)
print "2P QuadMean (1,Hor):";QuadMean ("All[FS,SS]",1,Horizontal)
print "2P QuadMean (1,1):";QuadMean ("All[FS,SS]",1,1)
print "2P QuadMean (1,Ver):";QuadMean ("All[FS,SS]",1,Vertical)
print "2P QuadMean (1,2):";QuadMean ("All[FS,SS]",1,2)
print "2P QuadSD (1,Hor):";QuadSD ("All[FS,SS]",1,Horizontal)
print "2P QuadSD (1,1):";QuadSD ("All[FS,SS]",1,1)
print "2P QuadSD (1,Ver):";QuadSD ("All[FS,SS]",1,Vertical)
print "2P QuadSD (1,2):";QuadSD ("All[FS,SS]",1,2)
print "2P QuadGMean (1,Hor):";QuadGMean ("All[FS,SS]",1,Horizontal)
print "2P QuadGMean (1,1):";QuadGMean ("All[FS,SS]",1,1)
print "2P QuadGMean (1,Ver):";QuadGMean ("All[FS,SS]",1,Vertical)
print "2P QuadGMean (1,2):";QuadGMean ("All[FS,SS]",1,2)

print "2P QuadHMean (1,Hor):";QuadHMean ("All[FS,SS]",1,Horizontal)
print "2P QuadHMean (1,1):";QuadHMean ("All[FS,SS]",1,1)
print "2P QuadHMean (1,Ver):";QuadHMean ("All[FS,SS]",1,Vertical)
print "2P QuadHMean (1,2):";QuadHMean ("All[FS,SS]",1,2)

print "2P QuadMedian (1,Hor):";QuadMedian ("All[FS,SS]",1,Horizontal)
print "2P QuadMedian (1,1):";QuadMedian ("All[FS,SS]",1,1)
print "2P QuadMedian (1,Ver):";QuadMedian ("All[FS,SS]",1,Vertical)
print "2P QuadMedian (1,2):";QuadMedian ("All[FS,SS]",1,2)

print "2P QuadMode (1,Hor):";QuadMode ("All[FS,SS]",1,Horizontal)
print "2P QuadMode (1,1):";QuadMode ("All[FS,SS]",1,1)
print "2P QuadMode (1,Ver):";QuadMode ("All[FS,SS]",1,Vertical)
print "2P QuadMode (1,2):";QuadMode ("All[FS,SS]",1,2)




Click here to Download FCAP BASIC Examples

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

[------------------------------*------------------------------]

[SF Home Image]Soft Flow home page | List of Examples | Library of FCAP BASIC Applications


Last update on Friday, September 27, 1996