[82] Solveur

Voir le sujet précédent Voir le sujet suivant Aller en bas

[82] Solveur

Message par h4x@n le Ven 20 Jan - 19:34

SOLVEUR est un programme pouvant résoudre n'importe quelle équation.

Nom : SOLVEUR
Version : 3.5 (beta)
Taille : 1180 octets
Auteur : h4x@n
Date de création : 11/12/2009
Langage de programmation : Ti-Basic
Captures d'écrans :


[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]







Téléchargement : Solveur 3.5 (beta)






Code source : SOLVEUR 3.5 (beta)

Spoiler:
:Lbl D
:ClrHome
:Menu(" MENU ","LANCER SOLVEUR",1,"REGLAGES",2,"AIDE",3,"INFORMATIONS",4,"QUITTER",5)
:Lbl 2
:ClrHome
:Menu(" REINITIALISER? ","NON",B,"OUI",A,"RETOUR",D)
:Lbl B
:Input "ENCADREMENT: MIN",A
:Input "ENCADREMENT: MAX",B
:Input "PRECISION DU RES",E
:Goto D
:Lbl A
:110A:111B
:111E
:Goto D
:Lbl 3
:Disp "SOLVEUR EST UN ","PROGRAMME UTILI-","SANT LA TECHNIQU","DE DICHOTOMIE PR","RESOUDRE LES","EQUAΘ DU 1ER DEG"
:Pause
:ClrHome
:Disp "IL SUFFIE PR CA","DENTRER LE 1ER","MEMBRE DE L =ITE","DS Y1, ET LE 2ND","DS Y2. CERTAINS","REGLAGES PEUVENT","ETRE NECESSAIRES"
:Pause
:ClrHome
:Goto D
:Lbl 4
:ClrHome
:Disp " SOLVEUR: 1.0"," PAR HAKAN","","POUR + D:INFOS :","","HTTP://DHCT.PRO-","FORUM.FR/"
:Pause
:Goto D
:Lbl 1
:AX
:If Y1Y2:Then
: While A+E<B
: Disp X
: If Y1Y2:XA
: If Y1Y2:XB
: (A+B)/2X
: End
:Else
: While A+E<B
: Disp X
: If Y1Y2:XA
: If Y1Y2:XB
: (A+B)/2X
: End:End
:ClrHome
:Disp "POUR X =",X,"Y1 = Y2 =",Y2
:Lbl 5

h4x@n
Argent 1
Argent 1

Sexe : Masculin
Age : 32
Messages : 11
Date d'inscription : 19/09/2010
Etudes : Terminale S
Points Forum : 0
Points Concours : 0
Langages :
  • - TI-Basic Z80
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+.fr

TI-83+.fr


http://a.sener.free.fr/

Revenir en haut Aller en bas

Re: [82] Solveur

Message par linkakro le Ven 20 Jan - 19:52

Cela a l'air efficace et plus pratique que la fonction solve(. Content

Je ne comprends pas "MEMBRE DE L =ITE". Scratch

On peut probablement se passer du Else mais j'ai d'abord besoin de comprendre mieux la phrase citée au dessus.
- pourquoi ne pas effectuer la dichotomie de l'équation Y1-Y2=0 ? Cela donnerais les mêmes résultats pour une recherche plus simple.
- Plutôt que de prévoir deux procédures selon le maxi, on peut échanger le contenu de Y1 et Y2.

linkakro
Or 4
Or 4

Sexe : Masculin
Age : 22
Messages : 768
Date d'inscription : 01/07/2010
Etudes : dut geii (elec/info)
Points Forum : 51
Points Concours : 8
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - ASM TI-83+ / TI-84+
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr

TI-84+ SE


Revenir en haut Aller en bas

Re: [82] Solveur

Message par h4x@n le Ven 20 Jan - 20:09

linkakro a écrit:Cela a l'air efficace et plus pratique que la fonction solve(. Content
Bah c'est pas indispensable à avoir, mais c'est pratique en effet. En tout cas merci du compliment Très Content .

linkakro a écrit:Je ne comprends pas "MEMBRE DE L =ITE". Scratch
J'ai voulu dire "Membre de l'égalité" mais comme il n'y avait pas assez de place sur la calculatrice j'ai abrégé le mot "égalité" par "=ITE" ^^ .

linkakro a écrit:pourquoi ne pas effectuer la dichotomie de l'équation Y1-Y2=0 ? Cela
donnerais les mêmes résultats pour une recherche plus simple.
C'est envisageable, comme tu le dis ça donnerait les mêmes résultats. Mais je ne sais pas si la recherche serait plus simple.

linkakro a écrit:Plutôt que de prévoir deux procédures selon le maxi, on peut échanger le contenu de Y1 et Y2.
C'est une méthode à laquelle je n'y avais pas pensé. J'ai moi-même cherché comment remplacer ces deux boucles similaires par une seule et même boucle. J'y étais parvenue, mais la recherche était plus lente donc j'étais resté avec deux boucles. Je prends en compte ta remarque pour la prochaine version Clin Oeil. Merci de m'avoir partagé ton avis sur le programme Très Content!

h4x@n
Argent 1
Argent 1

Sexe : Masculin
Age : 32
Messages : 11
Date d'inscription : 19/09/2010
Etudes : Terminale S
Points Forum : 0
Points Concours : 0
Langages :
  • - TI-Basic Z80
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+.fr

TI-83+.fr


http://a.sener.free.fr/

Revenir en haut Aller en bas

Re: [82] Solveur

Message par Contenu sponsorisé Aujourd'hui à 16:42


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum