XProfan

Deutsch

p.specht

Stephen Wolfram, CEO von Wolfram Research (WolframAlpha, Mathematica etc.) hat in seinem Buch "A kind of science" die Meinung vertreten, daß Raum und Zeit aus einem logischen Gewebe aus allereinfachsten Regeln bestehen. Dass dadurch trotzdem Zufallsprozesse wie das Auskristallisieren von Materie stattfinden können, glaubt er mit seinen Zellulärautomaten Nr. 30 und Nr. 110 eindeutig nachgewiesen zu haben, mit anderen "Automatons" will er sogar die Relativitätstheorie abgeleitet haben! Er ist der Meinung, daß solche Geflechte in ihrer möglichen Komplexität der Welt, in der wir leben, deutlich näherkommen als jede mathematische Formel. Naja ...

Kompilieren Markieren Separieren

Windowtitle "AUTOMATON 30 und 110"
'(D) Demo 2017-06 by P.Specht, 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"