Complex parametric curves
Scripting
f(x)=sin(x)+cos(x^2)
#exp( ί * theta * x)= (cos(theta ))^x + ί (sin(theta ))^x
theta = Slider(0, 5, 0.01, 1, 140, false, true, false, false)
Re(x) = real( ℯ^( ί * theta * x)) * f(x)
Im(x) = imaginary(ℯ^( ί * theta * x)) * f(x)
a=-pi
b=pi
curve=Curve(t, Im(t), Re(t), t, a, b)
eps = 0.05
Segmts = Sequence(Segment((i, 0, 0), curve(i)), i, a, b, eps)
n=Slider(0, 150, 1, 1, 140, false, true, false, false)
SetValue(n, 150)
Execute(Sequence("A"+i+"=Segment((a+(b-a)*"+i+"/n, 0, 0), curve((a+(b-a)*"+i+"/n)))", i, 1, n))
Execute(Sequence("ShowLabel(A"+i+", false)", i, 1, n))
Execute(Sequence("SetDynamicColor(A"+i+", "+i+"/n, 0.38, 0.99)", i, 1, n))
faces=Slider(0, 4, 1, 1, 100, false, true, false, false)
u_1=(1,0,0)
u_2=(0,1,0)
u_3=(0,0,1)
u_4=(1;120°;-20°)
listvectordirection={u_1,u_2,u_3,u_4}
Selectedvector=Element(listvectordirection, faces)