Poster un nouveau sujet Poster une réponse
Prgm MiniSolv
Auteur Message
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Dim 01 Jui 2014, 1:36   Citer 

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
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 01 Jui 2014, 11:41   Citer 

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
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Dim 01 Jui 2014, 14:13   Citer 

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
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 01 Jui 2014, 16:29   Citer 

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
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink