voilà un prog qui se vend bien aux gens qui ne savent pas faire des stats avec leur TI:
en gros:
Stats 1 variable: ça écrit explicitement la moyenne, la médiane etc...
Stats 2 Variables : ça trace le graphique, fait la régression linéaire, et affiche les coordonnées du point moyen (point G)
(le 1er qui fait un jeu de mot débile à ce suget est un imbécile.)
aux endroits ou j'écrits entre crochets, c'est la suite de touches a effectuer pour avoir le caractère spécial a insérer dans le programme.
| Code |
:EffEcr
:Menu(" STATISTIQUES: ","1VARIABLE+EFFS",1,"1VARIABLE SER.",2,"2 VARIABLES",3
:Lbl 1
:Input "CARACTERE: ",L1
:Input "EFFECTIFS: ",L2
:Stats 1-Var L1,L2
:Goto 0
:Lbl 2
:Input "SERIE: ",L1
:Stats 1-Var L1
:Lbl 0
:FonctNAff
:AxesNAff
:EffDessin
:Texte(0,0,"MOYENNE = ",[var][5][2] ///le symbole est un x sous une barre
:Texte(6,0,"EFFECTIF TOTAL = ",[var][5][1] ///le symbole est un petit n
:Texte(12,0,"MEDIANE = ",[var][5][<][8] ///le symbole est Med
:Texte(18,0,"1ER QUARTILE = ",[var][5][<][7] ///le symbole est Q1
:Texte(24,0,"3e QUARTILE = ",[var][5][<][9] ///le symbole est Q3
:Texte(30,0,"ECART-TYPE = ",[var][5][4] ///le symbole est "sigma"x
:Texte(36,0,"VARIANCE = ",[var][5][4][x²] ///le même symbole mais au carré
:AffGraph
:Stop
:Lbl 3
:Input "CARACTERE 1: ",L1
:Input "CARACTERE 2: ",L2
:Stats 2-Var L1,L2
:Graph1(Nuage,L1,L2,[2nd][f(x)][<][2] ///le symbole est une petite croix
:ZoomStat
:AxesAff
:CorrelAff
:RegLin(ax+b) L1,L2
:DessFonct [var][5][>][>][2][X,T,@,n][+][var][5][>][>][3] ///ça devrait écrire: DessFonct aX+b
maintenant vous savez faire le petit a et le petit b
:If b=0:Texte(0,0,"Y=",a,"X
:If b>0:Texte(0,0,"Y=",a,"X+",b
:If b<0:Texte(0,0,"Y=",a,"X",b
:Pt-On("x sous une barre", "y sous une barre" ,2
c'est le même x barre que tout a l'heure, et le y il devrait pas être loin du x
:Texte(10,0,"G(",x sous une barre,",",y sous une barre,")"
:ExpNAff
:Trace
|
|
