\START82\
\COMMENT=ECC,ECD,Moyenne et Mediane jcm 1999/2004
\NAME=EFFECT
\FILE=D:\WINLINK\SAV_JC~1\EFFECT.82P
:ClrHome
:Disp "EFFECT. CUMULES"
:Disp "  MOY. ET ME."
: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 "EFFECTIF CLASSES"
: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
:Disp "BORNES CLASSES"
:For(I,1,N)
:Output(4,11,"B")
:Output(4,12,I)
:B\->\C
:Input "= ",B
:B\->\\L6\(I)
:If I>1
:Then
:(B+C)/2\->\X
:X\->\\L2\(I-1)
:End
:End
:dim \L1\\->\J
:\L1\(1)\->\\L3\(1)
:For(I,2,J)
:\L3\(I-1)\->\K
:K+\L1\(I)\->\\L3\(I)
:End
:J\->\dim \L4\
:\L1\(J)\->\\L4\(J)
:For(I,1,J-1)
:\L4\(J-I+1)\->\K
:K+\L1\(J-I)\->\\L4\(J-I)
:End
:\L1\*\L2\\->\\L5\
:sum \L5\/sum \L1\\->\M
:Input "NB DECIMALES :",D
:Fix D
:ClrHome
:Disp "SOMME NI=",sum \L1\
:Disp "SOMME XINI",sum \L5\
:Disp "MOYENNE=",M
:Pause 
:sum \L1\/2\->\N
:1\->\I
:While \L3\(I)<N
:I+1\->\I
:End
:(N-\L3\(I-1))(\L6\(I+1)-\L6\(I))/(\L3\(I)-\L3\(I-1))+\L6\(I)\->\W
:ClrHome
:Disp "1/2 EFFECTIF=",N
:Disp "MEDIANE=",W
:Disp ""
:Disp "CF TABLEAUX"
:Float
:ClrList (\L6\)
\STOP82\
