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

[Lethargeek]

Скорости исполнения программ на Бейсике.

каких-то программ на каком-то бейсике, с разной выполняемой работой и результатами?

Результат ZX Spectrum: 422

у меня на эмуль-пентагоне 405 - и из них с десяток попугаев это прокрутка

[Advertiser]

[S_V_B]

беда... все плохо

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

Ребята.. начеите с того как это сделать.. люди потянуться..

[Manwe]

каких-то программ на каком-то бейсике, с разной выполняемой работой и результатами?

Одна и та же программа с одинаковым результатом.
Не стоит забывать, что в конце 80-ых встроенный Бейсик был одним из решающих факторов при выборе компьютера: нет Бейсика – нет (или мало) покупателей. И возможности компьютеров в те годы сравнивали в том числе по возможностям встроенного Бейсика. Поэтому производительность Бейсика очень даже полезно замерить – это вполне объективная характеристика, глазами пользователей тех лет.

[NEO SPECTRUMAN]

это вполне объективная характеристика, глазами пользователей тех лет.

что еще раз доказывает, что бкшники с тех пор никак не продвинулись в развитии
и что хронический синдром уточки имеет место быть

[Lethargeek]

Одна и та же программа с одинаковым результатом.

где он одинаковый-то? когда даже число строк на выходе не совпало

[Manwe]

где он одинаковый-то? когда даже число строк на выходе не совпало

ну подправь чтобы совпало. Умеешь же на Бейсике писать?

[litwr]

А можешь в первом сообщении темы продублировать сводную табличку производительности?
И было бы круто протестировать эту программу на Спектруме.

Табличку добавил. Может ещё на днях добавлю туда Дракона.

[Lethargeek]

ну подправь чтобы совпало

лехко, умножаем height на два для быкашки

[litwr]

Показатели БК особенно впечатляют, если мы будем учитывать формат используемых вещественных чисел. На БК используется 8 байтовый формат, а на BBC Micro и Amstrad - 5 байтовый. Возможно, если бы Микросы и Амстрады использовали по 8 байт, то БК-бейсик обошёл бы и их.
https://gitlab.com/retroabandon/basc.../benchmarks.md

[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 секунд.