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

Цитата:

---

Сообщение от Manwe

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

---

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

Цитата:

---

Сообщение от Manwe

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

---

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

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

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

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

Цитата:

---

Сообщение от Lethargeek

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

---

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

Цитата:

---

Сообщение от Manwe

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

---

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

Цитата:

---

Сообщение от Manwe

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

---

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

Цитата:

---

Сообщение от Lethargeek

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

---

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

Цитата:

---

Сообщение от Manwe

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

---

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

Цитата:

---

Сообщение от Manwe

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

---

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

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

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