Bonjour,

j'y connais rien en Maple un tout petit peu plus en algorithme

En gros tu fais un truc dans ce genre:

Entrée a,b,resultat
n=0
U(0)=a
V(0)=b

rentrer réel >0 :eps

tant que (|v(n)-u(n)|>eps)

n=n+1,
v(n+1)=rac(u(n)v(n))
u(n+1)=un+vn/2

retourner v(n);

Ok et est ce que quelqu'un serait-il faire ?
Cauchy the best mathematicien !!!

salut,je garantis rien,
je me sert de ce qu'à écrit Cauchy:

amplitude:=proc(a,b,U,V)
local n,k;
n:=0;
U[0]=a;
V[0]=b;
assume e>0;
while abs(V[n]-U[n])>e do
for k from 0 to n do
V[n+1]=sqrt(U[n].V[n]);
U[n+1]=U[n]+V[n]/2;
od;
od;
V[n];
end;
je sais pas trop mais ça doit ressembler à un truc comme ça.
(le match commence j'y vais,bon courage)

J'ai taper tout cela dans mapple en faisant attention ca marche pas enfin il y a des problemes de syntaxes.Je pense qu'il faudrait les boules "pour" et "tantque" de mapple nan ?

Pardon les boucles !!

Bien apres la syntaxe c'est à toi de voir.

Désolé ca fait 4 fois que j'essaye différement ca ne marche pas.Auriez vous une autre idée de programmation ?

n'étant pas le roi de maple,je prefere te redirigé vers un site qui m'a bien aidé et qui est vraiment pas mal,tu  y trouvera des personnes plus calés que moi et Cauchy en mpale.
Bonne chance à toi

Moi j'ai jamais rien programmé en Maple donc par contre en C pas de problème

Si quelqu'un avait Mapple, pourrait-il taper ca :

z:=proc(a,b,E);
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;

Je pense que c'est le bon algorithme pour mon ennoncé.Pouvez vous verifier ?

je te le fais tout de suite

par contre y'a pas de   ;  après z:=proc(a,b,E)
par contre je crois que t'as oublié de préciser ce qui varie
bon atten je l'essaye

elle marche mais après proc  rajoute une ligne avec local u,v,w,x;

par contre ca m'étonne que cauchy est jamais programmé en maple!

moi aussi!!!
de toute façon il sait faire du C donc le maple il lui suffira de 2/3 semaines ....

oui j'avais oublié qu'on parlait de cauchy!

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;

Ca ferait ca ?Quelqu'un pourrait il obtenir un Screen de Mapple que je l'imprime avec le bon algorithme ?

Merci grandement

ouais avec le local a la ligne c'est mieux! moi je te le ferais bien mais je sais pas comment faire!

Ben juste un copié collé dans Mapple car moi je ne l'ai pas le logiciel et il est payant.Je ne vais juste l'acheter pour faire un calcul
Enfin ca serait cool

Merci

> 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;

>

                 z := proc(a, b, E)  ...  end;

tu fais un imp ecr syst (touche en haut a droite de ton clavier...puis tu va dans exécuter,mspaint et tu colle (crtl v ou c ché plus.)
tu enregistre et tu lui envoie ici en cliquant sur l'onglet en bas ou il y a la colline.

oula ca passe mal!

bon faut que je rétrécice la taille: elle fait 3mo la capture d'écran

le fichier est trop gros

si je diminue la qualité tu verras plus la préocédure...

voila le truc,tu veux la fin aussi?

bon bé voila !robby essaye de jeter un coup d'oeil sur l'intégrla impropre

enfin si t'as envie!

Ok simpa c'est cool les gars !!!

derien!

Deux rien Verbatim74!!!

je te rejoins biento pour la topo robby!

Et non j'ai jamais fait de Maple.

Sinon en analyse numérique j'ai juste touché à scilab mais bon je gère pas