x[t_]:=Cos[t];
y[t_]:=Sin[t];
a=0.2;u=0.9;
bild1=ParametricPlot[{x[t],y[t]},{t,0,2 Pi}, DisplayFunction->Identity];
bild2=ParametricPlot[{a x[t],a y[t]},{t,0, 2 Pi}, DisplayFunction->Identity];
bild3=Show[Table[ListPlot[{{x[t],y[t]},{x[t],y[t]-u}},
            PlotJoined->True,
            DisplayFunction->Identity],
 {t,0.1,2 Pi,2 Pi/32}],DisplayFunction->Identity];
bild4=ListPlot[Table[{x[t],y[t]-u},{t,0.1,2 Pi,2 Pi/32}],DisplayFunction->Identity];
bild=Show[bild1,bild2,bild3,bild4,DisplayFunction->$DisplayFunction,
ImageSize->{400,300}];