Resumen

DescripciónP1 ako varieta.png	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)
Fecha	9 de mayo de 2007 (fecha original de carga)
Fuente	Transferido desde en.wikipedia a Commons.
Autor	Jakob.scholbach de Wikipedia en inglés
Otras versiones	Esta imagen debería volverse a crear como imágenes vectoriales SVG. Esto proporciona muchas ventajas, véase Commons:Media for cleanup (en inglés) para más información. Si ya hay una versión SVG de esta imagen disponible, por favor súbala a Commons. Tras subirla, reemplace esta plantilla con la plantilla {{vector version available|nuevo nombre de imagen.svg}} en esta imagen.

Licencia

Jakob.scholbach at the English Wikipedia, titular de los derechos de autor de esta obra, la publica en los términos de la siguiente licencia:

Se autoriza la copia, distribución y modificación de este documento bajo los términos de la licencia de documentación libre GNU, versión 1.2 o cualquier otra que posteriormente publique la Fundación para el Software Libre; sin secciones invariables, textos de portada, ni textos de contraportada. Se incluye una copia de la dicha licencia en la sección titulada Licencia de Documentación Libre GNU.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

	Este archivo se encuentra bajo la licencia Creative Commons Genérica de Atribución/Compartir-Igual 3.0.
	Atribución: Jakob.scholbach at the English Wikipedia
	Eres libre: de compartir – de copiar, distribuir y transmitir el trabajo de remezclar – de adaptar el trabajo Bajo las siguientes condiciones: atribución – Debes otorgar el crédito correspondiente, proporcionar un enlace a la licencia e indicar si realizaste algún cambio. Puedes hacerlo de cualquier manera razonable pero no de manera que sugiera que el licenciante te respalda a ti o al uso que hagas del trabajo. compartir igual – En caso de mezclar, transformar o modificar este trabajo, deberás distribuir el trabajo resultante bajo la misma licencia o una compatible como el original.
	Esta etiqueta de licencia fue agregada a este archivo como parte de la actualización de la licencia GFDL.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue

Registro original de carga

• 2007-05-09 05:32 Jakob.scholbach 387×371× (1963 bytes) ~~~~
• 2007-05-09 05:29 Jakob.scholbach 0×0× (3052 bytes) <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]}],