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
programme stats
Auteur Message
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 02 Nov 2010, 15:43   Citer 

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



 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