\start83\
\comment=Programme fichier dat du 06/22/06, 20:20
\name=DIAGCIRC
\file=DIAGCIRC.TXT
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 (L\1\,L\2\,L\3\,L\4\,L\5\,L\6\)
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\->\L\1\(N)
End

sum(L\1\\->\S
For(I,1,N-1)
L\1\(I)*100/S\->\F
F\->\L\2\(I)
End

PlotsOff 
FnOff 
LabelOff
GridOff
AxesOff

Degree
0\->\Xmin
91\->\Xmax
0\->\Ymin
57\->\Ymax
ZSquare
L\2\*360/100\->\L\3\
Circle(45,30,25)
0\->\T
For(I,1,dim(L\1\)
Line(45,30,45+25cos(T),30+25sin(T)
T+12\->\U
Text(iPart(30-22sin(U)),iPart(45+22cos(U)),I)
L\3\(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"

\stop83\

