p = 1 ; k = 1 ; x0 = 6/5 ; g (* es folgt par =. . derselbe Zeichenbefehl .. *)

Out[133]=

1/2

In[134]:=

par = ImplicitPlot[y^2 == 2 p x - (1 - k^2) x^2, {x, -1, 3.5}, PlotRange -> {{-g - 0.1, 3.5 ... , 0}] <br />         } <br />] ;     

[Graphics:../HTMLFiles/namensgeheimnis_10.gif]

Converted by Mathematica  (July 28, 2003)