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

Out[135]=

4/3

In[136]:=

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

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

Converted by Mathematica  (July 28, 2003)