read `ALG.txt`:
print(`This file tests whether the characteristic polynomials for the Ising model for an i by infinity strips for`):
print(`for i=2 to i=5 are tensor products of small things, by showing that it has intersting repetition profiles `):
print(`using X as the indexed variable (see article for explanation`):
print(`For the sake of speed we will set the activation parameter z to be 7`):
for i from 2 to 5 do
print(`When i=`, i, `the polynomial is of degree , in x`, degree(IsingData(7,x)[i-1],x), `and the repetition profile is`):
lprint( FactorP(IsingData(7,x)[i-1],x,X));
print(``):
print(`------------------`):
print(``):
od:
print(`This took`, time(), `seconds. `):
quit: