Haferman Carpet

See MathWorld. 

   [P=:>(<3 3) $&.> 1;,5#,:0 1
1 1 1
1 1 1
1 1 1

0 1 0
1 0 1
0 1 0

   viewmat P([:,./ [:,/"3{~)^:(4)1{P
   savemat_jviewmat_  'I:\HafermanCarpet.png'

HafermanCarpet.png

RE Boss/J-blog/HafermanCarpet (last edited 2012-01-13 10:47:30 by RE Boss)