Özet

AçıklamaGnomonic.png	English: Gnomonic projection (projection from the center of the sphere) Latviešu: Gnomoniskā projekcija (projekcija no sfēras centra)
Tarih	8 Mayıs 2009
Kaynak	Yükleyenin kendi çalışması (Original text: Own work by uploader, created with Mathematica 7.0.1)
Yazar	Marozols
Diğer sürümler	Bu galeride bulunan tüm resimler vektörel grafikler kullanılarak SVG dosyası şeklinde oluşturulmalıdır. Bunun çeşitli avantajları vardır; daha fazla bilgi için Commons:Temizleme medyası sayfasına bakın. Eğer bu resmin SVG formatına sahipseniz, lütfen yükleyin. Lütfen SVG dosyanızı yükledikten sonra, bu şablonu bu resimdeki {{vector version available|yeni resim ismi.svg}} şablonu ile değiştirin.

Source Code

 

Bu PNG grafik Mathematica ile oluşturuldu.

 (*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}}] 

Lisanslama

Marozols, bu işin telif sahibi, burada işi aşağıdaki lisanslar altında yayımlıyor:

Bu dosya, Creative Commons Atıf-Benzer Paylaşım 3.0 Taşınmamış lisansı ile lisanslanmıştır

Atıf: Marozols

Şu seçeneklerde özgürsünüz:

• paylaşım – eser paylaşımı, dağıtımı ve iletimi
• içeriği değiştirip uyarlama – eser adaptasyonu

Aşağıdaki koşullar geçerli olacaktır:

• atıf – Esere yazar veya lisans sahibi tarafından belirtilen (ancak sizi ya da eseri kullanımınızı desteklediklerini ileri sürmeyecek bir) şekilde atıfta bulunmalısınız.
• benzer paylaşım – Maddeyi yeniden karıştırır, dönüştürür veya inşa ederseniz, katkılarınızı orijinal olarak aynı veya uyumlu lisans altında dağıtmanız gerekir.

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

Bu belgenin GNU Özgür Belgeleme Lisansı, Sürüm 1.2 veya Özgür Yazılım Vakfı tarafından yayımlanan sonraki herhangi bir sürüm şartları altında bu belgenin kopyalanması, dağıtılması ve/veya değiştirilmesi için izin verilmiştir; Değişmeyen Bölümler, Ön Kapak Metinleri ve Arka Kapak Metinleri yoktur. Lisansın bir kopyası GNU Özgür Belgeleme Lisansı sayfasında yer almaktadır.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

İstediğiniz lisansı seçebilirsiniz.

 

Bu PNG grafik Mathematica ile oluşturuldu.