Re: kreisZeit

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo zusammen,

hier noch die Schönschrift

In[1]:= Remove[ kreisZeit]
kreisZeit[\[Beta]_?NumericQ] :=
Module[{r0=2, \[Delta]=1/100,b=N[\[Beta]],anz,rds,sh,f,\[Tau]=60},
  anz=Floor[Log[b,\[Delta]/r0]];
  rds=r0 Table[b^o,{o,anz}];
  sh=(b-1) r0 Table[{0, b^o}, {o,0,anz-1}];
  f=PadRight[{},anz,{Blue,Red,Green}];
  Graphics[{{Thickness[0.01],Circle[{0,0},r0+0.0215]},
    Dynamic[{#[[1]],Disk[#[[2]],#[[3]]]}& /@
      Transpose[{f,Rest[FoldList[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]}&[
          Refresh[AbsoluteTime[],UpdateInterval->1]]]}]]],rds}]]}
  ]
]/; 1> \[Beta] >1/10

In[2]:= kreisZeit[Catalan]

kreisZeit wurde als Windows Bildschirmschoner implementiert; wer daran  
interessiert ist, sendet bitte ein ping.

Mit den besten Grüssen
Udo.