Sonnenblumenspielwiese mit Kreisen
Author: Prof. Dr. Dieter Riebesehl
Date: 13. Januar 2008

h gibt die 4. Nachkommastelle von q an!

r = Radius des ersten Kreises

Riebesehl, Jan 08

r = 0.17000000000000004 (slider from 0 to 1, step 0.01)
φ = 0.5984734005088556 rad (slider from 0 to 3.141592653589793, step 1.7453292519943296E-4)
q = 0.983 (slider from 0.95 to 1.01, step 0.0010)
h = 3 (slider from -10 to 10, step 1)
q1: q + h / 10000
L1 = Sequence((q1^(n) cos(n φ), q1^(n) sin(n φ)), n, 0, 1000)
L2 = Sequence((q1^(n) cos(n φ), q1^(n) sin(n φ)), n, 0, 1)
T1: "q = " + q1
L3 = Sequence((q1^(n) cos(n φ), q1^(n) sin(n φ)), n, 2, 3)
A = Sequence(Circle[Element[L1, n], r q1^(n - 1)], n, 1, 200)