#Curve(cos(t) + 1, cos(t) + 1, sin(t), t, -π, π)[br]#Surface(u cos(u) (cos(v) + 1), u sin(u) (cos(v) + 1), u sin(v), u, 0, π, v, -π, π)[br]#Surface(a (ℯ^(u / b) - 1) cos(u) cos(v / 2)², a (1 - ℯ^(u / b)) sin(u) cos(v / 2)², ℯ^(u / b) sin(v) - ℯ^(u / c) - sin(v) + 3, u, 0, 4π, v, 0, 2π)[br][br]a = 2[br]b = 21.95[br]c = 16.35[br]n = 300[br][br]#Curve(a (ℯ^((("+i+"-1)*3 pi / (n-1)) / b) - 1) cos(("+i+"-1)*4 pi / (n-1)) cos(t / 2)², a (1 - ℯ^((("+i+"-1)*3 pi / (n-1)) / b)) sin(("+i+"-1)*4 pi / (n-1)) cos(t / 2)², ℯ^((("+i+"-1)*3 pi / (n-1)) / b) sin(t) - ℯ^((("+i+"-1)*3 pi / (n-1)) / c) - sin(t) + 1, t, -π, π)[br][br]Execute(Sequence("A"+i+" = Curve(a (ℯ^((("+i+"-1)*3 pi / (n-1)) / b) - 1) cos(("+i+"-1)*4 pi / (n-1)) cos(t / 2)², a (1 - ℯ^((("+i+"-1)*3 pi / (n-1)) / b)) sin(("+i+"-1)*4 pi / (n-1)) cos(t / 2)², ℯ^((("+i+"-1)*3 pi / (n-1)) / b) sin(t) - ℯ^((("+i+"-1)*3 pi / (n-1)) / c) - sin(t) + 2, t, -π, π)", i, 1, n))[br][br]Execute(Sequence("ShowLabel(A"+i+", false)", i, 1, n))[br][br]Execute(Sequence("SetLineThickness(A"+i+", 13)", i, 1, n))[br][br]f(x) = 1/2 sin( 0.3 x ) + 1/2[br][br]t = Slider(0, 20 pi / 4, 0.01, 1, 140, false, true, false, false)[br][br]val = random()[br][br]red =random()[br]green = random()[br]blue = random()[br][br]Execute(Sequence("SetDynamicColor( A"+i+", If( val < 1/3, f("+i+" + t), red), If( 1/3<= val < 2/3, f("+i+" + t), green), If( 2/3<= val, f("+i+" + t), blue))", i, 1, n))