f(x)=1/2 x^2 sin(x)[br]#exp( ί * theta * x)= (cos(theta ))^x + ί (sin(theta ))^x[br]theta = Slider(-0.39, 0.45, 0.01, speed, 140, false, true, false, false)[br]Re(x) = real( ℯ^( ί * theta * x)) * f(x)[br]Im(x) = imaginary(ℯ^( ί * theta * x)) * f(x)[br][br]a=Slider(-3, 5, 0.1, 1, 140, false, true, false, false)[br]b=Slider(-3, 5, 0.1, 1, 140, false, true, false, false)[br][br]curve=Curve(t, Re(t), Im(t), t, a, b)[br]c= Plane( xAxis, zAxis )[br]curve'=Reflect(curve, c)[br]eps = 0.05[br]Segmts = Sequence(Segment((i, 0, 0), curve(i)), i, a, b, eps)[br][br]n=Slider(0, 180, 1, 1, 140, false, true, false, false)[br]SetValue(n, 180)[br]Execute(Sequence("A"+i+"=Segment((a+(b-a)*"+i+"/n, 0, 0), curve((a+(b-a)*"+i+"/n)))", i, 1, n))[br][br]Execute(Sequence("ShowLabel(A"+i+", false)", i, 1, n))[br][br]Execute(Sequence("SetDynamicColor(A"+i+", 0.3, "+i+"/n, 0.87)", i, 1, n))[br][br]Execute(Sequence("B"+i+"=Segment((a+(b-a)*"+i+"/n, 0, 0), curve'((a+(b-a)*"+i+"/n)))", i, 1, n))[br][br]Execute(Sequence("ShowLabel(B"+i+", false)", i, 1, n))[br][br]Execute(Sequence("SetDynamicColor(B"+i+", 0.3, "+i+"/n, 0.87)", i, 1, n))[br][br]faces=Slider(0, 4, 1, 1, 100, false, true, false, false)[br]u_1=(1,0,0)[br]u_2=(0,1,0)[br]u_3=(0,0,1)[br]u_4=(1;120°;-20°)[br]listvectordirection={u_1,u_2,u_3,u_4}[br]Selectedvector=Element(listvectordirection, faces)