Image:Projective plane2.png

From Wikipedia, the free encyclopedia

Image
File history
File links

Size of this preview: 800 × 480 pixels
Full resolution‎ (865 × 519 pixels, file size: 9 KB, MIME type: image/png)

[edit] Summary

This graph image was uploaded in a raster image format such as PNG, GIF, or JPEG. However, it contains information that could be stored more efficiently and/or accurately in the SVG format, as a vector graphic.
If possible, please upload an SVG version of this image. After doing so, please replace all instances of the previous version throughout Wikipedia (noted under the “File links” header), tag the old version with {{Vector version available|NewImage.svg}}, and remove this tag. For more information, see Wikipedia:Preparing images for upload. For assistance with converting to SVG, please see the Graphics Lab.

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[{{p1[[1]],p1[[2]],1},{p2[[1]],p2[[2]],1}}] abs[p_]:=Sqrt[p[[1]]^2+p[[2]]^2+p[[3]]^2]; skal[p_]:=p/abs[p]; ster[p_]:=skal[{p[[1]],p[[2]],1}]; proj[p1_,p2_]:=Line[Table[ster[(1-t)p1+t p2],{t,-10,11,0.01}]]; Show[ WireFrame[ { RGBColor[0,1,0],Thickness[0.0051],c[{1,0,0},{0,1,0}], Thickness[0.001],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.005],l[{0.5,s},{0.5,-s}], l[{-.5,s},{-.5,-s}], proj[{.5,s},{.5,-s}], proj[{-.5,s},{-.5,-s}] } ],Axes\[Rule]False,Boxed\[Rule]False,PlotRange->{{-s,s},{-s,s},{-1,1}}]

Jakob.scholbach 03:26, 13 April 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.

	Date/Time	Dimensions	User	Comment
current	03:26, 13 April 2007	865×519 (9 KB)	Jakob.scholbach (Talk \| contribs)	( 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)