2016 Update

Task/Sierpinski-triangle-Graphical/PARI-GP/sierpinski-triangle-graphical.pari

@@ -0,0 +1,12 @@
+\\ Sierpinski triangle fractal
+\\ Note: plotmat() can be found here on
+\\ http://rosettacode.org/wiki/Brownian_tree#PARI.2FGP page.
+\\ 6/3/16 aev
+pSierpinskiT(n)={
+my(sz=2^n,M=matrix(sz,sz),x,y);
+for(y=1,sz, for(x=1,sz, if(!bitand(x,y),M[x,y]=1);));\\fends
+plotmat(M);
+}
+{\\ Test:
+pSierpinskiT(9); \\ SierpT9.png
+}