XProfan

Español

p.specht

Stephen Wolfram, CEO de Wolfram Research (WolframAlpha, Mathematica etc.) ha en seinem Buch "A kind of science" el Meinung vertreten, daß Raum y Tiempo de una logischen Gewebe de allereinfachsten Regeln bestehen. Dass dadurch trotzdem Zufallsprozesse como el Auskristallisieren de Materie stattfinden puede, glaubt él con seinen Zellulärautomaten Nr. 30 y Nr. 110 eindeutig nachgewiesen a haben, con otro "Automatons" voluntad él incluso el Relativitätstheorie abgeleitet haben! Er es el Meinung, daß solche Geflechte en ihrer möglichen Komplexität el Welt, en el wir leben, deutlich näherkommen como jede matemático Formel. Naja ...

Kompilieren Marca Separación

Windowtitle "AUTOMATON 30 y 110"
'(D) Demo 2017-06 by P.Pájaro carpintero, Vienna/Austria
Windowstyle 24:Ventana 0,0-%maxx,%maxy:font 2
var n&=444:var my&=235:usepen 0,1,rgb(0,0,255)
declarar 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
'imprimir 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"