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

Nik, lan honen egileak, argitaratzen dut ondorengo lizentzia pean:

Fitxategi hau Creative Commons Attribution-Share Alike 3.0 Unported lizentziapean dago.

Askea zara:

• partekatzeko – lana kopiatzeko, banatzeko eta bidaltzeko
• birnahasteko – lana moldatzeko

Ondorengo baldintzen pean:

• eskuduntza – Egiletza behar bezala aitortu behar duzu, lizentzia ikusteko esteka gehitu, eta ea aldaketak egin diren aipatu. Era egokian egin behar duzu hori guztia, baina inola ere ez egileak zure lana edo zure erabilera babesten duela irudikatuz.
• berdin partekatu – Lan honetan oinarrituta edo aldatuta berria eraikitzen baduzu, emaitza lana hau bezalako lizentzia batekin argitaratu behar duzu.

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