]a=:8+i.15 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
]aa=:2 2 2 2 2#:a 0 1 0 0 0 0 1 0 0 1 0 1 0 1 0 0 1 0 1 1 0 1 1 0 0 0 1 1 0 1 0 1 1 1 0 0 1 1 1 1 1 0 0 0 0 1 0 0 0 1 1 0 0 1 0 1 0 0 1 1 1 0 1 0 0 1 0 1 0 1 1 0 1 1 0 ]b=:15#15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 ]bb=:2 2 2 2 2#:b 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 ]c=:a-b _7 _6 _5 _4 _3 _2 _1 0 1 2 3 4 5 6 7 ]cc=:aa-bb 0 0 _1 _1 _1 0 0 _1 _1 0 0 0 _1 0 _1 0 0 _1 0 0 0 0 0 _1 _1 0 0 0 _1 0 0 0 0 0 _1 0 0 0 0 0 1 _1 _1 _1 _1 1 _1 _1 _1 0 1 _1 _1 0 _1 1 _1 _1 0 0 1 _1 0 _1 _1 1 _1 0 _1 0 1 _1 0 0 _1 The negatives look good! 2 2 2 2 2#.cc _7 _6 _5 _4 _3 _2 _1 0 1 2 3 4 5 6 7 #. Is still happy Now convert the positives to positives that look good. ]gg=:2 2 2 2 2 #:+/"1 dd*8 5$|.2^i.5 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 1 1 0 0 1 0 0 0 0 1 0 1 0 0 1 1 0 0 0 1 1 1 dd 0 0 0 0 0 1 _1 _1 _1 _1 1 _1 _1 _1 0 1 _1 _1 0 _1 1 _1 _1 0 0 1 _1 0 _1 _1 1 _1 0 _1 0 1 _1 0 0 _1 I don't remember ever seeing negative binary numbers but pasting the good negatives to the good positives makes a nice symmetric image. Linda ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
