Google Classroom
GeoGebraGeoGebra Classroom

Sacred spiral

Inspired by George Wengler from this applet: Spirale

Script

n = 500 t = random() * 100 s = random() * 100 c2 = random() c3 = random() Ln = 1..n a = Mod(s * t, 360) Lname = Zip("seg"+Text(k), k, Ln) #P = Zip( ( 1/n * k * cos(pi/180 * a * k), 1/n * k * sin(pi/180 * a * k)), k, Ln) fx(x,y,z) = 1/x * y * cos(pi/180 * z * y) fy(x,y,z) = 1/x * y * sin(pi/180 * z * y) Execute(Zip( name+" = Segment( (fx(n, "+k+", a), fy(n, "+k+", a)), (fx(n, "+(k+1)+", a), fy(n, "+(k+1)+", a)) ) ", k, Ln, name, Lname)) Execute(Zip("ShowLabel("+name+", false)", name, Lname)) map(v, x, y, z, w) = z + (v - x) * (w- z) / (y - x); Execute(Zip("SetDynamicColor("+name+", map("+k+", 1, 500, 0, 1), c2, c3)", name, Lname, k, Ln)) ShowGrid(false) ShowAxes(false) CenterView((0,0)) SetBackgroundColor( "Black" )