| Author |
Comment/Response |
Gianni
|
 05/29/98 5:08pm
I've tried to evaluate this command:
Dsolve[{la1'[t]==-K1 la2[t]-K3 la4[t],la2'[t]==2 w la4[t]-la1[t],la3'[t]==-K3 la
2[t]-K2 la4[t],la4'[t]==-2 w la2[t]-la3[t],x''[t]==la2[t]/2+K1 x[t],K3 y[t]+2 w
y'[t],y''[t]==la4[t]/2+K3 x[t]+K2 y[t]-2 w x'[t],x[0]==x0adim,x'[0]==vx0adim,y[0
]==y0adim,y'[0]==vy0adim,x[tf]==xtfadim,x'[tf]==vxtfadim,y[tf]==ytfadim,y'[tf]==
vytfadim},{la1[t],la2[t],la3[t],la4[t],x[t],y[t]},t]
whith:
tf=13.2479;
x0adim=2.601 10^-6;
vx0adim=0.00981;
y0adim=2.601 10^-6;
vy0adim=0.00981;
xtfadim=0;
vxtfadim=-0.03927;
ytfadim=0.062435;
vytfadim=0;
w=1.00612;
K1=0.759202;
K2=2.27761;
K3=1.2831;
DSolve work fine with mathematica 2.2.3 (10 second for evaluation) but with math
ematica 3.0 it try to evaluate for more then 10 hours without finish the work.
Why this is possible and what is the solution for this problem?
Thanks
URL: , |
|
