Construct the concentric and coaxial ellipses of constant area:

> restart;

> plot([[(2-k/40)*cos(t),80/(80-k)*sin(t),t=0..2*Pi]$k=0..40],scaling=constrained,axes=none,color=cyan);

>