Kugelkoordinaten

Dörte Haftendorn: Kurven erkunden und verstehen, Springer, Abb.2.10 Seite 30,
 http://www.kurven-erkunden-und-verstehen.de

Demozeichnung für Kugelkoordinaten

unten=SphericalPlot3D[{4},{θ,Pi/2,Pi},{ϕ,0,4Pi/2},PlotStyle->{RGBColor[0.8,0.8,0.5,0.3]},    TicksStyle->{Red,RGBColor[0,0.7,0],Blue},AxesOrigin->{0,0,0},Mesh->None,
LabelStyle->Directive[Bold, Medium], Boxed->False]  (* Angleichung an die Achsen aus GeoGebra *)

oben=SphericalPlot3D[{4},{θ,0,Pi/2},{ϕ,Pi/2,4Pi/2},    TicksStyle->{Red,RGBColor[0,0.7,0],Blue},AxesOrigin->{0,0,0},PlotStyle->{RGBColor[0.8,0.8,0.5,0.3]},Mesh->None,
LabelStyle->Directive[Bold, Medium], Boxed->False]

zp=(Sqrt[16-2^2-2.2^2])

fahr=ParametricPlot3D[{2t,2.2t,zp t},{t,0,1}];
senk=ParametricPlot3D[{2,2.2,zp t},{t,0,1}];
r1=ParametricPlot3D[{2t,2.2t,0},{t,0,1}];
yps=ParametricPlot3D[{2,2.2t,0},{t,0,1}];
ix=ParametricPlot3D[{2t,0,0},{t,0,1}];

pkt=ListPointPlot3D[{{2,2.2,zp}},PlotStyle->{PointSize[0.04]},Filling->Bottom];
ur=ListPointPlot3D[{{0,0,0}},PlotStyle->{PointSize[0.02]},Filling->Bottom];

theta=ArcTan[((Sqrt[2^2+2.2^2]))/zp]

ebe=ParametricPlot3D[{2xt,2.2xt,z},{xt,0,1},{z,0,zp}, PlotStyle->{RGBColor[0.7,1,0.7,0.2]},
Mesh->None];
zcirc=ParametricPlot3D[{2 ,   Cos[w] ,2 Sin[w]},{t,0,1},{w,0,theta}];

aew=ParametricPlot3D[{1.8 Cos[w],1.8 Sin[w],0},{w,0,1ArcTan[2.2/2]}, PlotStyle->Red];
polw=ParametricPlot3D[{2 Cos[w] 2.2,2 Sin[w]2,},{w,0,1ArcTan[2.2/2]}];

Show[{oben,unten,ur,pkt,fahr, senk,r1,ix,yps,aew,ebe(*,zcirc*)},PlotRange->{-4,4}]