Image:P1 as a manifold.png

From Wikipedia, the free encyclopedia

Image
File history
File links

No higher resolution available.
P1_as_a_manifold.png‎ (387 × 371 pixels, file size: 2 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.

In[323]:= PoiS=0.015; r1=0.95; r2=0.9; d=2.5; \[Epsilon]=0.03; p1[p_]={PointSize[PoiS],Point[r1{Sin[p],Cos[p]}], Line[{r1{Sin[p],Cos[p]},{Tan[p],1}}], Point[{Tan[p],1}] }; p2[p_]={PointSize[PoiS],Point[r2{Sin[p],Cos[p]}], Line[{r2{Sin[p],Cos[p]},{-1,-Cot[p]}}], Point[{-1,-Cot[p]}] }; In[334]:= Show[Graphics[{ Circle[{0,0},1], RGBColor[1,0,0],Circle[{0,0},r1,{0,\[Pi]}],Line[{{-d,1},{d,1}}], Table[p1[p],{p,-3\[Pi]/8,3\[Pi]/8,\[Pi]/16}],p1[-\[Pi]/2+0.1], p1[\[Pi]/2-0.1], RGBColor[0,0,0],Line[{{-1,-d},{-1,d}}], Circle[{0,0},r2,{\[Pi]/2,3/2\[Pi]}], Table[{RGBColor[0,0,0],p2[p]},{p,-7\[Pi]/8,-1\[Pi]/8,\[Pi]/16}], p2[-\[Pi]+0.1],p2[-0.1] }],AspectRatio\[Rule]Automatic,PlotRange->{{-d,d},{-d,d}}, PlotLabel\[Rule] StyleForm[ TraditionalForm["Manifold structure of the real projective line"], Section]]; Jakob.scholbach 05:29, 9 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.

	Date/Time	Dimensions	User	Comment
current	05:32, 9 May 2007	387×371 (2 KB)	Jakob.scholbach (Talk \| contribs)	(~~~~)
	05:29, 9 May 2007	387×387 (3 KB)	Jakob.scholbach (Talk \| contribs)	(<tt><nowiki> In[323]:= PoiS=0.015; r1=0.95; r2=0.9; d=2.5; \[Epsilon]=0.03; p1[p_]={PointSize[PoiS],Point[r1{Sin[p],Cos[p]}], Line[{r1{Sin[p],Cos[p]},{Tan[p],1}}], Point[{Tan[p],1}] }; p2[p_]={PointSize[PoiS],Point[r2{Sin[p],Cos[p]}], )