XProfan

English

p.specht

Stephen Wolfram, CEO of Wolfram Research (WolframAlpha, Mathematica etc.) has in its book "A kid of science" The opinion represent, that space and Time a logischen web from allereinfachsten regulate consist. Dass therefore nevertheless Zufallsprozesse How the Auskristallisieren of matter come off can, believes it with its Zellulärautomaten Nr. 30 and Nr. 110 eindeutig shown to have, with others "Automatons" wants it even The Relativitätstheorie derivational having! he's the opinion, that such Geflechte in her possible Komplexität the world, in the we life, explicit come closer as each mathematical Formel. Well ...

Compile Mark Separation

Windowtitle "AUTOMATON 30 and 110"
'(D) demonstration 2017-06 by P.woodpecker, Vienna/Austria
Windowstyle 24:Window 0,0-%maxx,%maxy:font 2
var n&=444:var my&=235:usepen 0,1,rgb(0,0,255)
declare f&[n&+1,my&+1],i&,j&,NBR&,rgb&
rgb&=rgb(255,255,255)
nbr&=30
Nochmal:
clear f&[]
f&[n&/2-1,0]=1
'locate 1,1
'print NBR&;" = ";BIN$(NBR&);

whileloop 0,my&:j&=&Loop

    if j&

        whileloop n&:i&=&Loop

            f&[i&,j&]=testbit(NBR&,f&[i&-1,j&-1]*4+f&[i&,j&-1]*2+f&[i&+1,j&-1])

        endwhile

    endif

    whileloop n&:i&=&Loop

        usebrush 1,rgb&*(0=f&[i&,j&])
        rectangle 10+i&*3,10+j&*3 - 14+i&*3,14+j&*3

    endwhile

endwhile

waitinput
' inc NBR&
NBR&=110
goto "Nochmal"