Check the first version of the script in the applet. [br][br]The following is an updated version using the command Zip:[br][br]##-- Set initial values --##[br]m = 5[br]Lm = Sequence(m)[br]#Complex numbers and frequencies#[br]Cx = Zip(RandomUniform(-2,2), l, Lm)[br]Cy = Zip(RandomUniform(-2,2), l, Lm)[br]n = Zip(RandomBetween(-30, 30), l, Lm)[br][br]#Calculate components: C * exp(n * i * x)#[br]cX = Zip(cx * cos(nr * x) - cy * sin(nr * x), cx, Cx, cy, Cy, nr, n)[br]SetVisibleInView(cX, 1, false)[br]cY = Zip(cx * sin(nr * x) + cy * cos(nr * x), cx, Cx, cy, Cy, nr, n)[br]SetVisibleInView(cY, 1, false)[br][br]#Choose a random number #[br]r = RandomBetween(2, m)[br][br]#Set the sums of components#[br]fx(x)= Sum(cX, r)[br]fy(x)= Sum(cY, r)[br]SetVisibleInView(fx, 1, false)[br]SetVisibleInView(fy, 1, false)[br][br]####[br]#For testing[br]s = Slider(0, 4 pi, pi/2, 1, 150, false, true, false, false)[br]SetValue(s, 4 pi)[br]a = Curve(fx(t), fy(t), t, 0, s)[br]ShowLabel(a, false)[br]SetColor(a, 0.85, 0.85, 0.85)[br]#b = Curve(fx(t), fy(t), t, int + pi, int + val + pi)[br]#c = Curve(fx(t), fy(t), t, int, int + val)[br]####[br][br]##-- Curves --##[br][br]#Animation setup#[br]speed = Slider(0, 4, 0.01, 1, 150, false, true, false, false)[br]SetValue(speed, 0.55)[br]SetVisibleInView(speed, 1, false)[br]SetVisibleInView(speed, 2, true)[br]int = Slider(0, 2 pi, 0.01, speed, 150, false, true, false, false)[br]SetVisibleInView(int, 1, false)[br]SetVisibleInView(int, 2, true)[br][br]#Auxiliar values#[br]#Number of sections[br]nb = 10[br]#Thickness[br]th = 2.5[br]#Index for curves[br]Lk = Sequence(nb)[br]#Names for curves[br]LnameA= Zip("secA"+Text(n)+"", n, Lk)[br]LnameB= Zip("secB"+Text(n)+"", n, Lk)[br]SetVisibleInView(LnameA, 1, false)[br]SetVisibleInView(LnameB, 1, false)[br]#Slider to set the length of the curve[br]val = Slider(0.01, pi/4, 0.01, 1, 150, false, true, false, false)[br]SetValue(val, RandomUniform(0.06, pi/4))[br]SetVisibleInView(val, 1, false)[br]SetVisibleInView(val, 2, true)[br]#Plot curves[br]Execute(Zip(""+name+" = Curve( fx(t), fy(t), t, int + pi + ("+k+"-1)* val / nb, int + pi + "+k+" * val / nb )", name, LnameA, k, Lk))[br]Execute(Zip(""+name+" = Curve( fx(t), fy(t), t, int + ("+k+"-1)* val / nb, int + "+k+" * val / nb )", name, LnameB, k, Lk))[br][br]##-- Settings: Colors and Thickness --##[br][br]R = random()[br]G = random()[br]B = random()[br]Execute(Zip("ShowLabel("+name+", false)", name, LnameA))[br]Execute(Zip("SetLineThickness("+name+", th * "+k+")", name, LnameA, k, Lk))[br]Execute(Zip("SetDynamicColor("+name+", R, G, B)", name,LnameA))[br][br]Execute(Zip("ShowLabel("+name+", false)", name, LnameB))[br]Execute(Zip("SetLineThickness("+name+", th * "+k+")", name, LnameB, k, Lk))[br]Execute(Zip("SetDynamicColor("+name+", 1-R, 1-G, 1-B)", name,LnameB))[br][br]SetBackgroundColor("Black")[br]ShowGrid(false)[br]StartAnimation(int, true)[br]ShowAxes(false)