Forum TI-Planet.org

Bonjour,
Je refais appelle à vous, car mon problème avait été solutionné partiellement
j'expose

Quand je calcul par à partir de HOME :
résol(50*20000-50*20000*1,8*X+50*20000*X-50*20000*1,8*X^2-30*20000+30*20000*1,8*X-300000=0,X)
Résultat est de
x=0,17 ou 0,325
Vrai vérifié à la main

Par contre quand j'utilise le programme ci-dessous: mon résultat est de
x=-0,893 ou -0,0621

Code: Select all

()
Prgm
ClrIO
Input "pv",p
Input "qte",q
Input "cv",v
Input "cf",f
Input "elasticite",e
résol(p*q-p*q*e*x+p*q*x-p*q*e*x^2-v*q+v*q*e*x-f=0,{x})->r
Disp r
EndPrgm

p=50
q=20000
v=30
e=-1,80
f=300000

Ah est-il possible, à partir d'un programme de stocker les valeurs obtenues de X afin de l'utiliser dans d'autre calcul;
Merci pour votre aide

salut,

apprend à utiliser des variables locales. tu utilises des variables globales, ce qui a comme conséquence de modifier le résultat de certains calculs.

Code: Select all

()
Prgm
ClrIO
Input "pv",p
Input "qte",q
Input "cv",v
Input "cf",f
Input "elasticite",e
solve(p*q-p*q*e*x+p*q*x-p*q*e*x^2-v*q+v*q*e*x-f=0,{x})->r © inutile
Disp r © inutile
EndPrgm

Code: Select all

()
Prgm
ClrIO
Local p,q,v,f,r
DelVar x © pour être sûr que la variable x ne contiendra aucun nombre
Input "pv",p
Input "qte",q
Input "cv",v
Input "cf",f
Input "elasticite",e
Disp solve(p*q-p*q*e*x+p*q*x-p*q*e*x^2-v*q+v*q*e*x-f=0,{x})
EndPrgm

BFRANCE wrote:Ah est-il possible, à partir d'un programme de stocker les valeurs obtenues de X afin de l'utiliser dans d'autre calcul;

tu peux créer une fonction qui prend comme argument tes variables Input

Code: Select all

(p,q,v,f,e)
Func
solve(p*q-p*q*e*x+p*q*x-p*q*e*x^2-v*q+v*q*e*x-f=0,{x})
EndFunc

tu pourrais utiliser le résultat dans d'autres programmes avec un peu de souci, si tu ne mets pas le résultat sous forme de liste/matrice
pour la transformation, tu as un exemple ici viewtopic.php?f=18&t=17772#p194513 (pour Nspire mais adaptable pour ta version)

D'ailleurs tu peux utiliser la fonction zeros puisque ton équation =0 au lieu de solve, tu obtiens directement une liste facile d'utiliser le résultat sur d'autres programmes si tu crées une fonction

Code: Select all

(p,q,v,f,e)
Func
zeros(p*q-p*q*e*x+p*q*x-p*q*e*x^2-v*q+v*q*e*x-f,x)
EndFunc

Bonjour,
Tout d'abord merci à vous
C a fonctionne pas toujours pas, sur votre calculatrice ça fonctionne ? et pour la fonction j'ai essayé mais je n'ai jamais utilisé je connais pas le principe;;;;c'est simple je suis super débutante.
Pourrais-tu m'expliquer comment intégrer mes variables? Merci

Bonjour,

Si ça ne fonctionne pas c'est à cause de ta calculette, pour moi ça marche parfaitement.

C a fonctionne pas toujours pas, sur votre calculatrice ça fonctionne ? et pour la fonction j'ai essayé mais je n'ai jamais utilisé je connais pas le principe;;;;c'est simple je suis super débutante.
Pourrais-tu m'expliquer comment intégrer mes variables? Merci

fonction :

• utilisable presque partout (dans programme ou pas)
• possibilité de récupérer le résultat très facilement (comme tu l'as fait avec résol)
• affichage du résultat à la page calcul (Home)

par contre il faut placer les variables en argument, c'est à dire entre les parenthèses (donc sans message)
Programme :

• utilisable que sur la page calcul (ou entant que sous-programme)
  affichage dans une page de programme PRGMIO
• difficile d'utiliser le résultat dans d'autres programmes

tu peux ne pas mettre les variables en argument et utiliser des fonctions qui affiche un message par exemple Input et Request

Alors la;;;je suis vraiment nulle c'est une erreur de ma part ça fonctionne très bien, j'étais bloqué sur une élasticité à -1,80 au lieu de 1,80 ouf je peux enfin continuer, par contre la func il me dit "il y a trop d'argument"

Func
efpqv
solve(p*q-p*q*e*x+p*q*x-p*q*e*x^2-v*q+v*q*e*x-f=0,{x})
EndFunc

et dans HOME
profit2(je mets les variables séparées par un virgule)
C'est bien ca?

si tu recopies à ta façon, on ne va pas s'en sortir . j'ai mit les variables entre les parenthèses séparées par des virgules.
tu n'as pas besoin de solve puisqu'il y a une fonction fait pour ça. x suffit, tu n'as pas besoin d'écrire {x} (à moins que tu préfères l'affichage matriciel)

Code: Select all

(p,q,v,f,e)
Func
zeros(p*q-p*q*e*x+p*q*x-p*q*e*x^2-v*q+v*q*e*x-f,x)
EndFunc

Bonjour Hamza,
Désolé pour le temps de réponse,
Ca fonctionne de tonnerre je te remercie beaucoup pour ton aide et surtout pour ta patience.
A bientôt