Краткое описание

ОписаниеGnomonic.png	English: Gnomonic projection (projection from the center of the sphere) Latviešu: Gnomoniskā projekcija (projekcija no sfēras centra)
Дата	8 мая 2009
Источник	Собственная работа (Исходный текст: Own work by uploader, created with Mathematica 7.0.1)
Автор	Marozols
Другие версии	Эту математическую иллюстрацию желательно воссоздать или аккуратно преобразовать в векторный формат SVG. Это даёт несколько преимуществ, прочитать о которых подробнее вы можете на странице Commons:Media for cleanup. Если вам уже сейчас доступна векторная версия данного изображения, загрузите её, пожалуйста, а затем замените этот шаблон на следующий: {{Vector version available|Имя загруженного файла.svg}}.

Source Code

 

Это diagram было создано с помощью 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}}] 

Лицензирование

Marozols, владелец авторских прав на это произведение, добровольно публикует его на условиях следующих лицензий:

Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 3.0 Unported.

Атрибуция: Marozols

Вы можете свободно:

• делиться произведением – копировать, распространять и передавать данное произведение
• создавать производные – переделывать данное произведение

При соблюдении следующих условий:

• атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
• распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.

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

Разрешается копировать, распространять и/или изменять этот документ в соответствии с условиями GNU Free Documentation License версии 1.2 или более поздней, опубликованной Фондом свободного программного обеспечения, без неизменяемых разделов, без текстов, помещаемых на первой и последней обложке. Копия лицензии включена в раздел, озаглавленный GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

Вы можете выбрать любую из этих лицензий.

 

Это diagram было создано с помощью Mathematica