Kurven sehen und verstehen

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

Kap 5.3.2.1 Hoch hinaus: Rotation
Variante des Newton-Knotens

Manipulate[Show[ContourPlot3D[x^2+y^2-z^3-z^2+0.02==0,{x,-2,2},{y,-2,2},{z,-1,2},ColorFunction->"Pastel", Mesh->None, TicksStyle->{Red,RGBColor[0,0.7,0],Blue},AxesOrigin->{-7,5,0},PlotPoints->100,
LabelStyle->Directive[Bold, Large], Boxed->False],
Plot3D[hoehe,{x,-2,2},{y,-2,2}, PlotRange->{-1,2},PlotStyle->{{RGBColor[0,1,0,0.9]}}, PlotTheme->"Minimal"],ImageSize->350],
Style["Newton Knoten 3D",30],
Style["\n\nBewege die Grafik mit der Maus!",14],

Style["\nTrage auch andere Höhen aus [-1,2] ein!",14],
{{hoehe,1},-1,2,0.25,Appearance->"Open"},
FrameLabel->{{None,None},{"www.kurven-erkunden-und-verstehen.de",None}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]

]