mike blog

Ako prvé som použil presne ten istý systém, ako v generátore krajiny v assembleri, teda posúvanie dát v poli. Výhody Basicu sa prejavili naplno a program bežal takmer na prvé napísanie. Problém bol ale v rýchlosti, krajina sa vygenerovala za niečo viac ako tri a pol minúty. Program vlastne väčšinu času nerobil nič iné, ako v slučke posúval vygenerované dáta. V assembleri to moc nevadí, ale v Basicu je to prinajmenšom lamerina. Preto bolo treba zobrať do ruky pero a papier a trošku popremýšľať (au, aj keď až tak hrozné to nebolo).

Takže ak sa chceme zbaviť presúvania dát, treba ich generovať na správne miesta v poli. Vypíšme si teda indexy prvých generovaných dát a pohľadajme nejaké súvislosti.

0: 0                               256
1:               128
2:       64                192
3:   32      96       160       224
4: 16  48  80  112  144  176  208  240

Na začiatku riadka je číslo iterácie. Nultá iterácia je inicializácia poľa, kde vygenerujeme krajné body. Potom v každej ďalšej iterácii vygenerujeme bodov. Prvý bod iterácie má index a každý ďalší bod má index zväčšený o .

Na vygenerovanie bodu ale potrebujeme aj predchádzajúce body. Ak x je index bodu, ktorý chceme vygenerovať, potom prvý bod získame ako a druhý ako .

Všimnite si ešte, že pri inicializácii generujeme body na indexy 0 a 256 (resp. v Basicu na 1 a 257). Je to preto, lebo potrebujeme aby vzdialenosť od oboch predchádzajúcich bodov bola rovnaká. Predstavte si napr. pole o štyroch prvkov:

0 1 2 3

Ktorý prvok je v strede? Snáď je to zrozumiteľné. V skutočnosti o nič nejde, vygenerujeme len o jeden bod viac.

Tak a teraz k samotnému programu. Tu je:

20 DEF FN a(q,w,e)=q+(w-q)/2+175*RND/(2^e)
110 DIM x(257): LET x(1)=RND*175: LET x(257)=RND*175
200 FOR i=0 TO 7
210 FOR z=0 TO 2^i-1
220 LET l=256/(2^i): LET m=l/2+z*l+1
230 LET x(m) =FN a(x(m-l/2),x(m+l/2), i+1)
233 IF x(m)<0 THEN LET x(m)=0
235 IF x(m)>175 THEN LET x(m)=175
237 PLOT m-1,0: DRAW 0,x(m)
240 NEXT z
250 PRINT AT 0,0;i
260 NEXT i
280 PAUSE 0
281 RUN

Na riadku 20 si zadefinujem funkciu a, ktorá má parametre q - prvý bod, w - druhý bod, e - iterácia. Ak sa Vám zdajú generované krajinky moc uletené k okrajom, tak skúste prepísať funkciu na:

20 DEF FN a(q,w,e)=q+(w-q)/2+175*RND/(2^(e+1))

Na riadku 110 prebehne naša nultá iterácia a potom už nasledujú cykly iterácie a prechodu prvkov v iterácii. Zápis matematických funkcií nesedí s teóriou vyššie, pretože Basic indexuje pole od 1 a číslovanie iterácií som zvolil od 0. Na riadku 237 sa práve vygenerovaná hodnota hneď vykreslí, takže je vidieť, ako algoritmus funguje.

Update: Opäť som to prehliadol. Vo funkcii, ktorá počíta nové hodnoty sa negenerujú záporné čísla. Treba to opraviť takto:

20 DEF FN a(q,w,e)=q+(w-q)/2+(1-2*RND)*175*RND/(2^e)