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)