\start83\
\comment=Program file 06/16/09, 17:09
\name=MOYET
\file=C:\MYTIDATA\MOYET.TXT
ClrHome
Disp "    MOYENNE"
Disp "   ECART-TYPE"
Disp "    JCM 2009"
Disp "      ***
Disp " (APRES AVOIR"
Disp " QUITTE, TAPEZ"
Disp "STAT PUIS EDIT)"
Pause 
ClrHome
ClrList (L\1\,L\2\,L\3\,L\4\,L\5\,L\6\)
0\->\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
ClrHome
Menu("VARIABLE","CONTINUE",1,"DISCONTINUE",2)
ClrHome
Lbl 1
Disp "BORNES CLASSES :"
For(I,1,N)
Output(4,11,"B")
Output(4,12,I)
B\->\C
Input "= ",B
If I>1
Then
(B+C)/2\->\X
X\->\L\2\(I-1)
End
End
Goto 3
Lbl 2
Disp "CENTRES :"
For(I,1,N-1)
Output(4,11,"X")
Output(4,12,I)
Input "= ",X
X\->\L\2\(I)
End
Lbl 3
L\1\*L\2\\->\L\3\
sum(L\3\)/sum(L\1\\->\M
ClrHome
Input "NB DECIMALES :",D
Fix D
L\2\-M\->\L\4\
L\4\^2\->\L\5\
L\5\*L\1\\->\L\6\
ClrHome
Disp "SOMME NI",sum(L\1\)
Disp "SOMME XINI",sum(L\3\)
Disp "SOMME NI(XI-X)\^2\",sum(L\6\)
Pause 
ClrHome
Disp "MOYENNE : ",M
\root\((sum(L\6\)/sum(L\1\))\->\E
Disp "ECART TYPE : ",E
Disp ""
Disp " CF TABLEAUX"

\stop83\

