\START82\
\COMMENT=Moyenne et Ecart Type  jcm 99/2004
\NAME=MOYET
\FILE=D:\WINLINK\SAV_JC~1\MOYET.82P
:ClrHome
:Disp "    MOYENNE"
:Disp "   ECART-TYPE"
:Disp "    JCM 2004"
:Disp "      ***
:Disp " (APRES AVOIR"
:Disp " QUITTE, TAPEZ"
:Disp "STAT PUIS EDIT)"
:Pause 
:ClrHome
:ClrList (\L1\,\L2\,\L3\,\L4\,\L5\,\L6\)
: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\->\\L1\(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\->\\L2\(I-1)
:End
:End
:Goto 3
:Lbl 2
:Disp "CLASSES :"
:For(I,1,N-1)
:Output(4,11,"X")
:Output(4,12,I)
:Input "= ",X
:X\->\\L2\(I)
:End
:Lbl 3
:\L1\*\L2\\->\\L3\
:sum \L3\/sum \L1\\->\M
:ClrHome
:Input "NB DECIMALES :",D
:Fix D
:\L2\-M\->\\L4\
:\L4\^2\->\\L5\
:\L5\*\L1\\->\\L6\
:ClrHome
:Disp "SOMME NI",sum \L1\
:Disp "SOMME XINI",sum \L3\
:Disp "SOMME NI(XI-X)\^2\",sum \L6\
:Pause 
:ClrHome
:Disp "MOYENNE : ",M
:\sqrt\(sum \L6\/sum \L1\)\->\E
:Disp "ECART TYPE : ",E
:Disp ""
:Disp " CF TABLEAUX"
\STOP82\
