Kurven sehen und verstehen

Haftendorn Februar 2017, http://www.kurven-sehen-und-verstehen.de

Kap 5.3.4.1 Hoch hinaus: 
 Quartiken nach Felix Klein

elli1=x^2/a^2+y^2/b^2-1
elli2=x^2/c^2+y^2/d^2-1
elli3=(x-2.05)^2/e^2+(y-1.72)^2/f^2-1
elli4=(x-1)^2/e2^2+(y-1.72)^2/f^2-1

{a,b,c,d,e,f,e2}={4,2,2.5,3,1.8,1.03,4}

Manipulate[
Plot3D[{elli1 elli2, 0.01*fak*elli3}//Evaluate,{x,-5,5},{y,-4,4},
Mesh->None, PlotRange->{-0.25,1},PlotPoints->100, TicksStyle->{Red,RGBColor[0,0.7,0],Blue},AxesOrigin->{-0,0,0},PlotPoints->100,ClippingStyle->None,ColorFunction->{"Rainbow"},
LabelStyle->Directive[Bold, Large], Boxed->False, Axes->False]
,
Style["Klein'sche Quartiken",30],
Style["\n\nBewege die Grafik mit der Maus!",14],
Style["\nTrage auch andere Faktoren aus [0,5] ein!",14],
{{fak,1},-1,2,0.25, Paneled},
FrameLabel->{{None,None},{"www.kurven-erkunden-und-verstehen.de",None}},
LabelStyle->Directive[RGBColor[0.7,0,0],Medium],
SaveDefinitions->True]