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: