Date: Oct 9, 2010 6:35 AM
Author: André Hautot
Subject: grey levels in TuringMachine

Hi,
here is Minsky UTM (7 states, 4 grey levels, 5 steps, input = {2,3} =
{dark grey, black} cells : works fine

ArrayPlot[
Last /@ TuringMachine[{\
5742835621286675109209976463064714465039262900613, 7,
4}, {{1, 1}, {{2, 3}, 0}}, 5], Mesh -> True]


Now change the input into a single cell : 0, 1 and 3 work fine but 2
starts with a black cell (should be dark grey)

ArrayPlot[
Last /@ TuringMachine[{\
5742835621286675109209976463064714465039262900613, 7,
4}, {{1, 1}, {{2}, 0}}, 5], Mesh -> True]

Any idea ?
Thanks in advance,
Andre