Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Droites dans un repère
Baptiste747 le 03/04/2007 à 19:01
Bonjour,
je viens de faire un programme pour calculer dans un repère orthonormé:
- la distance entre 2 points (en connaissant les coordonnées des 2 points)
- a et b dans l'equation sous forme y=ax+b de la droite qui passe par 2 points (en connaissant les coordonnées des 2 points)
Ce prog est surtout utile pour ceux qui sont en seconde.
Donc voila, si vous voulez le code...FulliZing le 03/04/2007 à 19:08
poste ton code, ça pourra servir à certaines personnes
Sangohan38 le 03/04/2007 à 19:16
Je l'ai déjà fait ce prog et posté il me semble.
Le cas échéant, je le posterait bientôt.
Sangohan38Baptiste747 le 04/04/2007 à 07:03
Si tu l'a déja posté, c'est pas la peine, de toute façon c'est pas dur a faire.PMdej le 19/04/2007 à 22:12
met le quand meme on verra bien !!!!
Baptiste747 le 20/04/2007 à 09:21
Bon voila le code
Code
Lbl9
EffEcr
Menu("MATHS","2 POINTS",P,"DISTANCE",Q,"QUITTER",C
LblP
Input"XA=",E
Input"YA=",K
Input"XB=",C
Input"YB=",D
EffEcr
Disp"A=",(D-K)/(C-E)Frac
(D-K)/(C-E)->A
K-(A*E)->B
Disp"B=",K-(A*E)Frac
Output(6,2,"DANS Y=AX+B
Pause
Goto9
EffEcr
LblQ
Input"XA=",I
Input"XB=",J
Input"YA=",L
Input"YB=",M
Disp"AB=",{racine carré de}((J-I)²+(M-L)²)Frac
Pause
Goto9
LblC
Stop:EffEcr
Normalement il marche.
PS:Je l'ai fait sur ti-82 stat fr donc ya quelques modifs pour les anglaises
Baptiste747 le 20/04/2007 à 09:25
Je précise,
XA,YA,XB,YB c'est les coordonnées des points dans le repère.
Donc si quelqu'un veut bien le tester...
Baptiste747 le 21/04/2007 à 08:36
Personne pour le tester ?
vibra le 21/04/2007 à 10:29
Si, si, je vais le tester
vibra le 21/04/2007 à 13:52
Je l'ai essayé, et il marche très bien, mais il y a moyen de le réduir :
Code
Lbl9
0->L
EffEcr
Menu("MATHS","2 POINTS",P,"DISTANCE",Q,"QUITTER",C
Lbl Q
1->L
Lbl P
Input"XA=",E
Input"YA=",K
Input"XB=",C
Input"YB=",D
EffEcr
If L=0
Then
Disp"A=",(D-K)/(C-E)Frac
(D-K)/(C-E)->A
Disp"B=",K-(A*E)Frac
Output(6,2,"DANS Y=AX+B
Pause
Goto9
Else
EffEcr
Disp"AB=",{racine carré de}((K-E)²+(D-C)²)Frac
Pause
Goto9
End
LblC
Stop:EffEcr
Il est aussi long, mais prend moins d'octets.
Baptiste747 le 21/04/2007 à 23:43
Oui je sais mais je l'ai créé vite fait, et j'ai pas cherché a ce qu'il prenne le moins de place possibe.
Sinon ta version marche tres bien aussi et prend quelques octets de moins.
Baptiste747 le 21/04/2007 à 23:46
Et puis je suis en train de le compléter pour trouver les equations de médiatrices.
vibra le 22/04/2007 à 11:06
Ok, je suis sûr qu'on pourrait encore le réduir (c'est toujours possible). Sinon, c'est bien, continue. Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
