Le 18/11/2010 10:00, Mahdiyar Noorbala a ?crit :
> .....
> s:ev(rectform(allroots(8*d*dx2*(d*v^2+1)^2=(6*d*dx2+dx2+1)*(d*v^2-dx2)^2,dx2)),numer),
> .....
>
>
Hello,
I get an other error message with your code :
APPLY: too many arguments given to #<COMPILED-FUNCTION $ALLROOTS>
the variable (here dx2) shouldn't be given in the function allroots,
only the equation (with only one variable).
With this correction, it works well on my installation (maxima 5.20.1),
I get a loop of 200 iterations (quite slow, about 1 sec/iter near the
end), ending with :
***
d= 0.1 v= 199
[[0, 44.66396855988178], [6760.891216570977, inf]]
[[.9685844756612081, .007036124652614255],
[.1997979848993713,
7.836929623497404E-18]]
***
d= 0.1 v= 200
[[0, 44.89215490497176], [6829.004777266476, inf]]
[[.9685844776165118, .007036123253047886], [0.1998, 7.902138598194008E-18]]
***
(%o31) [[.9685844776165118, .007036123253047886],
[0.1998, 7.902138598194008E-18], [.9685844756612081, .007036124652614255],
.................
........................ about 400 lines omitted here
.................
[- .2999999999999998, 1.775908734241145E-33],
[.9680892182658708, .007376797106582455],
[- .6888888888888889, 1.060276750855295E-43],
[.9678493299051344, .007532632596365487],
[.9675324717068019, .007729805032400509]]
HTH
Eric