Programation PB RESOLV

→ **MyCalcs** profile · de **BFRANCE** » 23 Avr 2016, 18:27

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: Tout sélectionner: () 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

→ **MyCalcs** profile · de **Hamza.S** » 23 Avr 2016, 19:20

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: Tout sélectionner: () 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: Tout sélectionner: () 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 a écrit: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: Tout sélectionner: (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)

→ **MyCalcs** profile · de **Hamza.S** » 23 Avr 2016, 21:01

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: Tout sélectionner: (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

→ **MyCalcs** profile · de **BFRANCE** » 24 Avr 2016, 15:07

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

→ **MyCalcs** profile · de **Hamza.S** » 24 Avr 2016, 16:50

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

→ **MyCalcs** profile · de **BFRANCE** » 24 Avr 2016, 20:07

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?

→ **MyCalcs** profile · de **Hamza.S** » 24 Avr 2016, 20:32

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: Tout sélectionner: (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

→ **MyCalcs** profile · de **BFRANCE** » 25 Avr 2016, 17:49

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