Mandelbrotov fraktál na PP01

Táto téma bola „na pretrase“ už pekných pár rokov dozadu, ale podujal som sa na jej oprášenie

Pôvodca myšlienky nechať PP01 dopočítať Mandelbrotov fraktál je vlastne Dex, ktorý o tom v roku 2013 natočil a publikoval aj 3-5 minútové video https://www.youtube.com/watch?v=EoZ5WE2k3vA.
A pretože Roman Bórik mal už dávnejšie rozrobený emulátor PP01 trochu som do neho začiatkom roka drcol, či by s tým vedel pohnúť a oplatilo sa. Dnes si už môžete stiahnuť jeho alfa verziu na stránke http://pp01.borik.net/.

Včera som sa odhodlal preďatlovať do emulátora nasledovný program, ktorý je horko-ťažko čitateľný z videa [ EDIT: V treťom tisícročí je samozrejme všetko na internete, len to Google občas nevie nájsť. Dex ma upozornil, že nebolo treba lúštiť a odčítavať obrazovku, lebo program je v čitateľnej forme opublikovaný na https://sites.google.com/site/pp01color/programy-v-basicu ] :

10 SIZEX=256:SIZEY=256:MAXITER=256
15 SCALE 0,255,-127,128
20 FOR X=0 TO SIZEX
30 XI=X/200-2
40 FOR Y=0 TO SIZEY/2:YI=Y/200:XC=0:YC=0
50 FOR I=1 TO MAXITER
60 IF XC*XC+YC*YC>4 THEN GOTO 90
70 XT=XI+XC*XC-YC*YC:YC=YI+2*XC*YC:XC=XT
80 NEXT I
90 IF I>MAXITER THEN LET I=0
100 INK I-8*(I\8):PENUP:PLOT X,Y:PENUP:PLOT X,-Y
110 NEXT Y
120 NEXT X
199 STOP

A dnes sa už môžete kochať výsledkom vygenerovaným týmto kódom:

No nie je to nádhera?

/ikon

2 názory na “Mandelbrotov fraktál na PP01

  1. Protože mám PP01 mrtvolné, ale článeček mě navnadil na fraktály, udělal jsem minimální zásah do kódu, abych jej mohl pustit alespoň na Atárku. Pokud je to moc mimo téma, tak tento koment prosím smažte a přijměte omluvu. Jinak tohle je ten lehounce modifikovaný kód pro Atari Basic:

    10 SIZEX=160:SIZEY=96:MAXITER=256
    15 GR.23:PLUSY=SIZEY/2:COL=4
    20 FOR X=0 TO SIZEX
    30 XI=X/200-2
    40 FOR Y=0 TO SIZEY/2:YI=Y/200:XC=0:YC=0
    50 FOR I=1 TO MAXITER
    60 IF XC*XC+YC*YC>4 THEN GOTO 90
    70 XT=XI+XC*XC-YC*YC:YC=YI+2*XC*YC:XC=XT
    80 NEXT I
    90 IF I>MAXITER THEN LET I=0
    100 COLOR I-COL*INT(I/COL):PLOT X,PLUSY+Y-1:PLOT X,PLUSY-Y
    110 NEXT Y
    120 NEXT X

  2. Určite je to k téme a komentár sem patrí. Nebránime sa iným platformám, obzvlášť ak sú osembitové.

Pridaj komentár