un poisson en retard

[alb]

Pêché sur http://www.apprendre-en-ligne.net/blog/index.php/p2

Code : Tout sélectionner

implicitplot((x^2-y^2-7/2)^2-(1-y^2)*(9/2-2x)^2,x,y,xstep=0.001,ystep=0.001)

La courbe présente 4 trous, xstep et ystep étant sans influence.

[parisse]

en effet, il y a du travail à faire pour améliorer le traitement des points singuliers. J'essaierai d'y penser une fois l'année universitaire terminée!

[parisse]

Des reglages qui permettent de voir le poisson en entier

Code : Tout sélectionner

implicitplot((x^2-y^2-7/2)^2-(1-y^2)*(9/2-2x)^2,x=-4..1,y=-1..1,xstep=0.001,ystep=0.001);
implicitplot((x^2-y^2-7/2)^2-(1-y^2)*(9/2-2x)^2,x=1.1..2.5,y=-1..1,xstep=0.001,ystep=0.001);

En voici un mieux que Renee me communique

Code : Tout sélectionner

avril(a,b):={
local L;
L:=NULL;
L:=L,plotode([-y+b,-1+(x-a)^2+(y-b)^2], [t=-3..3,x,y],[0,a+1,b+0.1],plan);
L:=L,plotode([-y+b,-1+(x-a)^2+(y-b)^2], [t=-3..3,x,y],[0,a+1,b+0.5],plan);
L:=L,plotode([-y+b,-1+(x-a)^2+(y-b)^2], [t=-6..3.65,x,y],[0,a+0.827,b+0.827],plan);
L:=L,plotode([-y+b,-1+(x-a)^2+(y-b)^2], [t=-1.3..1.3,x,y],[0,a-1.1,b],plan);
return L;
}:;

puis on peut faire un banc de poisson

Code : Tout sélectionner

avril(0,0); avril(3,-2); avril(-3,2); avril(-2,4); avril(3,4)