| Prgm MiniSolv |
| Auteur |
Message |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Dim 01 Jui 2014, 1:36
|
|
 |
Salut !
Voici un tout petit prgm pour résoudre les plus bêtes mais aussi les les plus courantes équations. Du premier degrés, à une inconnue, sans carré ni racine et je ne sais quoi d'autre...
Remplacer juste "x" par le "i" des imaginaires.
Minisolv V2 par Linkakro et moi même.
| Code | :EffEcr
:Disp "ECRIVEZ i POUR X
:Input " ",A
:Input "=",B
:Disp "i=",real(A-B)/imag(B-A>Frac |
Exemple : 2(3i+1-1/2) = (7i-4)/4 donne i= -8/17
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
 |
  |
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 01 Jui 2014, 11:41
|
|
|
Tu utilises le nombre imaginaire pour isoler l'inconnue naturellement ? Bizarre mais pourquoi pas.
a+bx=c+dx
a-c=(d-b)x
(a-c)/(d-b)=x
a=real(a+bi)
b=imag(a+bi)
c=real(c+di)
d=imag(d+di)
| Code | Disp "ECRIVEZ i POUR X
Input " ",A
Input "=",B
Disp real(A-B)/imag(B-A>Frac |
EDIT : ajoute le >Frac que ld me rappelle ci-aprè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 |
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Dim 01 Jui 2014, 14:13
|
|
|
Ah oui ! "real(A-B)/imag(B-A" c'est encore mieux.
Mais moi j'ajoute Frac. C'est cool une fois sur deux il te le factorise.
J'suis fan tu gères !
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 01 Jui 2014, 16:29
|
|
|
Tu as effacé la version précédente que tu avais posté. Plus très clair à la relecture.
Je ne sais vraiment pas ce que tu avais en tête quand tu rédigais la précédente. Tu voulais certainement rassembler real(A)-real(B)=real(A-B) et de même avec la partie imaginaire mais tu t'étais complètement emmêlé.
----------------------
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 |
| |
|
| |
