Ellipse in 3D

Elipse mit Brennpunkt im Raum:

box=False;
Row[{" Box ",Checkbox[Dynamic[box]],
Show[ParametricPlot3D[{5.46Cos[λ],2.5Sin[λ],0},{λ,0,2π},PlotStyle->Thick,Boxed->Dynamic[box],Axes->False,ImageSize->600],Graphics3D[{Red,PointSize[0.012],Point[{4.854,0,0}]}]]}]

Aufsicht und Verkürzungsfaktor in x-Richtung bei schräger Ansicht (Sichtvektor normal zur y-Richtung):

achsen=False;
Manipulate[
Row[{"Achsen ",Checkbox[Dynamic[achsen]],Show[ParametricPlot[{faktor*5.46Cos[λ],2.5Sin[λ]},{λ,0,2π},PlotRange->{{-5.9,5.9},{-2.7,2.7}},PlotStyle->{Black,Thick},Axes->achsen,ImageSize->600],Graphics[{Red,PointSize[0.012],Point[{faktor*4.854,0}]}]]}],{{faktor,1,"Verkürzungsfaktor"},0,1,Appearance->"Labeled"}]