Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Stat
Auteur Message
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Lun 04 Jui 2007, 11:08   Citer 

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 !!!
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa