SYSTEME |
Auteur |
Message |
luffy_yop
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 09 Jan 2008, 13:00
|
Posté le : Jeu 10 Jan 2008, 15:08
|
|
|
Voilà un petit programme (pas très util mais bon) qui permet de résoudre des système à 2 inconnues. La formule utilisée est très facilement démontrable sachant que ce programme est issu d'un livre de 2nde. Par extension, on peut trouver les formules des équations pour les systèmes à 3;4;...;n inconnues. [principe (pour ceux qui n'auraient pas compris): placez le système sous la forme Ax+By=C ; Dx+Ey=F , puis rentrez les valeurs]
Code | Prompt A,B,C,D,E,F
A*E-B*D->K
If K[différent de]0:Then
(E*C-B*F)/K->U
(A*F-D*C)/K->V
Disp U>Frac,V>Frac
Else: Disp "PAS DE SOLUTION"
End |
|
|
|
|
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Jeu 10 Jan 2008, 16:00
|
|
|
Je me suis permis d'éditer le post pour plus de lisibilité.
+
---------------------- --- LISTE DES JEUX POUR TI --- |
|
|
|
amelundel
Invité
|
Posté le : Dim 16 Nov 2008, 16:37
|
|
|
J'ai continuer un peu le code pour ton programme.
Code | Prompt A,B,C,D,E,F
A*E-B*D->K
C/D->M
F/E->N
If K[différent de]0:Then
(E*C-B*F)/K->U
(A*F-D*C)/K->V
Disp U>Frac,V>Frac
Else:
If M=N: Then
Disp "INFINITE","DE SOLUTIONS"
Else: Disp "PAS DE SOLUTION"
End |
|
|
|
|
ToTo
Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
|
Posté le : Lun 17 Nov 2008, 20:40
|
|
|
Intéressant pour quand on a pas de temps à perdre, en contrôle par exemple.
|
|
|
|
tintin91
Invité
|
Posté le : Dim 24 Mai 2009, 19:37
|
|
|
Bonjour à tous,
Juste pour information, il n'est obligatoire de créer le programme sur la calculette.
Le programme existe déjà!!! Et si!!
Il suffit juste d'aller dans:
- matrice
- aller vers EDIT, on sélectionne [A] (sinon un autre, ça marche aussi!)
- faire 2*3 (si vous avez 2 ligne et 3 colonnes)
- appuyer sur entrer et écrire les valeurs voulues
- ensuite de faire 2nde et quitter
- revenir dans matrice
- de descendre jusqu'à B:Gauss-Jordan( dans le programme MATHS et d'y entré
- appuyer (encore ) sur matrice et de sélectionner [A] dans NOMS
- appuyer sur entrer et le résultat est affiché a la fin des crochées [ ]
Je sais que c'est un peu long mais ça évite d'écrire ou de copier le programme.
Voilà
|
|
|
|
Supposition
Invité
|
Posté le : Dim 17 Mai 2015, 14:42
|
|
|
Bonjour, j'ai moi aussi fait un algorithme sur TI 82 et je sais que le sujet date mais j'aimerais savoir si j'ai bon car j'ai besoin d'avoir programmer cette algorithme pour demain !
Alors:
Imput A,B,C,D,E,F ( pour a, b, c, a', b, c' - cette parenthèses n’apparaît pas dans l'algorithme )
If DB- AE différent de 0
Dips EC-BC/ DB-AE et DC-AF/ DB-AE
Else disp " solution une des droites ou ensemble vide)
End
Voilà merci !
|
|
|
|
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Dim 17 Mai 2015, 19:21
|
|
|
Attention, "et" est un opératuer booléen qui n'a rien à voir avec l'affichage. Voilà ton code, correctement écrit :
Code | Input A,B,C,D,E,F
If DB- AE
Then
Disp EC-BC DB-AE,DC-AF/ DB-AE
Else
Disp "solution : une des droites ou ensemble vide)
End |
Déterrage de 6 ans, qui dit mieux ?
---------------------- Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
|
|
|
cutty853
Invité
|
Posté le : Mar 16 Jui 2015, 11:42
|
|
|
La technique de Gauss-Jordan est beaucoup plus pratique surtout qu'elle permet la résolution de systeme à 3 inconnu par exemple. Je suppose de plus qu'elle permet aussi celle a plus de 3 inconnu (j'ai pas testé).
|
|
|
|
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Mar 16 Jui 2015, 12:18
|
|
|
Sauf qu'elle n'existe pas sur TI-82 malheureusement, et il voulait un algo sur TI-82. Mais à partir de la 82 Stats pas de problème
---------------------- Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
|
|
|