Stat
J´ai fais un programme qui est une amélioration de celui de Webmaster. Il permet de calculer absolument tous ce qui est au programme de première S en statistiques et en probabilité, tout en corrigeant 3 problèmes de la TI-82 :
- Elle ne peut calculer que des effectifs entiers
- Elle ne peut calculer que des effectifs inférieurs à 100
- Sa définition des quartilles n´est plus valable.
Il est important de faire la différence entre les deux : les proba sont des nombres compris entre 0 et 1, alors que les effectifs en statistique sont des entiers naturels.
Le programme est donc divisé en deux parties : une partie statistique, où les effectifs doivent être entiers, et une partie probabilité où les probas peuvent-être soit des entiers ou non, et où ne sont affichées que les valeurs utiles aux probas.
Une aide est pré-intégrée au programme.
De plus, la liste L3 rajoutée lorsqu´on calcule les statistique est la liste des effectifs cumulés croissants.
| Code |
2->Z
ClrList L3
SortA (L1,L2)
Lbl 4
ClrHome
Menu (" PRB-STAT ", " STATISTIQUES ",2, " PROBABILITÉS ",1, " AIDE ",3
Lbl 1
1->Z
Lbl 2
Output (1,1, " n=
Sum L2->A
Output (1,3,A
Output (2,1, « [x barre]=
L1*L2 -> L3
Sum (L3)/A->B
Output (2,3,B
Output (3,1, " [sigma majuscule x]=E(X)=
Output (3,9,sum L3
Output (4,1, " [sigma majuscule x[carré]]=
Sum (L1[carré]*L2) -> C
Output (4,5,C
Output (5,1, " V(X)=
C/A-B[carré] -> D
Output (5,6,D
Otput (6,1, " [sigma minuscule x]=
Output (6,4,[racine de] D
Output (7,1, " minX=
Output (7,6,min(L1
Output (8,1, " maxX=
Output (8,6,max(L1
Pause
ClrHome
ClrList L3
If Z=1
Stop
L2(1) -> L3(1)
For (H,2,(dim L2
L3(H-1)+L2(H) -> L3(H)
End
0 -> E
For (H,1,dim L1
E+L2(H)*(abs (L1(H)-A) -> E
End
Output (1,1, " E.M=
Output (1,5,E/A
1 -> H
Repeat (A/4) [inférieur ou égal à] L3(H
H+1 -> H
End
Output (2,1, " Q1=
Output (2,4,L1(H
If fPart (A/2) = .5
Then
1 -> H
While ((A+1)/2) > L3(H
H+1 -> H
End
L1(H) -> E
Else
1 -> H
While (A/2) > L3(H
H+1 -> H
End
L1(H) -> E
1 -> H
While (A/2+1) > L3(H
H+1 -> H
End
L1(H -> F
(E+F)/2 -> E
End
Output (3,1, " Med=
Output (3,5,E
1 -> H
Repeat (3A/4) [inférieur ou égal à] L3(H)
H+1 -> H
End
Output (4,1, " Q3=
Output (4,4,L1(H)
Output (5,1, " E.=
Output (5,4,max(L1)-min(L1
Output (6,1," MOD=
Max(L2) -> F
1 -> G
For (H,1,dim L2
If L2(H) = F
Then
L1(H) -> L4(G
G+1->G
End
End
Output (6,5,L4
ClrList L4
Pause
ClrHome
Stop
Lbl 3
Output (1,1, « STAT :
Output (3,1, « METTRE LES VALEURS DU CARACTERE DANS L1, ET LES EFFECTIFS DANS L2.
Pause
ClrHome
Output (1,1, « PROBA
Output ( 3,1, « METTRE L´ENSEMBLE DES VARIABLES ALEATOIRES DANS L1, ET LES PROBAS DANS L2.
Pause
ClrHome
Output (1,1, « E(x)=ESPERANCE
Output (2,1, « V(X)=VARIANCE
Output (3,1, « E.M=ECART MOYEN
Output (4,1, « E.=ETANDUE
Pause
Goto 4
|
P.S : Pour avoir tout ce qui est sigma ou x barre, etc, c'est dans [Vars]+[5]
----------------------
Vive la programmation et vive le vibraphone !!! |
