θ = 2.399963229728653 (slider from -1.5707963267948966 to anguloro, step 1.0E-6)
R = 0.992 (slider from 0.98 to 1.1, step 1.0E-4)
anguloro: (π * (3 - sqrt(5)))
z_1: (R * exp((ί * θ)))
numpts = 95 (slider from 1 to 150, step 1)
latís = Sequence(z_1^(n), n, 0, numpts)
radios = Sequence(Segment[latís(n), 0 + (0 * ί)], n, 1, numpts + 1)
Radios = false
O = Intersect(xAxis, yAxis)
c = Circle(O, 1)
r = Segment(O, z_1)
Θ = Angle(xAxis, r)