Dans un premier temps, nous définissons l'équation implicite du système:
> x:='x':y:='y':z:=x+I*y: > F:=(z+1/z)/2-1;La fonction
> with(plots):Il ne reste plus qu'à tracer la courbe sur quelques intervalles intéressant:
> implicitplot(abs(F)=2,x=-2..2,y=-2..2); % Poisson d'avril! > implicitplot(abs(F)=2,x=-1.5..6.5,y=-4.2..4.2);