Apprendre Maple

[verbatim741]

Bonjour je ne sais pas si vous vous y connaissez en Mapple mais je recherche a ecrire un algorithme.Pourriez vous m'aider ?

Voila l'ennoncé :

Soit 2 réels a et b tels que 0<b<a
Soit (Un) et (Vn) les suites definies par U(0)=a et V(0)=b et : n,U(n+1)=(Un+Vn)/2 et V(n+1)=Racine(UnVn).
(Indication les suites sont adjacentes de limite commune donc on a pour tout n , V(n)U(n)

Question : Ecrire un algorithme qui prend en entrées a,b et un réel >0 et qui retourne en encadrement de d'amplitude
et une appromximation de à /2 près.

J'ai deja taper cela mais pouvez vous le corriger c'est très important c'est pour mon proff de Sup.Merci
Ma reponse surement fausse :

z:=proc(a,b,E)

> local u,v,w,x;

> u:=a;

> v:=b;

> while E <= evalf(abs(u-v)) do

> w:=(u+v)/2;

> x:=sqrt(u*v);

> u:=w;

> v:=x;

> od;

> print(u,v,(u+v)/2);

> end;

Merci

[zozo]

z:=proc(a,b,E)

> local u,v,w,x;

> u:=a;

> v:=b;

> while E <= evalf(abs(u-v)) do

> w:=evalf((u+v)/2);

> x:=evalf(sqrt(u*v));

> u:=w;

> v:=x;

> od;

> print(u,v,(u+v)/2);

> end;

Bonjour, ça a pas l'air mal: j'ai rajouté evalf et c'est tout.
A+