h = function(t) sin(3*t+1) k = function(t) 5*sin(t) HF=2-5; BF=2.5 PLANE(-5,5,-5,5) param(h,k, 0,7,"blue") # Lissajous Curve (un es. per valori particolari - 3 e 5 - dei parametri) # ------------------------------ F = function(x,y) y^2*(x^2+y^2)-x^2 PLANE(-2,2,-2,2) CURV(F,"blue") # Kappa Curve (un esempio) # ------------------------------ a = 1; b = 1/2; f = 1 x = function(t) (a^2+f^2*sin(t)^2)*cos(t)/a y = function(t) (a^2-2*f^2+f^2*sin(t)^2)*sin(t)/b PLANE(-1.5,1.5,-1.5,1.5) param(x,y, 0,2*pi, "blue") a = 1; b = 1; f = 1/2 PLANE(-1.5,1.5,-1.5,1.5) param(x,y, 0,2*pi, "blue") a = 1/2; b = 1; f = 1 PLANE(-1.5,1.5,-1.5,1.5) param(x,y, 0,2*pi, "blue") a = 3; b = 1; f = 2.9 PLANE(-5,5,-5,5) param(x,y, 0,2*pi, "blue") # Talbot’s Curve (alcuni esempi)