voila je poste cette algorythme pour accelerer la decouverte de racines pas si evidentes.normalement il marche mais si ya des erreurs,jsuis ouvert
sinon pour ceux qui n'ont pas execalgo,on peut le telecharger via cee lien: execalgo
#polynome P(x)=ax^10+bx^9+cx^8+dx^7+ex^6+fx^5+gx^4+hx^3+ix^2+jx+k
Variable(réel;a;b;c;d;e;f;g;h;i;j;k;x)
Affecter(x;0)
Demander(a)
Demander(b)
Demander(c)
Demander(d)
Demander(e)
Demander(f)
Demander(g)
Demander(h)
Demander(i)
Demander(j)
Demander(k)
FaireFois(1000)
Affecter(x;Ehasard(-100,100))
FaireTantQue(a*x*x*x*x*x*x*x*x*x*x+b*x*x*x*x*x*x*x*x*x+c*x*x*x*x*x*x*x*x+d*x*x*x*x*x*x*x+e*x*x*x*x*x*x+f*x*x*x*x*x+g*x*x*x*x+h*x*x*x+i*x*x+j*x+k=0)
FaireSi(a*x*x*x*x*x*x*x*x*x*x+b*x*x*x*x*x*x*x*x*x+c*x*x*x*x*x*x*x*x+d*x*x*x*x*x*x*x+e*x*x*x*x*x*x+f*x*x*x*x*x+g*x*x*x*x+h*x*x*x+i*x*x+j*x+k=0)
Afficher(x)
Sinon
Affecter(x;1/2)
FaireSi(a*x*x*x*x*x*x*x*x*x*x+b*x*x*x*x*x*x*x*x*x+c*x*x*x*x*x*x*x*x+d*x*x*x*x*x*x*x+e*x*x*x*x*x*x+f*x*x*x*x*x+g*x*x*x*x+h*x*x*x+i*x*x+j*x+k=0)
Afficher(x)
Sinon
Affecter(x;-1/2)
FaireSi(a*x*x*x*x*x*x*x*x*x*x+b*x*x*x*x*x*x*x*x*x+c*x*x*x*x*x*x*x*x+d*x*x*x*x*x*x*x+e*x*x*x*x*x*x+f*x*x*x*x*x+g*x*x*x*x+h*x*x*x+i*x*x+j*x+k=0)
Afficher(x)
FinFaire
FinFaire
FinFaire
FinFaire
FinFaire
sinon pour ceux qui n'ont pas execalgo,on peut le telecharger via cee lien: execalgo
#polynome P(x)=ax^10+bx^9+cx^8+dx^7+ex^6+fx^5+gx^4+hx^3+ix^2+jx+k
Variable(réel;a;b;c;d;e;f;g;h;i;j;k;x)
Affecter(x;0)
Demander(a)
Demander(b)
Demander(c)
Demander(d)
Demander(e)
Demander(f)
Demander(g)
Demander(h)
Demander(i)
Demander(j)
Demander(k)
FaireFois(1000)
Affecter(x;Ehasard(-100,100))
FaireTantQue(a*x*x*x*x*x*x*x*x*x*x+b*x*x*x*x*x*x*x*x*x+c*x*x*x*x*x*x*x*x+d*x*x*x*x*x*x*x+e*x*x*x*x*x*x+f*x*x*x*x*x+g*x*x*x*x+h*x*x*x+i*x*x+j*x+k=0)
FaireSi(a*x*x*x*x*x*x*x*x*x*x+b*x*x*x*x*x*x*x*x*x+c*x*x*x*x*x*x*x*x+d*x*x*x*x*x*x*x+e*x*x*x*x*x*x+f*x*x*x*x*x+g*x*x*x*x+h*x*x*x+i*x*x+j*x+k=0)
Afficher(x)
Sinon
Affecter(x;1/2)
FaireSi(a*x*x*x*x*x*x*x*x*x*x+b*x*x*x*x*x*x*x*x*x+c*x*x*x*x*x*x*x*x+d*x*x*x*x*x*x*x+e*x*x*x*x*x*x+f*x*x*x*x*x+g*x*x*x*x+h*x*x*x+i*x*x+j*x+k=0)
Afficher(x)
Sinon
Affecter(x;-1/2)
FaireSi(a*x*x*x*x*x*x*x*x*x*x+b*x*x*x*x*x*x*x*x*x+c*x*x*x*x*x*x*x*x+d*x*x*x*x*x*x*x+e*x*x*x*x*x*x+f*x*x*x*x*x+g*x*x*x*x+h*x*x*x+i*x*x+j*x+k=0)
Afficher(x)
FinFaire
FinFaire
FinFaire
FinFaire
FinFaire