SIMU 1999 -- A linkage tracing out the ellipse

[Maple Math]

>

Computations

> ell:=plot([9*sin(t),cos(t),t=0..2*Pi],color=blue):

> LPlot:=animate({LOA,LOE,LEB,LAB,LAD,LAC,LDQ,LCQ,LCR,LAP,LPR},theta=0..2*Pi,color=red,scaling=CONSTRAINED,frames=50):

> display({ell,LPlot});

>