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
Vecteur
Auteur Message
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 17 Mai 2011, 21:10   Citer 

Voila, ça fais 3 semaine que je fais les Vecteur en cour et j'ai eu envie de faire un ptit programme vite fais bien fais ! le meilleur selon moi héhé happy.gif


Code

:"progrm:VECTEURS   >by UGO<
Lbl 0
EffDessin
FonctNAff
AxesNAff
0üXmin
0üYmin
94üXmax
62üYmax
EffEcr
EffDessin
QuadNAff
GraphNAff
PleinEcr
Ligne(80,8,94,8
Texte(55,83,"UGO
Ligne(70,0,94,0
Ligne(70,50,83,50
Texte(13,71,"by
Ligne(70,42,94,42
Texte(1,18,"vecteur
Ligne(2,61,66,61
Ligne(67,60,67,3
Ligne(2,2,66,2
Ligne(1,3,1,60
Ligne(2,54,66,54
For(X,0,6
Texte(7X+9,6,sous-Cha ne("coord.vecteur     AB = (X,Y), B = ? xAB +/- yAC       colinearite                                           quit              ",18X+1,18
End
EffVar X
codeTouch(üK
Repeat max(Rep={105
If Rep
Then
If Rep=25 ou Rep=34
Then
Ligne(3,52-7X,3,47-7X,0
Ligne(65,52-7X,65,47-7X,0
X+(Rep=34)-(Rep=25
Rep+7((Rep<0)-(Rep>6üX
End
End
Ligne(3,52-7X,3,47-7X
Ligne(65,52-7X,65,47-7X
codeTouch(
End
If non(X
Then
Goto 1
End
If X=1
Goto 2
If X=2
Goto 3
If X=3
Goto 15
If X=4
Goto 0
If X=5
Goto 0
If X=6
Goto 70
Lbl 1
EffEcr
Menu(" COORD. VECTEUR ","Coord. Vecteur",6,"3Pts -> 4ë Pts",5,"MENU",7
Lbl 7
Goto 0
Lbl 5
EffDessin
Ligne(0,60,6,60
Ligne(5,59,5,61
Texte(3,0,"AB = (X,Y)
Texte(9,0,"C = (XC,YC)
Texte(54,53,"B
Texte(23,24,"A
Pt-Aff(30,35,3
Pt-Aff(60,5,3
Ligne(30,35,60,5
Pt-Aff(75,10,3
Texte(51,78,"C
Pause
EffEcr
Disp "Vect. AB (X,Y)
Input "X=",A
Input "Y=",B
Disp "
Disp "Point C=
Input "XC=",C
Input "YC=",D
EffEcr
EffDessin
Texte(0,0,"COOR.DE D TEL QUE 'AB DC'
Texte(6,0,"SOIT UN PARALLELOGRAMME:
Texte(15,0,"AB = (",A," : ",B,")     POINT C = (",C," : ",D,")
Texte(21,0,"ABDC = PARA, DONC AB=DC
Texte(30,0,"CD = (XD-XC : YD-YC)
Texte(36,0,"CD = (XD-",C," : YD-",D,")
Texte(43,0,"AB=DC <=>
A+CüE
B+DüF
Texte(49,0," ",A,"= XD-",C
Texte(49,40,"XD= ",A," + ",C," = ",E
Texte(55,0," ",B,"= YD-",D
Texte(55,40,"YD= ",B," + ",D," = ",F
Pause
EffDessin
Goto 1
Lbl 6
EffEcr
Disp "    A(XA,YA)
Disp "    B(XB,YB)
Disp "
Input "XA=",A
Input "YA=",B
Input "XB=",C
Input "YB=",D
C-AüE
D-BüF
EffEcr
EffDessin
Texte(0,0,"COORDONNE VECTEUR"
Texte(7,5,"A(",A," : ",B,")
Texte(13,5,"B(",C," : ",D,")
Texte(24,0,"AB = (XB-XA : YB-YA)
Texte(30,0,"AB = (",C,"-",A," : ",D,"-",B,")
Texte(43,0,"AB = (",E," : ",F,")
Ligne(0,39,6,39
Ligne(5,38,5,40
Ligne(0,20,6,20
Ligne(5,19,5,21
Pause
EffDessin
Goto 1
Lbl 2
EffEcr
Disp "Vecteur AB:
Disp "Point A:
Input "XA=",A
Input "YA=",B
Disp "
Disp "Coordonnee AB=
Input "X=",C
Input "Y=",D
EffEcr
EffDessin
Texte(0,0,"VECTEUR AB :
Texte(6,0,"COORDONNE VECTEUR= (",C," : ",D,")
Texte(12,0,"POINT A= (",A," : ",B,")
Texte(20,0,"XB-XA = ",C,"   
Texte(26,0,"YB-YA = ",D
Texte(20,50,"XB-",A," = ",C
Texte(26,50,"YB-",B," = ",D
C+AüE
D+BüF
Texte(34,0," ",C," + ",A," = ",E
Texte(40,0," ",D," + ",B," = ",F
Texte(50,20,"B = (",E," : ",F,")
Pause
EffDessin
Goto 0
Lbl 3
EffEcr
Menu("  xAB +/- yAC   ","AM=xAB +/- yAC",8,"AC= xAJ (J=?)",19,"MENU",10
Lbl 19
EffEcr
Disp "AC = xAJ (J=?)
Input "AJ*",E
Disp "vecteur AC pts:
Input "XA=",A
Input "YA=",B
Disp ""
Input "XC=",C
Input "YC=",D
EffEcr
EffDessin
Texte(0,0,"VECTEUR  AC  =  ",E,"AJ
Texte(6,0,"points =   A(",A," : ",B,")      C(",C," : ",D,")
Texte(14,0,"X:   ",C," - ",A,"  =  ",E,"(XJ - ",A,")
Texte(20,0,"Y:   ",D," - ",B,"  =  ",E,"(YJ - ",B,")
C-AüG
D-BüH
E*AüI
E*BüJ
G+IüO
H+JüP
Texte(27,0,"X:   ",G,"  =  ",E,"XJ - ",I
Texte(33,0,"Y:   ",H,"  =  ",E,"YJ - ",J
Texte(40,0,"X:   ",G," + ",I,"  =  ",E,"XJ
Texte(46,0,"Y:   ",H," + ",J,"  =  ",E,"YJ
Texte(55,0,"  J  ( [",O," / ",E,"]  :  [",P," / ",E,"] )
Pause
EffDessin
Goto 3
Lbl 10
EffEcr
Goto 0
Lbl 8
EffEcr
Disp "AM =xAB + yAC"
Input "xAB= AB*",P
Input "yAC= AC*",E
Disp "Vecteur AB=
Input "X=",A
Input "Y=",B
Disp "Vecteur AC=
Input "X=",C
Input "Y=",D
EffEcr
EffDessin
Texte(0,0,"CALCULE DE     AM = ",P,"AB + ",E,"AC
Texte(8,0,"VECTEUR AB = (",A," : ",B,")
Texte(14,0,"VECTEUR AC = (",C," : ",D,")
E*CüF
E*DüG
P*AüQ
P*BüR
Texte(23,0," ",P,"AB  =  (",P,"*",A," : ",P,"*",B,")  = (",Q," : ",R,")
Texte(29,0," ",E,"AC  =  (",E,"*",C," : ",E,"*",D,")  = (",F," : ",G,")
Ligne(1,40,11,40
Ligne(10,39,10,41
Q+FüH
R+GüI
Texte(38,0,P,"AB + ",E,"AC  =  (",Q,"+",F," : ",R,"+",G,")
Texte(44,0,P,"AB + ",E,"AC  =  (",H," : ",I,")
Texte(54,0,"VECTEUR  AM  =  (",H," : ",I,")
Ligne(30,9,36,9
Ligne(35,8,35,10
Pause
EffDessin
Goto 3
Lbl 15
EffEcr
Menu("  COLINEARITE   ","Coli/AIign Pts",16,"Parallelisme",17,"MENU",18
Lbl 18
EffEcr
Goto 0
Lbl 16
EffDessin
Ligne(0,60,6,60
Ligne(5,59,5,61
Texte(3,0,"AB = (X,Y)
Texte(9,0,"AC = (X,Y)
Pt-Aff(30,35,3
Pt-Aff(60,5,3
Pt-Aff(49,16,3
Ligne(30,35,60,5
Texte(23,34,"A
Texte(52,63,"C
Texte(38,51,"B
Texte(40,0,"ALIGN-
Texte(46,0,"-EMENT DE
Texte(52,0,"A - B - C

Pause
EffEcr
Disp "Vecteur AB=
Input "X=",A
Input "Y=",B
Disp "
Disp "Vecteur AC=
Input "X=",C
Input "Y=",D
EffEcr
EffDessin
Texte(0,0,"COLI/ALIGN. DE   A - B - C
Texte(9,0,"VECTEUR AB = (",A," : ",B,")
Texte(15,0,"VECTEUR AC = (",C," : ",D,")
Texte(23,0,"TABLEAU DE PRPORTIONALIT:
Texte(31,2,A
Texte(31,12,C
Texte(40,2,B
Texte(40,12,D
Ligne(0,15,0,32
Ligne(0,32,20,32
Ligne(20,32,20,15
Ligne(20,15,0,15
Ligne(0,24,20,24
Ligne(10,32,10,15
A*DüE
C*BüF
Texte(31,22,"(",A," * ",D,") = ",E
Texte(38,22,"(",C," * ",B,") = ",F
Ligne(0,12,6,12
Ligne(5,11,5,13
Ligne(18,12,24,12
Ligne(23,11,23,13
If E=F
Then
Texte(51,0,"AB ET AC SONT COLINEAIRE
Texte(57,0,"ET A - B - C SONT ALIGNEE.
End
If EøF
Then
Texte(51,0,"AB ET AC NE SONT PAS
Texte(57,0,"COLINEAIRE,  NI  ALIGNEE.
End
Pause
EffDessin
Goto 15
Lbl 17
EffDessin
Ligne(0,60,6,60
Ligne(5,59,5,61
Texte(3,0,"AB = (X,Y)
Texte(9,0,"DC = (X,Y)
Pt-Aff(30,35,3
Pt-Aff(60,5,3
Texte(23,34,"A
Texte(52,63,"B
Ligne(30,35,60,5


Texte(40,0,"PARAL-
Texte(46,0,"-LELISM
Texte(52,0,"DE AB, DC
Pt-Aff(45,40,3
Pt-Aff(65,20,3
Ligne(45,40,65,20
Texte(16,48,"D
Texte(40,68,"C
Pause
EffEcr
Disp "Paralelism Entre
Disp "Vecteurs AB,DC:
Disp "Vecteur AB=
Input "X=",A
Input "Y=",B
Disp "Vecteur DC=
Input "X=",C
Input "Y=",D
EffEcr
EffDessin
Texte(0,0,"PARLELISM ENTRE VECT AB,DC
Texte(9,0,"VECTEUR AB = (",A," : ",B,")
Texte(15,0,"VECTEUR DC = (",C," : ",D,")
Texte(23,0,"TABLEAU DE PRPORTIONALIT:
Texte(31,2,A
Texte(31,12,C
Texte(40,2,B
Texte(40,12,D
Ligne(0,15,0,32
Ligne(0,32,20,32
Ligne(20,32,20,15
Ligne(20,15,0,15
Ligne(0,24,20,24
Ligne(10,32,10,15
A*DüE
C*BüF
Texte(31,22,"(",A," * ",D,") = ",E
Texte(38,22,"(",C," * ",B,") = ",F
If E=F
Then
Texte(51,0,"AB ET DC SONT COLINEAIRE
Texte(57,0,"ET PARALLELE.
End
If EøF
Then
Texte(51,0,"AB ET DC NE SONT PAS
Texte(57,0,"COLINEAIRE, NI PARALLELE.
End
Pause
EffDessin
Goto 15




----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 17 Mai 2011, 22:06   Citer 

Si c'est juste je dis bravo... bigmouth.gif

Personnellement je préfère apprendre mon cours ou faire une simple anti-sèche.

Je vois des termes que je n'ai jamais étudié. Peux-tu me donner une référence où je pourrai me renseigner ludiquement sur les propriétés ?

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 17 Mai 2011, 22:24   Citer 

quel termes plus précisément ? de programmation ? (j'en doute fort quand meme) ou des formules ?

Je lai fais par rapport a mes cour, je ne sais pas précisément quel site pourais te fournir des info mais voila quelque esplication :

Les coordonnee d'un vecteur sont :
Si on a les point A(XA,YA) et B(XB,YB)
Alors on trouve le vecteur AB par le calcule : (XB - XA : YB - YA)

Ensuite, si l'on a le vecteur AB et C(XC,YC) quelconque alors, par la regle du paralelogramme on trouve le point D tel que AB = DC

Donc, DC = (XD-XC : YD-YC)
On a XC et YC dans l'énoncé, et on a aussi le vecteur AB(X,Y) par le calcule si-dessus.
Donc on a tout on peut faire le calcule.

Je continue ? je viens de faire le premier label, mais si tu veux te renseigner cherche sur google vecteur coordonnée, relation de chasles, tu comprendra sans doute bcp mieux crazy.gif



Citer

Personnellement je préfère apprendre mon cours ou faire une simple anti-sèche.



Perso je trouve ça ludique d'apprendre mon cours en le programmant, et ça marche happy.gif
Après je m'entraine a faire sans la calculette biensur mais ça m'aide bien.

----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 17 Mai 2011, 22:44   Citer 

Tout ce prog pour ça ? ahh.gif

Concernant les propriétés je pense surtout au tableau de proportionnalité : c'est pour quoi faire ?
Je maîtrise le reste. (heureusement que je maîtrise déjà sinon je n'aurais rien à faire en SSImath)

J'ai un petit peu de temps à perdre alors je copie-colle vers vti.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 17 Mai 2011, 22:51   Citer 

non, il y a 4 label j'ai dis que le premier winkle.gif

Le tableau de proportionnalité c pour vérifié la colinearité/parallelisme ou alignement :

Alignement:
AB( X : Y )
AC( X': Y')

On fais produit en coix : X*Y' : X'*Y
Si le résultat des 2 est le même alors c'est colineaire / aligné.

Idem pour le parralelisme.

----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 17 Mai 2011, 22:53   Citer 

tu l'as forcément apris, peut être dune autre façon mais le résultat est le meme, on peut aussi fair si X*Y' - X'*Y = 0 alors il y a colinéarité.

----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 17 Mai 2011, 23:21   Citer 

Oui, je connais tout mais je ne comprenais pas ta démarche, d'autant que tout est étalé.

Je viens de voir que tu as utilisé ton menu graphique bigmouth.gif (la méthode initialisé à zéro)

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 17 Mai 2011, 23:30   Citer 

oui j'y tiens a mon menu graphique :p et j'utilise la 1ere méthode pour évité le ptit bug de mirage oS winkle.gif
(bcp de programme, même en assembleur ou autre on se même probleme alors je ne peux que contourner ce problême.)

----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 17 Mai 2011, 23:35   Citer 

Comme souvent je me suis pris la tête à cause des minuscules (grrr) et de la traduction anglaise (si j'utilise tigraphlink83plusfr c'est français mais avec des bugs de caractères)
=> tous ces pépins pour verrifier avec succès que ton programme fonctionne.

EDIT : j'aurais peut-être dû employer une rom de ti83+ et mirageOS...
Faut que j'y pense à l'avenir.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 17 Mai 2011, 23:43   Citer 

J'ai un bon programme de géométrie, juste sur les figures avec 13 figures différente et un beau menu je le poste ? je voudrai pas être lourd en posant encore un topic alors que je répond a presque tout les topic crazy.gif

----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Cocodidou
Avatar

Autorisation : Membre
Nb de messages : 84
Inscrit le : Dim 15 Mai 2011, 11:33
Posté le : Mer 18 Mai 2011, 6:51   Citer 

Ce programme omni-géométrique te fait quoi de ces 13 figures? Il te les construit ou c'est aussi une antisèche?
Ca va me rappeler ma seconde...

 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mer 18 Mai 2011, 10:38   Citer 

^^ 13 figure avec un ptit dessin, calcule de l'aire perimettre volume, des truck tout bête et très facile, surtout que le programme pèse lourd... (7000oc)
crazy.gif mais c'est pour la beauté du geste !

----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Jeu 19 Mai 2011, 19:20   Citer 

Les vecteurs, a rajouter au programme :
(Calcule les coordonnés de C quand C= [X/Y]AB
En ayant la fraction ( X et Y), en ayant coord du vecteur AB et du point A


Code

Lbl 3
EffEcr
Menu("  xAB +/- yAC   ","AM=xAB +/- yAC",8,"AC= xAJ, J=?",19,"C=[X/Y]AB, C=?",20,"MENU",10
Lbl 20
EffEcr
Disp "C= [X/Y]AB.  C=?
Disp "Points A=
Input "XA=",A
Input "YA=",B
Disp ""
Disp "Vecteur AB=
Input "X=",C
Input "Y=",D
EffEcr
Disp "C= [X/Y]AB
Disp ""
Input "X= ",X
Output(7,1,"C= [
Output(7,5,X
Input "Y= ",Z
Output(7,1,"C= [
Output(7,5,X
Output(7,7,"/  ]AB
Output(7,8,Z
Output(8,1,"C= (??:??)    =>
Pause
EffEcr
EffDessin
Texte(0,0,"VECTEUR   AB(",C," : ",D,")
Texte(6,0,"Points:  A(",A," : ",B,")
Texte(5,64,"C(             AB)
Texte(1,74,X
Ligne(73,54,81,54
Texte(9,74,Z
Texte(15,1,X
Texte(23,1,Z
Ligne(0,40,7,40
Texte(19,9,"AB =   (
Texte(15,29,X,"*",C
Texte(23,36,Z
Ligne(28,40,50,40
Texte(19,52,":
Texte(15,55,X,"*",D
Ligne(54,40,75,40
Texte(23,62,Z
Texte(19,78,")
Texte(34,0,"AC
Ligne(10,32,10,19
Texte(30,12,"XC - ",A
Texte(37,12,"YC - ",B
Texte(34,37,"=
X*CüE
X*DüF
Texte(30,43,"[",E," / ",Z,"]
Texte(37,43,"[",F," / ",Z,"]
Texte(50,0,"AC
Ligne(10,16,10,2
Texte(46,12,"XC  =   [",E," / ",Z,"] + ",A
Texte(53,12,"YC  =   [",F," / ",Z,"] + ",B
Pause
Goto 3



Voila happy.gif je continuerais le programme après mes prochain cour winkle.gif

----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Jeu 19 Mai 2011, 19:27   Citer 

pour la fin, quand on a par exemple :


Code

XC = [2/3]+ 5
YC = [5/3]+ 2



Comment faire, depuis le programme pour convertir 5, et 2 en la fraction additionnée ?

comme ça :

Code

XC = [2/3]+ 5
YC = [5/3]+ 2

XC = [2/3]+ [15/3]
YC = [5/3]+ [6/3]



----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 19 Mai 2011, 19:53   Citer 

Je pense que développer les expressions à ce point est excessif.

Tu dois t'emm***** avec des affichages et des calculs.
La caculatrice n'affiche que des fractions irréductibles ou des entiers (par la fonction >frac).
Et tu ne peux pas détecter (à ma connaissance) automatiquement s'il y a une fraction à gauche sans un crible qui risque de ne jamais trouver de solution si A est irrationnel.

Citer
X = [A]+ D
X = [B/C]+ [C*D/C]


Pour trouver le dénominateur C (C=1 si A est entier) :
Code
EffVar C
Repeat non(partDéc(AC
C+1->C
End


Le reste est faisable par toi-même.

Par contre si la fraction est à droite, on a une impasse.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Jeu 19 Mai 2011, 20:54   Citer 


Citer

Et tu ne peux pas détecter (à ma connaissance) automatiquement s'il y a une fraction à gauche




Citer


Par contre si la fraction est à droite, on a une impasse.



Je suis désolé je n'ai pas compris

----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 19 Mai 2011, 21:17   Citer 

Quand tu utilises la fonction ">frac", tu vois si le nombre est rationnel (fraction d'entiers).
Mais tu ne peux pas communiquer ceci à la calculatrice pour qu'elle gère en conséquence.
Tester la partie décimale ne suffit pas si on a un irrationnel.

L'affichage donne une fraction à gauche et un entier à droite.
Si tu as une fraction à droite, ça complique le problème. Mais tout bien réfléchit depuis, c'est soluble (possible à traîter).
Le crible dont j'ai parlé est la boucle que j'ai postée.

Si ces fractions ne sont pas stockées dans des variables mais montrées par l'affichage de paires de variables, alors le crible est innutile et tu dois juste appliquer ce que j'ai montré dans la balise citation.
(il semble que ce soit le cas)


----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Jeu 19 Mai 2011, 22:05   Citer 

le plus simple c'est de faire le petit calcule sois même crazy.gif
ou, avec mon OS 2.53 (que jai retrouvé) convertir
Et puis, normalement dans les vecteurs c'est des nombre entier ( enfin pour l'instant je n'ai fais qu'avec le quadrillage... crazy.gif )

----------------------
&quot;Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi .&quot;

&quot;L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
&quot;
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 20 Mai 2011, 21:41   Citer 

il existe un moyen pour retrouver une fraction à partir de la forme décimale:
-tu convertit ton nombre en une chaîne (sauf si tu trouve un moyens plus efficasse qui fonctionne pour l'étape 2)
-tu trouve P, la longueur d'une période
-tu calcule obtient nombre=(nombre de départ*(10^P-1))/*(10^P-1)
-tu simplifie avec le PCCD

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
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