[size=150]#=======================[br]# Inspired by [url=https://www.geogebra.org/u/daniel+mentrard]Daniel Mentrard[/url][br]#=======================[br][br]#=======================[br]# Initial values[br]#=======================[br][br]N = 200[br]M = Slider(0, N, 1, 1, 160, false, true, false, false)[br]SetValue(M, N)[br]Lm = Sequence(0, M)[br]speed = 0.001[br][br]a = Slider(0, 6.2812, 0.001, speed, 130, false, true, false, false)[br]SetValue(a, 1 / 2 + sqrt(5) / 2)[br][br]#=======================[br]# Functions[br]#=======================[br][br]Px(x) = cos(pi * 2 * a * x) * sin(acos(1 - 2 * x / M))[br]Py(x) = sin(pi * 2 * a * x ) * sin(acos(1 - 2 * x / M))[br]Pz(x) = cos(acos(1 - 2 * x / M))[br][br]#=======================[br]# Points and spheres[br]#=======================[br][br]Ps = Zip((Px(k), Py(k), Pz(k)), k, Lm)[br]Ss = Zip(Sphere(1 / 2 * P, 1 / 2), P, Ps)[br][br]#=======================[br]# Settings :-)[br]#=======================[br][br]SetVisibleInView(Ps, 1, false)[br]SetPointSize(Ps, 2)[br]SetColor(Ps, "Black")[br][br]SetColor(Ss, "GAINSBORO")[br]SetFilling(Ss, 1)[br][br]ShowAxes(false)[br]ShowGrid(false)[br]SetBackgroundColor("GAINSBORO")[/size]