Suites [Maple]

[invite1570fb1c]

Bonjour, je vous solicite pour un peu d'aide sous maple, pour calculer les termes de la suite avec une boucle while...
U0 = 1 et par Un+1 = sin Un


PS: j'ai reussi avec une boucle for:
for i from 160 to 164 do evalf(sin(i)) end do;

Merci d'avance
-----

[invitec053041c]

Bonsoir.

Le mieux pour une suite récurrente, (à mon sens) est d'utiliser une séquence (liste).
Disons que le pc emmagasine tous les termes jusqu'au n-ième, mais comme on ne se limite pas toujours à l'étude du dernier terme...

suite:=proc(u0,n)

L:=[u0];

for i from 2 to n do
L:=[op(L),evalf(sin(L[i-1]))];

end do;
return L;
end proc;

Si tu veux que ton prog te retourne le dernier terme, il faudrait donc mettre return L[n]; à la place de return L;
A toi de moduler.

Cordialement.

[invite1570fb1c]

Merci pour cette astuce mais en fait je dois le faire en utilisant une boucle while c'est ca le probleme...

[invitec336fcef]

Je ne me rappelle plus la syntaxe exacte avec MAPLE, mais ce doit être un truc du genre:

i := 0;
Uo := 1;
Un := Uo;
While i<164 do
  Un1 := sin(Un)
  Un := Un1
  i := i+1
end;

désolé pour la sntaxe, cela fait des lustres que je n'ai pas pratiqué. Après correction, il suffit de changer la ligne Uo = pour changer le premier terme de la suite.

++

[A voir en vidéo sur Futura]

[invite4f9b784f]

Salut,

Je pense que c'est comme ça :

k:=1;
while i =< n do
u := sin(k);
k := u;
i:=i+1;
print(u);
od;

[invitec053041c]

Pas besoin de renommer la variable à chaque coup.
Cela semble bien fonctionner:

suite:=proc(a,n)
> local u,i;
> u:=a;
> i:=1;
> while i<n+1 do
> u:=evalf(sin(u));
> i:=i+1;
>
> end do;
>
> return u;
> end proc;


(le n+1 s'explique par l'inégalité stricte).
La seule chose que maple n'accepte pas, c'est d'utiliser dans ses calculs le "a" qu'on lui fournit dans suite(.,.) . D'où le fait que je nomme u:=a

[invite1570fb1c]

Merci beaucoup pour votre aide qui m'a été utile !
Bonne soirée