Beskrivelse

BeskrivelseGnomonic.png	English: Gnomonic projection (projection from the center of the sphere) Latviešu: Gnomoniskā projekcija (projekcija no sfēras centra)
Dato	8. mai 2009
Kilde	Eget verk (Original text: Own work by uploader, created with Mathematica 7.0.1)
Opphavsperson	Marozols
Andre versjoner	Dette bildet bør gjenskapes med hjelp av vektorgrafikk som en SVG-fil. Dette har flere fordeler, se Commons:Media for cleanup for mer informasjon. Hvis en SVG-fil med dette bildet er tilgjengelig, vennligst last den opp. Etter opplasting erstatt denne malen med {{vector version available|nytt bilde.svg}}.

Source Code

 

Denne PNG rastergrafikken ble laget med 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}}] 

Lisensiering

Marozols, rettighetsinnehaver av dette arbeidet, publiserer det herved under følgende lisenser:

Denne filen er lisensiert under lisensen Creative Commons Navngivelse-DelPåSammeVilkår 3.0 Unported

Navngivelse: Marozols

Du står fritt:

• til å dele – til å kopiere, distribuere og overføre verket
• til å blande – til å endre verket

Under de følgende betingelsene:

• navngivelse – Du må kreditere verket på passende vis, lenke til lisensen og indikere hvorvidt det har blitt gjort endringer. Du kan gjøre det på enhver rimelig måte, men ikke på en måte som antyder at lisensgiveren støtter deg eller din bruk av verket.
• del på samme vilkår – Dersom du remikser, omarbeider eller på annen måte bygger på dette verket, må du kun distribuere resultatet under den samme eller en samsvarende lisens som denne.

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

Det tillates at dette dokumentet kopieres, distribueres og/eller modifiseres under retningslinjene som beskrevet i GNU fri dokumentasjonslisens, versjon 1.2 eller senere utgave utgitt av Free Software Foundation; med alle seksjoner, uten noen forsidetekster og baksidetekster. En kopi av lisensen er inkludert i avsnittet GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

Du kan velge lisens etter eget valg.

 

Denne PNG rastergrafikken ble laget med Mathematica.