Image:Parabola in projective space.png

From Wikipedia, the free encyclopedia

• Image
• File history
• File links

Size of this preview: 800 × 474 pixels
Full resolution‎ (903 × 535 pixels, file size: 9 KB, MIME type: image/png)

[edit] Summary

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[{{p11,p12,1},{p21,p22,1}}] 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[{{-s,-s,1},{-s,s,1},{s,s,1},{s,-s,1}}], 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->{{-s,s},{-s,s},{-1,1}}, ViewPoint->{2.562, -1.236, 1.833}]

Jakob.scholbach 04:40, 4 May 2007 (UTC)

[edit] Licensing

I, the copyright holder of this work, hereby grant the permission to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.

File history

Click on a date/time to view the file as it appeared at that time.

• Search for duplicate files
• Edit this file using an external application

  See the setup instructions for more information.

File links