Programation PB RESOLV

[BFRANCE]

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

[Hamza.S]

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

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)

[Hamza.S]

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

[BFRANCE]

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

[Hamza.S]

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

[BFRANCE]

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?

[Hamza.S]

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

[BFRANCE]

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