Kurven sehen und verstehen

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

Kap 5.3.1 Hoch hinaus: Trisektrix 3D

a=1;
tris=Plot3D[{-(a+x)(y^2)+(3a-x)(x^2)},{x,-2,4},{y,-3,3},PlotRange->{-2,5},Mesh->None,
TicksStyle->{Red,RGBColor[0,0.7,0],Blue},
LabelStyle->Directive[Bold, Large], Boxed->False];
a=.
ebene=Plot3D[0,{x,-2,4},{y,-3,3}, PlotRange->{-1,2},PlotStyle->{{RGBColor[0,1,0,0.9]}}, PlotTheme->"Minimal"];
Show[tris,ebene]

Manipulate[Show[Plot3D[{-(a+x)(y^2)+(3a-x)(x^2)}/.a->1,{x,-2,4},{y,-3,3},PlotRange->{-2,5},Mesh->None,
TicksStyle->{Red,RGBColor[0,0.7,0],Blue},
LabelStyle->Directive[Bold, Large], Boxed->False],
Plot3D[hoehe,{x,-2,4},{y,-3,3}, PlotRange->{-2,4},PlotStyle->{{RGBColor[0,1,0,0.9]}}, PlotTheme->"Minimal"]
],
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","Trisektrix 3D:  "}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]

]