Resum

DescripcióGnomonic.png	English: Gnomonic projection (projection from the center of the sphere) Latviešu: Gnomoniskā projekcija (projekcija no sfēras centra)
Data	8 de maig de 2009
Font	Treball propi (Original text: Own work by uploader, created with Mathematica 7.0.1)
Autor	Marozols
Altres versions	Aquesta imatge (de tipus math) s'hauria de tornar a crear utilitzant gràfics vectorials com ara un fitxer SVG. Això té diversos avantatges; en trobareu més informació a Commons:Media for cleanup. Si ja disposeu d'una versió d'aquesta imatge en format SVG, us preguem que la pengeu; després, reemplaceu aquesta plantilla amb la plantilla {{Vector version available|nom nou de la imatge.svg}} en aquesta imatge.

Source Code

 

Aquesta PNG imatge rasteritzada ha estat creada amb Mathematica

 (*Origin*) o = {0, 0, 0}; (*Coordinate axis*) {ex, ey, ez} = IdentityMatrix[3]; (*With of the plane*) w = 2; (*Overhang coefficient*) \[Delta] = 1.2; (*Axis*) axis = {Black, Arrow3D[{o, w*ex}], Arrow3D[{o, w*ey}], Arrow3D[{o, w*ez}]}; (*Sphere*) sph = {Orange, Opacity[0.7], Sphere[o]}; (*Plane1*) pln1 = {LightGray, Polygon[{{-w, w, -1}, {w, w, -1}, {w, -w, -1}, {-w, -w, -1}}]}; (*Plane2*) pz = Normalize@{0.7, 0.3, 1.1}; px = Normalize@{-pz[[2]], pz[[1]], 0}; py = Last@Orthogonalize[{pz, px, ey}]; t = Abs[1/py[[3]]]; \[CurlyEpsilon] = 1.01; pln2 = {LightGray, Opacity[0.3], Polygon[(*(#-(\[CurlyEpsilon]-1)pz)&/@*){\[Delta]*px + \[Delta]*t* py, \[Delta]*px - \[Delta]*py, -\[Delta]*px - \[Delta]* py, -\[Delta]*px + \[Delta]*t*py}]}; (*Circle*) \[Gamma] = \[Pi]/4; MediumThick = Thickness[0.004]; crc = {Black, MediumThick, Line@Table[\[CurlyEpsilon] (px*Cos[\[Alpha]] + py*Sin[\[Alpha]]), {\[Alpha], (\[Pi] + \[Gamma])/2, 2 \[Pi] + (\[Pi] - \[Gamma])/2, 0.05}]}; (*Projection*) r = Table[ px*Cos[\[Alpha]] + py*Sin[\[Alpha]], {\[Alpha], (\[Pi] - \[Gamma])/ 2, (\[Pi] + \[Gamma])/2, \[Gamma]/6}]; r1 = (#/Abs[#[[3]]]) & /@ r; proj = {Black, PointSize[0.01], Point[o], Point /@ (\[CurlyEpsilon]*r), Point /@ r1, Line[{o, #}] & /@ r1, Red, MediumThick, Line[\[CurlyEpsilon]*r], Line[r1]}; (*Graphics*) DefaultThick = Thickness[0.0015]; g = Graphics3D[{DefaultThick, EdgeForm[DefaultThick], sph, pln1, pln2, crc, proj}, Boxed -> False, Lighting -> "Neutral", ViewPoint -> 2 {0.7, -0.3, 0.1}, ImageSize -> 600, Method -> {"ShrinkWrap" -> True}]; g = Append[g, PlotRegion -> {{-0.02, 1.02}, {-0.03, 1.03}}] 

Llicència

Marozols, el titular dels drets d'autor d'aquest treball, el public sota les següents llicències:

Aquest fitxer està subjecte a la llicència de Creative Commons Reconeixement i Compartir Igual 3.0 No adaptada.

Reconeixement: Marozols

Sou lliure de:

• compartir – copiar, distribuir i comunicar públicament l'obra
• adaptar – fer-ne obres derivades

Amb les condicions següents:

• reconeixement – Heu de donar la informació adequada sobre l'autor, proporcionar un enllaç a la llicència i indicar si s'han realitzat canvis. Podeu fer-ho amb qualsevol mitjà raonable, però de cap manera no suggereixi que l'autor us dóna suport o aprova l'ús que en feu.
• compartir igual – Si modifiqueu, transformeu, o generareu amb el material, haureu de distribuir les vostres contribucions sota una llicència similar o una de compatible com l'original

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue

S'autoritza la còpia, la distribució i la modificació d'aquest document sota els termes de la llicència de documentació lliure GNU versió 1.2 o qualsevol altra versió posterior que publiqui la Free Software Foundation; sense seccions invariants, ni textos de portada, ni textos de contraportada. S'inclou una còpia d'aquesta llicència en la secció titulada GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

Podeu seleccionar la llicència que vulgueu.

 

Aquesta PNG imatge rasteritzada ha estat creada amb Mathematica