The following script plots the partial sums of a complex sequence. You need to run the script in your computer. Otherwise, will be very slow online.

[code]m=Slider(1, 600, 1, 1, 130, false, true, false, false)[br][br]#To plot the complete spiral, change 600 for 2400. But be careful! It gets pretty laggy[br][br]SetValue(m, 600) [br][br]L_1=Sequence( (cos( 2 * pi *( log(k)^4) ), sin(2 * pi * ( log(k)^4 )) ), k, 1, m )[br][br]SetVisibleInView(L_1, 1, false)[br][br]Execute(Sequence("A"+k+"=Sum(L_1, "+k+")", k, 1, m))[br][br]Execute(Sequence("SetVisibleInView(A"+k+", 1, false)", k, 1, m))[br][br]Execute(Sequence("B"+k+"=Segment(A"+k+", A"+(k+1)+")", k, 1, m-1))[br][br]Execute(Sequence("ShowLabel(B"+k+", false)", k, 1, m))[br][br]#Finally change the color mode to HSV and run the following[br][br]Execute(Sequence("SetDynamicColor(B"+k+", "+k+"/300, 1, 0.6)", k, 1, m))[br][br]#Enjoy[br][br][br][br][br][br][br][/code]

m=Slider(1, 600, 1, 1, 130, false, true, false, false)[br][br]#To plot the complete spiral, change 600 for 2400. But be careful! It gets pretty laggy[br][br]SetValue(m, 600) [br][br]f(x) = ln(x)^(4)[br][br]Lm = 1..m[br][br]L_1 = Zip( exp( 2 * pi * ί * f(k) ), k, Lm )[br][br]SetVisibleInView(L_1, 1, false)[br][br]Execute(Zip("A"+k+"=Sum(L_1, "+k+")", k, Lm))[br][br]Execute(Zip("SetVisibleInView(A"+k+", 1, false)", k, Lm))[br][br]Execute(Zip("B"+k+"=Segment(A"+k+", A"+(k+1)+")", k, Lm))[br][br]Execute(Zip("ShowLabel(B"+k+", false)", k, Lm))[br][br]Execute(Zip("SetDynamicColor(B"+k+", "+k+"/600, 1, 0.6)", k, Lm))