Kurven sehen und verstehen

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

Kap 5.3.1 Hoch hinaus: 
 Konchoide des Nikomedes 3D

Manipulate[Show[Plot3D[{k^2 (y^2)-(x^2+y^2)(y-a)^2}/.{a->2,k->3},{x,-10,10},{y,-2,5},PlotRange->{-10,86},Mesh->None,
TicksStyle->{Red,RGBColor[0,0.7,0],Blue},
LabelStyle->Directive[Bold, Large], Boxed->False],
ContourPlot3D[{y==2},{x,-10,10},{y,-2,5}, {z,-10,60}],
Plot3D[hoehe,{x,-10,10},{y,-2,5}, PlotRange->{-10,50},PlotStyle->{{RGBColor[0,1,0,0.9]}}, PlotTheme->"Minimal"], 
ImageSize->350],
Style["Bewege die Grafik mit der Maus!",14],
Style["\nTrage auch andere Höhen ein!",14],
{{hoehe,0},-2,4,0.25,Appearance->"Open"},
FrameLabel->{{None,None},{"www.kurven-erkunden-und-verstehen.de","Kochchoide des Nikomedes"}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]

]