Манделброт в ASCII Art

[Alex_K]

Mandelbrot для УКНЦ ВИЛЬНЮС-БЕЙСИК

10 REM A basic, ascii mandelbrot
11 REM 
12 REM this implementation copyright (c) 2019, gordon henderson
13 REM 
14 REM permission to use/abuse anywhere for any purpose granted, but
15 REM it comes with no warranty whatsoever. good luck!
16 REM 
20 POKE &O500,&O005237
30 POKE &O502,&O000512
40 POKE &O504,&O000261
50 POKE &O506,&O000137
60 POKE &O510,PEEK(&O100)
70 POKE &O100,&O500
170 LET C$ = ".,'~=+:;[/<&?oxOX# "
180 LET SO = 1
190 LET MI = LEN(C$)
200 LET MX = 4
210 LET LS = -2.0
220 LET TP = 1.25
230 LET XS = 2.5
240 LET YS = -2.5
250 LET W = 38
260 LET H = 21
270 LET SX = XS / W
280 LET SY = YS / H
290 POKE &O512,0%
300 FOR Y = 0 TO H
310 LET CY = Y * SY + TP
320 FOR X = 0 TO W
330 LET CX = X * SX + LS
340 LET ZX = 0
350 LET ZY = 0
360 LET CC = SO
370 LET X2 = ZX * ZX
380 LET Y2 = ZY * ZY
390 IF CC > MI THEN GOTO 460
400 IF (X2 + Y2) > MX THEN GOTO 460
410 LET T = X2 - Y2 + CX
420 LET ZY = 2 * ZX * ZY + CY
430 LET ZX = T
440 LET CC = CC + 1
450 GOTO 370
460 PRINT MID$(C$, CC - SO, 1);
470 NEXT 
480 PRINT 
490 NEXT 
500 POKE &O100,PEEK(&O510)
510 PRINT PEEK(&O512)/50
520 END

[свернуть]

Запустил на УКНЦ в дисковом ВИЛЬНЮС-БЕЙСИКЕ. Результаты от 46,5 до 47, зависит от того, с чистого экрана надо рисовать или делать скроллинг. По идее надо делить не на 50, а на 50,08, т.к. реально длительность тика таймера не 20 мс, а 19,968 мс.

- - - Добавлено - - -

В режиме 64x48 на УКНЦ примерно 179-180 секунд.