\START82\
\COMMENT=Diag Circ, F FCC et FCD jcm 08/2004
\NAME=DIAGCIRC
\FILE=D:\WINLINK\SAV_JC~1\DIAGCIRC.82P
:ClrHome
:Disp "DIAG CIRCULAIRE"
:Disp ""
:Disp "EFF FREQ ANGLE"
:Disp "  * JCM 2004 *"
:Disp " (APRES AVOIR"
:Disp " QUITTE, TAPEZ"
:Disp "STAT 1 OU GRAPH)"
:Pause 
:ClrHome
:ClrList (\L1\,\L2\,\L3\,\L4\,\L5\,\L6\)
:1\->\A
:0\->\N
:Disp "   EFFECTIFS"
:Disp "   (-1=FIN)"
:Fix 0
:While A\<>\\(-)\1
:N+1\->\N
:Output(4,11,"N")
:Output(4,12,N)
:Input "= ",A
:If A\<>\\(-)\1
:A\->\\L1\(N)
:End
:
:sum \L1\\->\S
:For(I,1,N-1)
:\L1\(I)*100/S\->\F
:F\->\\L2\(I)
:End
:
:PlotsOff 
:FnOff 
:LabelOff
:GridOff
:AxesOff
:
:Degree
:0\->\Xmin
:91\->\Xmax
:0\->\Ymin
:57\->\Ymax
:ZSquare
:\L2\*360/100\->\\L3\
:Circle(45,30,25)
:0\->\T
:For(I,1,dim \L1\)
:Line(45,30,45+25cos T,30+25sin T)
:T+12\->\U
:Text(iPart (30-22sin U),iPart (45+22cos U),I)
:\L3\(I)+T\->\T
:End
:Text(25,75,"0")
:ClrHome
:Input "NB DECIMALES :",D
:Fix D
:Disp ""
:Disp "TOTAL EFFECTIF=",S
:Disp "CF TABLEAUX"
:Disp "OU GRAPH"
\STOP82\
