ملخص

Mathematica source

ListPlot[
  NestList[
     Flatten[{{2 #[[1]] - #[[2]], #[[1]]}, {2 #[[1]] + #[[2]], #[[1]]}, {#[[1]] + 2 #[[2]], #[[2]]}} & /@ #, 1] &, 
     {{2, 1}}, 
     6], 
  AxesOrigin -> {0, 0}, 
  PlotRange -> {{0, 80}, {0, 40}}, 
  PlotStyle -> {
     {PointSize[0.025], Red}, 
     {PointSize[0.025], Hue[0.1]}, 
     {PointSize[0.025], Hue[0.15]}, 
     {PointSize[0.022], Hue[0.3, 1, 0.85]}, 
     {PointSize[0.019], Hue[0.5, 1, 0.85]}, 
     {PointSize[0.015], Hue[0.7]}, 
     {PointSize[0.01], Hue[0.8]}
     }
  ]

ترخيص

أنا، صاحب حقوق التأليف والنشر لهذا العمل، أنشر هذا العمل تحت الرخصة التالية:

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

يحقُّ لك:

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

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

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

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

سجلُّ الرَّفع الأصيل