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}]
