Poster un nouveau sujet Poster une réponse
point d'intersection de deux droite affine
Auteur Message
f(x)=2x



Autorisation : Membre
Nb de messages : 21
Inscrit le : Sam 04 Fév 2012, 17:46
Posté le : Ven 23 Mar 2012, 20:32   Citer 

Bonsoir à tous !
alors voilà, je dois faire une programme qui choisit si je veux calculer un coefficient directeur ou le point d'intersection de deux droite avec une equation de type y=ax+b
j'ai reussi a faire la premiere partie (creation d'un menu + programme pour le coefficient directeur) mais je n'arrive pas a faire la deuxieme, est ce que quelqu'un pourrait m'aider ?

 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 23 Mar 2012, 21:19   Citer 


Code
Disp "F(X)=AX+B","G(X)=CX+D
prompt A,B,C,D
If A=C
Then
Disp "DROITES PARRALELLES
If B=D
Then
Disp "CONFONDUES
Else
Disp "NON SECANTES
End
Else
(D-B)/(A-C -> X
AX+B -> Y
Disp "INTERSECTION :","X=",X,"Y=",Y
End

AX+B=CX+D
AX-CX=D-B
X(A-C)=D-B
si A=!=C, X=(D-B)/(A-C

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
f(x)=2x



Autorisation : Membre
Nb de messages : 21
Inscrit le : Sam 04 Fév 2012, 17:46
Posté le : Ven 23 Mar 2012, 22:03   Citer 

et avec des matrices ca donne quoi ? (je fais chier je sais xD)

 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 23 Mar 2012, 22:21   Citer 


Code
Disp "F(X)=AX+B","G(X)=CX+D
prompt A,B,C,D
{2,3 -> dim([A]
A -> [A](1,1
-1 -> [A](1,2
-B -> [A](1,3
C -> [A](2,1
-1 -> [A](2,2
-D -> [A](2,3
Gauss-Jordan([A] -> [A]
Disp "X=",[A](1,3),"Y=",[A](2,3



y=ax+b
ax-1y=-b

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



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 23 Mar 2012, 23:07   Citer 

Optimisé :
Code
Disp "F(X)=AX+B","G(X)=CX+D
Prompt A,B,C,D
[[A,-1,-B][C,-1,-D ->[A]
Gauss-Jordan([A] -> [A]
Disp "X=",[A](1,3),"Y=",[A](2,3

Remarquez que le programme peut donner un résultat même si l'intersection n'existe pas.

Seulement si l'intersection existe :
Code
Disp "F(X)=AX+B","G(X)=CX+D
Prompt A,B,C,D
Disp [[A,-1][C,-1]]^-1*[[-B][-D



----------------------
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 
 
f(x)=2x



Autorisation : Membre
Nb de messages : 21
Inscrit le : Sam 04 Fév 2012, 17:46
Posté le : Sam 24 Mar 2012, 7:59   Citer 

Quand j'écris le prgm de sandro ( plus facile a comprendre pour moi) la calco me met erreur syntaxe au
Code
 [A](1,2)->-1


Jai mis le bon "-"

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 24 Mar 2012, 8:26   Citer 

Tu as bien mis la matrice A et non les symboles [+A+]?
Tu as bien mis la flèche sto et non ->?

Sangohan38

 Adresse email Haut de page Bas de page 
 
f(x)=2x



Autorisation : Membre
Nb de messages : 21
Inscrit le : Sam 04 Fév 2012, 17:46
Posté le : Sam 24 Mar 2012, 8:39   Citer 

Oui oui, j'ai bien utilisé le [A] de matrice & le fonction stockage

 Adresse email Haut de page Bas de page 
 
f(x)=2x



Autorisation : Membre
Nb de messages : 21
Inscrit le : Sam 04 Fév 2012, 17:46
Posté le : Sam 24 Mar 2012, 9:09   Citer 

En gros mon prgm ressemble a ça :

Code

Lbl 2
Disp "y=ax+b","y=cx+d
Input A
Input B
Input C
Input D
If A=C
Disp "parallèles"
Stop
{2,3->dim([A]
[A](1,1)->A
[A](1,2)->-1 // endroit ou ça met erreur syntaxe
[A](1,3)->-B
[A](2,1)->C
[A](2,2)->-1
[A](2,3)->-D
Gauss-Jordan([A]
disp "x="[A](1,3),"y="[A](2,3)



Voilà crazy.gif

 Adresse email Haut de page Bas de page 
 
f(x)=2x



Autorisation : Membre
Nb de messages : 21
Inscrit le : Sam 04 Fév 2012, 17:46
Posté le : Sam 24 Mar 2012, 9:15   Citer 

Oops j'ai inversé en écrivant crazy.gif
C'est
A->[A](1,1
Désolée

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 24 Mar 2012, 10:51   Citer 

Oui, donc en écrivant chaque ligne dans le bon sens cela fonctionnera.

La version optimisée que j'ai bricolée à partir de celle de sandro fonctionne exactement de la même manière que celle de sandro, c'est juste que je remplie toute la matrice d'un seul coup.
C'est celle que je te conseillerai.

Ma version bonus est plus compliquée à cause d'une opération mathématique, mais a l'avantage d'être compacte.
Et puis si le programme plante, on est sûr que les droites sont parallèles.
Tandis que les autres ne plantent pas même si on est assez distrait pour tester des droites parallèles.

----------------------
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 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 9 requêtes