Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Hello I need your help can you gi
- Thread starter hasnaoui
- Start date
Hello Hasnaoui,
In my opinion instead of sparse Jacobian you probably mean banded Jacobian.
My question:
Wouldn't it be better for you instead of the old good Fortran, rather to try a more modern solving system like Matlab, Octave, Scilab or Julia - at least at the beginning ?
- Matlab is payed and not cheap, but look how nice you can solve stiff ODEs in it and visualize the solution:
- Octave is similar to Matlab, but free, maybe it doesn't have so much methods for ODEs like Matlab, but it has the LSODE method which is similar to the DVODE using backward differentiation formula (BDF). You can visualize your solution like in Matlab:
- Scilab is similar to Matlab too and free like Octave. It seems that it has the same solver like Octave:
- Julia is a new free language and system for solving mathematical problems. It has solvers for stiff ODEs too, and you can immediately visualize your results like in other systems mentioned above:
I would choose the following route: First, learn how to solve the stiff equations in one or two of the systems described above. Verify if the obtained results meet your expectations and then if you are sure how to do it, maybe you can rewrite the solution in Fortran.
But if you are based on the Fortran-only usage, I would suggest you to look at the following book:
Hairer and Wanner: Solving Ordinary Differential Equations. Stiff and Differential-Algebraic Problems.
It looks like this: You may be able to pick the book from a local library.
And here are some fortran codes for the book available:
I know that book, i have read some parts of it, because during my study i implemented some of the implicit Runge-Kutta stiff solvers described in it in the Pascal programming language. And I used the fortran codes from the book to verify whether my pascal implementation delivers right results...but that was almost 30 years ago
In my opinion instead of sparse Jacobian you probably mean banded Jacobian.
My question:
Wouldn't it be better for you instead of the old good Fortran, rather to try a more modern solving system like Matlab, Octave, Scilab or Julia - at least at the beginning ?
- Matlab is payed and not cheap, but look how nice you can solve stiff ODEs in it and visualize the solution:
- Octave is similar to Matlab, but free, maybe it doesn't have so much methods for ODEs like Matlab, but it has the LSODE method which is similar to the DVODE using backward differentiation formula (BDF). You can visualize your solution like in Matlab:
- Scilab is similar to Matlab too and free like Octave. It seems that it has the same solver like Octave:
- Julia is a new free language and system for solving mathematical problems. It has solvers for stiff ODEs too, and you can immediately visualize your results like in other systems mentioned above:
I would choose the following route: First, learn how to solve the stiff equations in one or two of the systems described above. Verify if the obtained results meet your expectations and then if you are sure how to do it, maybe you can rewrite the solution in Fortran.
But if you are based on the Fortran-only usage, I would suggest you to look at the following book:
Hairer and Wanner: Solving Ordinary Differential Equations. Stiff and Differential-Algebraic Problems.
It looks like this: You may be able to pick the book from a local library.
And here are some fortran codes for the book available:
I know that book, i have read some parts of it, because during my study i implemented some of the implicit Runge-Kutta stiff solvers described in it in the Pascal programming language. And I used the fortran codes from the book to verify whether my pascal implementation delivers right results...but that was almost 30 years ago
Hi hasnaoui,
I tried to solve your ODE system in Octave with LSODE method, using the right hand side function and initial conditions you provided in the fortran program here:
Default options of LSODE were used:
Here are the 11 resulting functions y(1), .., y(11) visualised:
Here is the octave script file I used, you can try it:
hasnaoui.m
I tried to solve your ODE system in Octave with LSODE method, using the right hand side function and initial conditions you provided in the fortran program here:
Default options of LSODE were used:
Code:
>> lsode_options()
Options for LSODE include:
keyword value
------- -----
absolute tolerance 1.49012e-08
relative tolerance 1.49012e-08
integration method stiff
initial step size -1
maximum order -1
maximum step size -1
minimum step size 0
step limit 100000Here are the 11 resulting functions y(1), .., y(11) visualised:
Here is the octave script file I used, you can try it:
hasnaoui.m
Code:
printf("System of Stiff Ordinary Differential Equations\n");
printf("by hasnaoui\n");
function YDOT = F(Y, T)
EXI=0.10;
C0=EXI-5.0/2.0;
C1=EXI/2.0-1.0/4.0;
C2=-0.50;
C3=-0.50;
C4=EXI-3.0/2.0;
GAM=5.0/3.00;
BETA=EXI/2.0+3.0/4.0;
GU=5.7D-3;
EP=0.10;
ALM=1.0;
XM=1.00;
PM=1.0;
PP=PM*EP+3*XM/ALM**2;
SM=ALM*PP*GU**0.5;
RM=PP/EP;
DEL0=(1-EP**2*(SM**2/2.0+2*(2-BETA)+GU*RM))**0.5;
QQ=ALM*DEL0*(PP-PM*EP)/2.0/GU**0.5;
TAU=PP/PM/EP-1.0;
%VARIABLE DI'INTEGRATION
YDOT(1) = 1.0;
%RESISTIVITE MAGNETIQUE
YDOT(10) = -2.0*Y(1)*exp(-Y(1)**2);
%
%VITESSE TOROIDALE
YDOT(2)=(Y(4)*Y(3)*Y(2)+ ...
TAU/(1.0+TAU)*(Y(9)*Y(6)/Y(10)-C1/BETA*Y(7)*Y(8)) ...
-1.0/(1.0+TAU)*Y(3)*Y(10)) ...
/(2.0*Y(3)*(Y(1)*Y(4)+Y(5)));
%DENSITE VOLUMIQUE
YDOT(3)=((EXI-1.0)*Y(3)*Y(4)*EP**2*SM**2*Y(3)*(Y(1)*Y(4)+Y(5)) ...
-Y(1)*Y(3)* ...
(C2*SM**2*EP**2*Y(3)*Y(4)**2-Y(3)*DEL0**2*Y(2)**2 ...
+Y(3)/(1.0+EP**2*Y(1)**2)**1.50+EP**2*C0*Y(11) ...
+GU*QQ**2*EP**2*Y(7)*(C1*Y(7)-Y(1)*Y(6)/Y(10)) ...
+GU/BETA*(Y(9)-Y(1)/BETA*Y(8))* ...
(-RM*EP**2/Y(10))*(BETA*Y(4)*Y(9)-Y(8)*(Y(1)*Y(4)+Y(5)))) ...
-Y(3)* ...
(C3*SM**2*EP**2*Y(3)*Y(4)*Y(5)-Y(1)*Y(3)/ ...
(1.0+EP**2*Y(1)**2)**1.50 ...
-GU*QQ**2*Y(7)*Y(6)/Y(10)-GU/BETA**2/EP**2*Y(8)* ...
(-RM*EP**2/Y(10))*(BETA*Y(4)*Y(9)-Y(8)*(Y(1)*Y(4)+Y(5)))) ...
-1.0/BETA*Y(3)*Y(9)**(-1.0-1.0/BETA)*Y(8)* ...
Y(3)*(1.0+Y(1)**2*EP**2)) ...
/(Y(3)*(SM**2*EP**2*(Y(1)*Y(4)+Y(5))**2-Y(9)**(-1.0/BETA)* ...
(1.0+EP**2*Y(1)**2)));
%PRESSION
YDOT(11)=-1.0/BETA*Y(3)*Y(9)**(-1.0-1.0/BETA)*Y(8)+ ...
Y(9)**(-1.0/BETA)*YDOT(3);
%EQUILIBRE RADIALE
YDOT(4)=(C2*SM**2*EP**2*Y(3)*Y(4)**2 ...
-Y(3)*DEL0**2*Y(2)**2 ...
+Y(3)/(1.0+(EP*Y(1))**2)**1.50 ...
+EP**2*C0*Y(11) ...
+GU*QQ**2*EP**2*Y(7)*(C1*Y(7)-Y(1)*Y(6)/Y(10)) ...
+GU/BETA*(Y(9)-Y(1)*Y(8)/BETA)* ...
(-RM*EP**2/Y(10))*(BETA*Y(4)*Y(9)-Y(8)*(Y(1)*Y(4)+Y(5))) ...
-EP**2*Y(1)*YDOT(11)) ...
/(EP**2*SM**2*Y(3)*(Y(1)*Y(4)+Y(5)));
%EQUILIBRE VERTICALE
YDOT(5)=(C3*EP**2*SM**2*Y(3)*Y(4)*Y(5)- ...
Y(1)*Y(3)/(1.0+(EP*Y(1))**2)**1.50 ...
-GU*QQ**2*Y(7)*Y(6)/Y(10)- ...
GU*Y(8)/BETA**2/EP**2* ...
(-RM*EP**2/Y(10))*(BETA*Y(4)*Y(9)-Y(8)*(Y(1)*Y(4)+Y(5))) ...
-YDOT(11)) ...
/(EP**2*SM**2*Y(3)*(Y(1)*Y(4)+Y(5)));
%INDUCTION MAGNETIQUE
YDOT(6)= (EP**2*Y(1)*((C1-1.0)*Y(6)+C1*Y(7)*YDOT(10)) ...
-EP**2*(C1*Y(7)*Y(10)-Y(1)*Y(6))*(C1-1.50) ...
-XM*RM*DEL0/QQ/SM*(1.50/BETA*Y(8)*Y(2)+Y(9)*YDOT(2)) ...
+XM*RM*EP**2*BETA*Y(7)*Y(4) ...
+XM*RM*EP**2*(Y(5)+Y(1)*Y(4))* ...
(Y(6)/Y(10)-Y(7)*YDOT(3)/Y(3))) ...
/(1.0+EP**2*Y(1)**2);
YDOT(7)=Y(6)/Y(10);
%FLUX MAGNETIQUE
YDOT(8)=(EP**2*(BETA*(2.0-BETA)*Y(9)+(2*BETA-3.0)*Y(1)*Y(8)) ...
-RM*EP**2/Y(10)*(BETA*Y(4)*Y(9)-Y(8)*(Y(1)*Y(4)+Y(5)))) ...
/(1.0+(EP*Y(1))**2);
YDOT(9)=Y(8);
endfunction
Y0(1) = 0.0001;
Y0(2) = 1.0;
Y0(3) = 1.0;
Y0(4) = 1.0;
Y0(5) = 0.0;
Y0(6) = -1.;
Y0(7) = 0.0;
Y0(8) = 0.0;
Y0(9) = 1.0;
Y0(10) = 1.0;
Y0(11) = 1.0;
T = linspace(0, 3, 300);
Y = lsode ("F", Y0, T);
for i = 1: columns(Y)
figure(i);
plot(T, Y(:,i));
tit=title ("hasnaoui", "fontsize", 16);
l=xlabel("T", "fontsize", 16);
ylabel(sprintf("y(%d)", i), "fontsize", 16, "rotation", 0);
endfor- Thread starter
- #4
Dear Programmer
Thank you very much for your help
The same results attached to your response are obtained using the dvode code.
My objective is to integrate the stiff equations for large time (infinity).
I don't know if the Lsode allows to resolve the stiff equations for large time
Again, i would thank you for your attention
best regards
Thank you very much for your help
The same results attached to your response are obtained using the dvode code.
My objective is to integrate the stiff equations for large time (infinity).
I don't know if the Lsode allows to resolve the stiff equations for large time
Again, i would thank you for your attention
best regards
To see how the method works, i first integrated Van der Pol equation on a very long interval [0, 3000]. That was without problem and I got results like here Then I tried your system but it computed without end.
However, Van der Pol consists only of 2 ODEs and your system of 11 ODEs.
Then, to get some result only for a demo purpose, I integrated it only on the small interval [0, 3].
The integration on longer interval was too slow on my PC. The stiffness of your system probably increases rapidly over longer intervals, the method must then choose very small steps and so the calculation is very CPU intensive.
However, Van der Pol consists only of 2 ODEs and your system of 11 ODEs.
Then, to get some result only for a demo purpose, I integrated it only on the small interval [0, 3].
The integration on longer interval was too slow on my PC. The stiffness of your system probably increases rapidly over longer intervals, the method must then choose very small steps and so the calculation is very CPU intensive.
- Status