In[181]:=

n=250; s=1.8; \[Epsilon]=0.01; In[184]:= Cirlce3D[p_,v1_,v2_,r_]= Polygon[Table[p+r Sin[i 2\[Pi]/n]v1+r Cos[i 2\[Pi]/n]v2,{i, 0, n}]]; c[v1_,v2_]:=Cirlce3D[{0,0,0},v1,v2,1]; l[p1_,p2_]:=Line[ ] abs[p_]:=Sqrt[p1^2+p2^2+p3^2]; skal[p_]:=p/abs[p]; ster[p_]:=skal[{p1,p2,1}]; paraoben:=Table[{x^2,x,1-\[Epsilon]},{x,-40s,40s,1/100}]; para3oben:=Table[{x^3,x,1-\[Epsilon]},{x,-40s,40s,1/100}]; para:=Table[ster[{x ^2,x}],{x,-40s,40s,1/100}]; para3:=Table[ster[{x^3,x}],{x,-40s,40s,1/100}]; para33:=Table[-ster[{ x^3,x}],{x,-40s,40s,1/100}]; In[193]:= Show[ WireFrame[ { Thickness[0.00051],c[{1,0,0},{0,1,0}], Thickness[0.0001],RGBColor[0,0,0],c[{0,0,1},{0,1,0}],c[{1,0,0},{0,0,1}], Table[c[{Cos[t],Sin[t],0},{0,0,1}],{t,0,2\[Pi],\[Pi]/8}], Polygon[ ], PointSize[0.01],RGBColor[1,0,0],Point[{1,0,0}], RGBColor[0,0,1],Point[{0,0,1}] , Thickness[0.004],Line[paraoben],Line[para],RGBColor[1,0,0],Line[para3], Line[para33],Line[para3oben] } ],Axes\[Rule]False,Boxed\[Rule]False,PlotRange-> , ViewPoint->{2.562, -1.236, 1.833}]