bild1=ParametricPlot3D[{mu,0,0},{mu,-2,0},AxesLabel->{"mu","x","y"}, DisplayFunction->Identity]; bild2=ParametricPlot3D[{mu,Sqrt[mu],0},{mu,0,2}, DisplayFunction->Identity]; bild3=ParametricPlot3D[{mu,-Sqrt[mu],0},{mu,0,2}, DisplayFunction->Identity]; bild4=ParametricPlot3D[{mu,0,Sqrt[mu]},{mu,0,2}, DisplayFunction->Identity]; bild5=ParametricPlot3D[{mu,0,-Sqrt[mu]},{mu,0,2}, DisplayFunction->Identity]; bild6=ParametricPlot3D[{0.5,Sqrt[0.5] Cos[t],Sqrt[0.5] Sin[t]}, {t,0,2 Pi},DisplayFunction->Identity]; bild7=ParametricPlot3D[{1,Sqrt[1] Cos[t],Sqrt[1] Sin[t]}, {t,0,2 Pi},DisplayFunction->Identity]; bild8=ParametricPlot3D[{1.5,Sqrt[1.5] Cos[t],Sqrt[1.5] Sin[t]}, {t,0,2 Pi},DisplayFunction->Identity]; bild9=ParametricPlot3D[{2,Sqrt[2] Cos[t],Sqrt[2] Sin[t]}, {t,0,2 Pi},DisplayFunction->Identity]; abb=Show[bild1,bild2,bild3,bild4,bild5,bild6,bild7,bild8,bild9, DisplayFunction->$DisplayFunction,ImageSize->{400,300}];