16 Mar

File:Coprime8.svg

‎Mathematica source
← Older revision
Revision as of 22:30, 16 March 2013
Line 13:
Line 13:

(* Modified original from Wikiepedia User Stpasha *)

(* Modified original from Wikiepedia User Stpasha *)

clr[i_,n_]:=ColorData[ColorData["Gradients"][[10]],1.-(i-1)/(n-1)];

clr[i_,n_]:=ColorData[ColorData["Gradients"][[10]],1.-(i-1)/(n-1)];

+

style@n_:={PointSize@((2+n-#)/(25.n)),clr[#,n]}&/@Range[1+n];

style@n_:={PointSize@((2+n-#)/(25.n)),clr[#,n]}&/@Range[1+n];
−
f@x_:={{2#[[1]]-#[[2]],#[[1]]},{2#[[1]]+#[[2]],#[[1]]},{#[[1]]+2#[[2]],#[[2]]}}&/@x
+

+
f@x_:={{2#[[1]]-#[[2]],#[[1]]},{2#[[1]]+#[[2]],#[[1]]},{#[[1]]+2#[[2]],#[[2]]}}&/@x;

+

ticks=5{Range@17-1,Range@9-1};

ticks=5{Range@17-1,Range@9-1};

doPlot@n_:=ListPlot[NestList[Flatten[f@#,1]&,{{2,1}},n],

doPlot@n_:=ListPlot[NestList[Flatten[f@#,1]&,{{2,1}},n],

http://commons.wikimedia.org/w/index.php?title=File:Coprime8.svg&diff=92711199&oldid=92711143