ملخص

الوصفGnomonic.png	English: Gnomonic projection (projection from the center of the sphere) Latviešu: Gnomoniskā projekcija (projekcija no sfēras centra)
التاريخ	٨ مايو ٢٠٠٩
المصدر	عمل شخصي (Original text: Own work by uploader, created with Mathematica 7.0.1)
المؤلف	Marozols
إصدارات أخرى	هذه math الصورة / الصورتان باستعمال رسومات متجهية ملفات رسوميات شعاعية. It is recommended to name the SVG file "Gnomonic.svg" - then the template Vector version available (or Vva) does not need the new image name parameter.

Source Code

 

هذا الرسم المتجهي أُنشئ بواسطة 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، صاحب حقوق تأليف ونشر هذا العمل، ينشره تحت الرَّخص التالية:

هذا الملفُّ مُرخَّص بموجب رخصة المشاع الإبداعي نسبة المُصنَّف إِلى مُؤَلِّفه - المشاركة بالمثل 3.0 العامة

نسب العمل لمُؤَلِّفه: Marozols

يحقُّ لك:

• مشاركة العمل – نسخ العمل وتوزيعه وبثُّه
• إعادة إنتاج العمل – تعديل العمل

حسب الشروط التالية:

• نسب العمل إلى مُؤَلِّفه – يلزم نسب العمل إلى مُؤَلِّفه بشكل مناسب وتوفير رابط للرخصة وتحديد ما إذا أجريت تغييرات. بالإمكان القيام بذلك بأية طريقة معقولة، ولكن ليس بأية طريقة تشير إلى أن المرخِّص يوافقك على الاستعمال.
• الإلزام بترخيص المُشتقات بالمثل – إذا أعدت إنتاج المواد أو غيرت فيها، فيلزم أن تنشر مساهماتك المُشتقَّة عن الأصل تحت ترخيص الأصل نفسه أو تحت ترخيص مُتوافِقٍ معه.

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

يسمح نسخ وتوزيع و/أو تعديل هذه الوثيقة تحت شروط رخصة جنو للوثائق الحرة، الإصدار 1.2 أو أي إصدار لاحق تنشره مؤسسة البرمجيات الحرة؛ دون أقسام ثابتة ودون نصوص أغلفة أمامية ودون نصوص أغلفة خلفية. نسخة من الرخصة تم تضمينها في القسم المسمى GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

لك أن تختار الرخصة التي تناسبك.

 

هذا الرسم المتجهي أُنشئ بواسطة Mathematica