r := 3: T := 4: w := 2*PI/T: v := w*r/6:

n := 72: // Anzahl der Bilder

// Kreisbewegung

punkte   := plot::Point2d([r*cos(w*t),r*sin(w*t)], PointSize=2, t=0..T, Frames=n):

radien   := plot::Line2d([0,0],[r*cos(w*t),r*sin(w*t)], t=0..T, Frames=n):

dx       := plot::Line2d([r*cos(w*t),0],[r*cos(w*t),r*sin(w*t)], Color=RGB::Green, t=0..T, Frames=n):

dy       := plot::Line2d([0,r*sin(w*t)],[r*cos(w*t),r*sin(w*t)], Color=RGB::Green, t=0..T, Frames=n):

vektoren := plot::Arrow2d([r*cos(w*t),r*sin(w*t)],[r*cos(w*t)-v*sin(w*t),r*sin(w*t)+v*cos(w*t)], Color=RGB::Red, t=0..T, Frames=n):

linien   := plot::Line2d([r*cos(w*t),r*sin(w*t)],[t,r*sin(w*t)], Color=RGB::Green, t=0..T, Frames=n):

kurve    := plot::Circle2d(3,[0,0]):

// Schwingung (x=0)

punkte0  := plot::Point2d([0,r*sin(w*t)], PointSize=2, t=0..T, Frames=n), AxesVisible=FALSE:

dy0      := plot::Line2d([0,3], [0,r*sin(w*t)], Color=RGB::Green, t=0..T, Frames = n):

linien0  := plot::Line2d([0,r*sin(w*t)],[t,r*sin(w*t)], Color=RGB::Green, t=0..T, Frames=n):

// Sinus

punkteS  := plot::Point2d([t,r*sin(w*t)], PointSize=2, t=0..T, Frames=n):

kurveS   := plot::Function2d(r*sin(w*t),t=0..T):

plot(punkte, radien, vektoren,

     Scaling=Constrained

)

plot(punkte, kurve, linien, punkteS, kurveS,

     Scaling=Constrained

)

plot(punkte0, dy0, punkteS, kurveS,

     Scaling=Constrained

)