XProfan

Français

p.specht

Stephen Wolfram, CEO de Wolfram Research (WolframAlpha, Mathematica etc.) hat dans seinem livre "A enfant of science" qui attitude vertreten, qui espace et Zeit aus einem logischen Gewebe aus allereinfachsten régulariser bestehen. Dass dadurch quand même Zufallsprozesse comment cela Auskristallisieren de substance stattfinden peut, croyez il avec seinen Zellulärautomaten Nr. 30 et Nr. 110 sans équivoque nachgewiesen trop avons, avec anderen "Automatons" veux il sogar qui Relativitätstheorie abgeleitet avons! il ist qui attitude, qui solche Geflechte dans ihrer möglichen Komplexität qui monde, dans qui wir vivre, deutlich näherkommen comme chacun mathématique Formel. bof ...

Kompilieren Marque Séparation

Windowtitle "AUTOMATON 30 et 110"
'(D) Demo 2017-06 by P.Specht, Vienna/Austria
Windowstyle 24:Fenêtre 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
'imprimer NBR&;" = ";BIN$(NBR&);

whileloop 0,my&:j&=&Boucle

    si j&

        whileloop n&:i&=&Boucle

            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&=&Boucle

        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"