Hallo,
hier noch die Schönschrift
und auch noch die Funktion kreisZeyt[]
In[17]:= Remove[ kreisZeyt]
kreisZeyt[\[Beta]_?NumericQ, T_?NumericQ] :=
Module[{r0=2, \[Delta]=1/100,b=N[\[Beta]],anz,sh,\[Tau]=60, t},
anz=Floor[Log[b,\[Delta]/r0]];
sh=(b-1) r0 Table[{0, b^o}, {o,0,anz-1}];
Graphics[{{Thickness[0.01],Circle[{0,0},r0+0.0215]},
Line[Table[Fold[RotationTransform[#2[[2]],#1][#1-#2[[1]]]&, {0,0},
Transpose[{sh,-6 PadRight[{},anz,{5
Mod[#/\[Tau]^2,\[Tau]]\[Degree],Mod[#/\[Tau],\[Tau]]\[Degree],Mod[#,\[Tau]]\[Degree]}&[t]]}]],
{t, 0, T}]]}
] ]/;1>\[Beta]>1/10 && T > 0 zur Anzeige der Bahnkurve des Mittelpunkts des kleinsten Kreises, z.B. In[22]:= kreisZeyt[0.54, 12 60 60] als Bildchen in der Beilage. Man sieht eine elfzählige Symmetrie, keine zwölfzählige. Gruss Udo.
kreisZeyt_1.jpeg
Description: JPEG image
