Discussion :

[saida29]

Bonjour

comment je peut ecrire en fortran un boucle iteratif qui s'arrète lorsque la condition de convergence est verifiée . La condition de convergence est : la difference entre deux valeurs obtenues par deux iteration successive (X(iter2)-X(iter1)) est faible de l'ordre de [10][-3].

[Sylvain Bergeron]

Tu dois probablement faire quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
xprec = valeur inattendue (pour éviter de tester x(1) avec x(0) qui n'existe pas dans mon exemple)
do i = 1, 10
   x(i) = ...
   if (abs(x(i) - xprec) < 0.001) exit
   xprec= x(i)
enddo

Sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
xprec = valeur inattendue
do
   x = ...
   if (abs(x - xprec) < 0.001) exit
   xprec= x
enddo

Ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
xprec = valeur inattendue
diff = 1.0
do while(diff >= 0.001)
   x = ...
   diff = abs(x - xprec)
   xprec= x
enddo

Pour plus de détails : http://fortran.developpez.com/