SIMU 1999 -- A linkage tracing out the ellipse
>
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});
>