Forum

Catégorie : Support
Forum : TI-82 STATS
Vues : 2900
Réponses : 14
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Creation de programme

Alahyane92i le 30/09/2011 à 22:48
Bonjour je suis nouveau aussi les seuls choses que je sait faire c'est d'écrire un programme sur TI-82 stat et enfaite j'aimerai que quelqu'un me trouve ou me fassent un programme sur le theroeme de thales niveau 3eme qui marche merci a la personne qui le fera.
sandro le 30/09/2011 à 23:38
En voici un que j'ai fait il y a un bout de temps (attention, je ne l'ai pas retesté, mais je crois bien qu'il fonctionnait) :
Code
ClrDraw
FnOff
PlotsOff
GridOff
AxesOff
0 -> Xmin
94 -> Xmax
0 -> Ymax
-62 -> Ymin
-9 -> X
Menu("CONFIGURATION","STANDART",S,"CROISE",C
Lbl S
Line(48,-7,7,-57
Line(48,-7,88,-57
Line(7,-57,88,-57
Line(28,-32,67,-32
Text(0,47,"A
Text(29,22,"D
Text(29,72,"E
Text(55,4,"B
Text(55,90,"C
Pause
Goto 5
Lbl C
Line(30,-5,80,-55
Line(55,-5,15,-55
Line(30,-5,55,-5
Line(80,-55,15,-55
Text(16,37,"A
Text(50,11,"B
Text(50,82,"C
Text(2,56,"D
Text(2,25,"E
Pause
Lbl 5
Menu("JE CHERCHE","UNE LONGUEUR",L,"SI PARALLELE",P
Lbl L
ClrHome
Disp "","","","","
Output(3,1,"AD AE DC
Output(4,1,"--=--=--
Output(5,1,"AB AC DC
Output(1,1,"SI CHERCHE:'X'
Output(2,1,"SI IGNORE:'0'
Input "AB:",A
Input "AC:",B
Input "AD:",C
Input "AE:",D
Input "DE:",E
Input "BC:",F
ClrHome
If A=-9
Then
If DB
Then
Disp "AB=",CB/D>Frac
Else
Disp "AB=",CF/E>Frac
End
End
If B=-9
Then
If CA
Then
Disp "AC=",DA/C>Frac
Else
Disp "AC=",DF/E>Frac
End
End
If C=-9
Then
If DB
Then
Disp "AD=",AD/B>Frac
Else
Disp "AD=",AE/F>Frac
End
End
If D=-9
Then
If CA
Then
Disp "AE=",BC/A>Frac
Else
Disp "AE=",BE/F>Frac
End
End
If E=-9
Then
If DB
Then
Disp "DE=",FD/B>Frac
Else
Disp "DE=",FC/A>Frac
End
End
If F=-9
Then
If DB
Then
Disp "BC=",EB/D>Frac
Else
Disp "BC=",EA/C>Frac
End
End
Goto Q
Lbl P
Input "AB:",A
Input "AC:",B
Input "AD:",C
Input "AE:",D
Input "DE:",E
Input "BC:",F
If DA=BC or DF=BE or CF=AE
Then
Disp "(DE) PARAL (BC)
Else
Disp "NON PARALLELE
End
Pause
Lbl Q
ClrDraw
FnOn 
AxesOn
zStandart


Sandro

PS : si tu ne trouve pas une fonction, cherche dans le catalogue.
Alahyane92i le 01/10/2011 à 10:55
Merci mec je vais ecrire et tester sa tout de suite.
Alahyane92i le 01/10/2011 à 12:29
Enfaite ton programme ne me dit rien il me fait un triangle sur le graph et c'est tout il ne me dit pas combien fait la longueur chercher.Et le graphique est toujours le meme.Et tu peut me passer tout tes progrmmes en ralations avec la 3eme stpl?
sandro le 01/10/2011 à 12:52
Non, une fois que tu as affiché le graph (qui sert juste à définir les points (ça change si un point est au sommet ou au milieux)), tu fait enter puis tu entre tes lmongueurs et le programme te répond par la longueur marquée par X.

Sandro
Alahyane92i le 01/10/2011 à 12:53
Ok jvai essyae et tu peut me passer tout tes progrmmes en ralations avec la 3eme stpl?Et serieusement je comprend pas la formule genre AD/AB=AE/AC=DC/DC
sandro le 01/10/2011 à 13:00
C'est la forme générale du théorème de thales : les lettres sont les points, il s'agit donc des distances (AD est la longueur du segment AD).

EDIT : voici pour le théorème de pytagore:
Code
Menu("JE CHERCHE","L'HYPOTHENUSE",1,"UN AUTRE COTE",2,"SI RECTANGLE",3
Lbl 1
Input "1ER COTE ANGLE",A
Input "2EME COTE ANGLE",B
Disp "HYPOTHENUSE",racine(A²+B²
Stop
Lbl 2
Input "COTE CONNU",A
Input "HYPOTHENUSE",B
Disp "3° COTE",racine(B²-A²
Stop
Lbl 3
Input "1ER COTE",A
Input "2° COTE",B
Input "HYPOTHENUSE",C
If A²+B²=C²
Then
Disp "RECTANGLE
Else
Disp "NON RECTANGLE
Lbl Q


NB : racine( représent le simbole racine carrée et ° se trouve dans le menu angle
Alahyane92i le 01/10/2011 à 13:02
Ah ok merci et sinon ta d'autres programme pour les troisieme et tu peut mpasser ton msn pou quon puissent mieux discuter?
sandro le 01/10/2011 à 13:05
J'ai pas MSN, mais si tu veut il y a le chat du site : http://tchat-tout82.webuda.com/

EDIT : un programme d'aires
Code
Lbl 0
Menu("QUEL IRE?","TRAPEZE",A,"DISQUE",B,"TRIANGLE",C,"PARALELLOGRAMME",D,"QUITTER",E
Lbl A
Input "PETITE BASE?",B
Input "GRANDE BASE?",C
Input "HAUTEUR?",H
Disp "AIRE DU TRAPEZE:",.5H(B+C
Pause
ClrHome
Goto 0
Lbl B
Menu("CERCLE:","AIRE?",AA,"PERIMETRE?",AB,"RETOUR",0
Lbl AA
Input "RAYON?",R
Disp "AIRE DU DISQUE:",piR²
Pause
ClrHome
Goto B
Lbl AB
Input "RAYON?",A
Disp "PERIMETRE:",2piA
Pause
Goto B
Lbl C
Input "BASE?",B
Input "HAUTEUR?",H
Disp "AIRE TRIANGLE",.5BH
Pause
ClrHome
Goto 0
Lbl D
Input "BASE?",B
Input "HAUTEUR?",H
Disp "AIRE"," PARALELLOGRAMME",BH
Pause
Goto 0
Lbl E
Alahyane92i le 01/10/2011 à 13:06
Tinquiete j'ai deja fait phytagore en 4eme
sandro le 01/10/2011 à 13:22
Volumes:
Code
Lbl 0
Menu("QUEL VOLUME?","PRISME DROIT",A,"PYRAMIDE",B,"CYLINDRE REVOLUTION",C,"CONE DE REVOLUTION",D,"SPHERE",E,"PAVE",F,"QUITTER",G
Pause
Goto 0
Lbl A
Input "BASE?",B
Input "HAUTEUR?",H
Disp "VOLUME PRISME",BH
Pause
Goto 0
Lbl B
Input "BASE? ",Z
Input "HAUTEUR? ",Y
Disp "VOLUME PYRAMIDE",ZY/3
Pause
Goto 0
Lbl C
Input "RAYON? ",X
Input "HAUTEUR? ",W
Disp "VOLUME CYLINDRE",XWÄ
Pause
Goto 0
Lbl D
Input "HAUTEUR?",A
Input "RAYON?",R
Disp "VOLUME CONE",pi*R^3*H/3
Pause
Goto 0
Lbl E
Input "RAYON",F
Disp "VOLUME SPHERE",4piF^3*F/3
Pause
Goto 0
Lbl F
Input "LONGUEUR",A
Input "LARGEUR",B
Input "HAUTEUR",C
Disp "VOLUME PAVE",ABC
Pause
Goto 0
Lbl G


EDIT: système de 2 équations à 2 inconues
Code
Disp "AX+BY=C
Disp "DX+EY=F
Prompt A,B,C,D,E,F
If (A/D=B/E)(B/E=C/F)(C/F=A/D)=1
Then
Disp "IL Y A UNE INFI","NITE DE SOLUT","IONS:DX+EY=F
Else
DA -> G
DB -> J
DC -> K
AE -> H
AF -> I
If J-H différend de 0
Then
(K-I)/(J-H) -> Y
(C-BY)/A -> X
Disp "X=",X
Disp "Y=",Y
Alahyane92i le 01/10/2011 à 13:36
Ta pas un programme pour les statistique et les propabilite?
sandro le 01/10/2011 à 14:21
Code
Lbl U
Disp "NE PAS ENTRER LE","S CLASSES VIDES
Disp "VALEUR EN ORDRE
Input "CROISSANT",L1
Input "EFFECTIFS",L2
For(C,1,dim(L2
If not(L2
(C
Then
Disp "CLASSE VIDE
Goto U
End
End
cumSum(L2 -> L4
sum(L2 -> E
Lbl T
Disp "EFFECTIF TOTAL",E
Pause
Disp "MOYENNE:",sum(L1*L2)/sum(L2
Pause
min(L1 -> I
Disp "minX=",I
Pause
.1sum(L1 -> B
For(C,1,dim(L2
If B<=L4(C
Goto A
End
Lbl A
L1(C -> J
Disp "DECILE 1 =",J
Pause
.2sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto B
End
Lbl B
L1(C -> K
Disp "DECILE 2 =",K
Pause
.25sum(L1 -> B
For(C,1,dim(L2
If B<=L4(C
Goto C
End
Lbl C
L1(C -> L
Disp "Q1=",L
Pause
.3sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto D
End
Lbl D
L1(C -> M
Disp "DECILE 3 =",M
Pause
.4sum(L1 -> B
For(C,1,dim(L1
If B<=(C
Goto E
End
Lbl E
L1(C -> N
Disp "DECILE 4 =",N
Pause
If fPart(E/2
Then
For(C,1,dim(L2
If sum(L2)/2+.5<=L4(C
Then
Goto F
End
End
Lbl F
L1(C -> O
Disp "Med=",O
Goto théta
End
If not(fPart(E/2
Then
For(C,1,dim(L2
If sum(L2)/2-.5<=L4(C
Goto G
End
End
Lbl G
L1(C -> X
For(C,1,dim(L2
If sum(L2)/2+.5<=L4(C
Goto H
End
Lbl H
.5(X+L1(C -> O
Disp "Med =",O
Lbl théta
Pause
.6sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto I
End
Lbl I
L1(C -> P
Disp "DECILE 6 =",P
Pause
.7sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto J
End
Lbl J
L1(C -> Q
Disp "DECILE 7 =",Q
Pause
.75sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto K
End
Lbl K
L1(C -> R
Disp "Q3=",R
Pause
.8sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto L
End
Lbl L
L1(C -> S
Disp "DECILE 8 =",S
Pause
.9sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto M
End
Lbl M
L4(C -> T
Disp "DECILE 9 =",T
Pause
max(L1 -> U
Disp "maxX",U
Pause
Disp "ECART INTER QUAR","TILE",R-L
Pause
Disp "ETENDUE",max(L1)-min(L1
Pause
Menu("CHOISIR","RELIRE",T,"AUTRES VALEURS",U,"BOITE A MOUSTACH",V,"QUITTER",Q
Lbl V
ClrDraw
FnOff
PlotsOff
GridOff
AxesOn
.1(U-I -> Xscl
I-.1(U-I -> Xmin
1.02U -> Xmax
62 -> Ymax
0 -> Ymin
Pt-On(I,32
Pt-On(U,32
Line(L,51,L,11
Line(O,53,O,9
Line(R,51,R,11
Line(L,51,R,51
Line(L,11,R,11
Line(J,32,T,32
Lbl M3
Line(J,40,J,24
Line(T,40,T,24
Lbl Q
Pause
linkakro le 01/10/2011 à 20:28
Le programme de stat n'est pas indispensable car la calculatrice sait faire tout ça.
Mais je crois me souvenir que tu as prétendu (à raison ?) que la définition américaine des quartiles etc est différente de la nôtre...

Je ne retrouve pas mon programme le plus efficace pour les systèmes, alors je ressort celui de sandro :
Il résoud TOUS les systèmes à une solution.
Code
:Input "NB D'EQ/DE VARS:",N
:{N,N+1 -> dim([A]

:For(A,1,N
:For(B,1,N
:ClrHome
:Output(1,1,"EQ N°
:Output(1,6,A
:Output(2,1,"+VAR N°  *
:Output(2,8,B
:Disp "","
:Input "",C
:C -> [A](A,B
:End
:ClrHome
:Input "=",C
:C -> [A](A,N+1
:End
:Gauss-Jordan([A] -> [A]
:For(A,1,N
:ClrHome
:Output(1,1,"VAR N°  =
:Output(1,8,A
:Output(1,10,[A](A,N+1
:Pause
:End
:DelVar [A] ClrHome
sandro le 01/10/2011 à 21:23
Oui, mais au niveau troisème (où on n'a pas besoin de plus de 2 équations à 2 inconus), ce programme est un peu plus compliqué (var1 et var2 c'est moins parlant que X et Y).

Sinon, effectivement il y a des différences de définition des quartiles et decilles entre france et USA:
en france, on prend la première valeur telle que 10%,20%,25%,30%,[...] des elements soit inférieur ou égal. En revanche, aux USA, si ce n'est pas une valeur réelle, on utilise des moyennes à coefficients (comme pour la médiane sauf évantuellement avec coeficients si c'est pas au milieu).

Sandro

PS : merci quand même
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.