Questions Maple

[invite6cbfdd18]

Bonsoir !
J'ai quelques questions concernant un exercice relatif à Maple.
On définit f sur R par f(t) = t^3 + t² + t + 1.

1. On me demande d'écrire une fonction Maple qui évalue f. Mais je ne comprends pas ce que l'on me demande... J'ai cherché et j'ai trouvé que cela était équivalent à résoudre l'équation mais je n'ai pas très bien compris.

2. On a montré que pour tout n>=1, il existe un et un seul réel xn>=0 tel que f(xn) = n. On nous demande d'écrire une fonction Maple qui calcule xn. J'ai alors pensé à une procédure qui trirait les différentes solutions en fonction du signe de xn ( problème dans C????? ), voilà ma procédure :

Solvation:=proc(x,n)
> solve(x^3+x^2+x+1=n,x);
> do; if x<0 then `Pas de solution`;
> else `Les solutions de l'équation sont : x`
> fi;
> od;
> end;

Mais ça ne marche pas lorsque je tape par exemple Solvation(x,0);

De l'aide svp ?
-----

[invite551c2897]

Bonjour.
Il y a toujours trois solutions. Il faut tester s'il y a des solutions réelles ou imaginaires.

restart:
> Solvation := proc(x,n)
> solve(x^3+x^2+x+1=n,x);;
> end;

[invite551c2897]

Bonjour.
Il y a toujours trois solutions. Il faut tester s'il y a des solutions réelles ou imaginaires.

restart:
> Solvation := proc(x,n)
> solve(x^3+x^2+x+1=n,x);;
> end;

une piste :

Solvation := proc(x,n) local s; 
> s:=solve(x^3+x^2+x+1=n,x);   
> if s[1] <=0 then print(`Les solutions de l'équation sont :`); s else print(`Pas de solution`) fi;
> en

[invite551c2897]

une piste :

Solvation := proc(x,n) local s; 
> s:=solve(x^3+x^2+x+1=n,x);   
> if s[1] <=0 then print(`Les solutions de l'équation sont :`); s else print(`Pas de solution`) fi;
> en

ou:

restart:
> Solvation := proc(x,n) local s; 
> s:=solve(x^3+x^2+x+1=n,x);   
> if  type(s[1],negative) then print(`Pas de solution`)else print(`Les solutions de l'équation sont :`); s  fi;
> end;

[A voir en vidéo sur Futura]

[invite6cbfdd18]

Merci beaucoup !
Je vais voir ça !