Dopple-Pendel-Harminonograph

https://en.wikipedia.org/wiki/Ellipse#General _parametric _form

Ellipsengleichung:
X(t)=(Subscript[X, c])+a cos(t)cos(ϕ)-b sin(t)sin(ϕ)
Y(t)=(Subscript[Y, c])+a cos(t)sin(ϕ)+b sin(t)cos(ϕ)

SetDirectory[NotebookDirectory[]]

Einzel-Pendel

(*r11=1;
r12=0.5;
ω1=((2π)/360);
Ω1=((2π)/36000);
spirale={r11*Cos[t*ω1]*Cos[t*Ω1]-r12*Sin[t*ω1]*Sin[t*Ω1],r11*Cos[t*ω1]*Sin[t*Ω1]+r12*Sin[t*ω1]*Cos[t*Ω1]};
graph=Table[spirale,{t,1,12000}];
ListLinePlot[graph]

Doppel-Pendel

(*=================================Schwingesnder Stift==========================================*)
r11=.5;
r12=.15;
ω1=(π/60);
Ω1=((1π)/3600);
δ1=0.5;
τ1=(0/2000);
stift=(E^(-t*τ1))*{r11*Cos[t*ω1+δ1]*Cos[t*Ω1]-r12*Sin[t*ω1+δ1]*Sin[t*Ω1],r11*Cos[t*ω1+δ1]*Sin[t*Ω1]+r12*Sin[t*ω1+δ1]*Cos[t*Ω1]};
(*=================================Schwingender Tisch==========================================*)
r21=1;
r22=.6;
ω2=ω1*3;
Ω2=Ω1*((-1)/3);
δ2=π/2;
τ2=(0/1000);
tisch=(E^(-τ2*t))*{r21*Cos[t*ω2+δ2]*Cos[t*Ω2]-r22*Sin[t*ω2+δ2]*Sin[t*Ω2],r21*Cos[t*ω2+δ2]*Sin[t*Ω2]+r22*Sin[t*ω2+δ2]*Cos[t*Ω2]};

(*=====================================Berrechnung=============================================*)
graph=Table[stift+tisch,{t,0,20000}];
bild=ListLinePlot[graph,Axes->False,AspectRatio->1,PlotRange->{{-2,2},{-2,2}},PlotStyle->{Black,Thickness[Small](*Thin*)},InterpolationOrder->2]

Neues Speichern

Sort[FileNames["harmonograph"~~___~~".png"]];
(StringCases[%[[Length[%]-1]],DigitCharacter ..]//ToExpression//First)+1;
Export["harmonograph"~~ToString[%]~~".png",bild,ImageSize->2000];

Altes Überschreiben

altenummer=

Export["harmonograph"~~ToString[altenummer]~~".png",bild,ImageSize->2000];