boucle d'iteration en language fortran

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].

Tu dois probablement faire quelque chose comme :

Code:

---

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:

---

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:

---

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/