|
COMMENTS
|
In hexadecimal this sequence looks like: 96,5A,96696996,96696996699696696996966996696996,
AA55AA55AA55AA5555AA55AA55AA55AA,
9966669966999966996666996699996666999966996666996699996699666699669999 6699666699669999669966669999666699669999669966669966999966, ...
|
|
MAPLE
|
rule90x150combination_xored := proc(n) local r, d, p, q, j, s, k, pattern;
p := extended_A020652[ n ]; # the Rule 150 component [ 0, 1, op(A020652) ]
q := extended_A020653[ n ]; # the Rule 90 component [ 1, 0, op(A020653) ]
r := p+q; # radius of CA.
d := (2*r)+1; # diameter of CA, including the cell itself.
s := 0; for k from 0 to (2^d)-1 do if(bit_i(k, r) <> bit_i(rule90(rule150(k, p), q), (2*r))) then s := s + 2^k; fi; od; RETURN(s); end;
|