Бейсики для Вектора-06Ц и клонов

[ivagor]

Небольшое дополнение про ориентиры для сравнения. По RFBM 2.98fix почти догнал (отстал в 5 тестах, немного обогнал в 2 и в 1 тесте ничья) BBC Basic на BBC micro (2 МГц 6502 без тормозов). Смотреть результаты BBC лучше не в wiki (там они странноватые), а в статье из Acorn User

[ivagor]

Не сомневался, что не первым изобрел велосипед кеширования номеров строк в GOTO/GOSUB, но не знал конкретных аналогов. В продвинутых бейсиках атари начиная с basic xl это есть.
Нашел обсуждение bbc basic, где подтвердилось, что он сам по себе не особо быстрый, фишка действительно в быстром железе (bbc micro) с тестами на котором обычно сравнивают.

[svofski]

Нашел вот такой космос: https://oldbytes.space/@zxdunny/109342959566427298

Попробовал переписать для Вектора. Получается чуть-чуть медленней, чем в оригинале, но тоже красиво. Как бы ускорить?

10 CLS:COLOR7,0,0:DIMK(32)
20 FORI=1TO15
30 R=1+SIN(PI/3+I/PI)
40 G=1+1*SIN(I/PI-PI/6)
50 B=1+1*SIN(3*PI/2+I/PI)
60 K=INT(R*3.5) + INT(G*3.5)*8 + INT(B*1.5)*64
70 N=(I*5)AND15:SCREEN0,N,K:K(N)=K:K(N+16)=K
80 NEXT
90 COLOR0:PLOT0,0:FORI=0TO15:COLORI:LINEI*8,0:NEXT
100 N=200:R=2*PI/235
110 X=0:Y=0:V=0:T=0:SZ=200:SW=256/SZ:SH=256/SZ
120 T=0.025
130 FOR I=0TON:FORJ=0TON
140 U=SIN(I+V)+SIN(R*I+X)
150 V=COS(I+V)+COS(R*I+X)
160 X=U+T
170 C=JAND15:COLORC-(C=0)
180 PLOT 128+U*63,128+V*63
190 NEXT:NEXT
200 REM T=T+0.025
300 N=0
310 FORI=1TO15:SCREEN0,I,K(I+N):NEXT
320 N=N+1:IFN=16THEN300
330 GOTO310

На самом деле весьма красиво уже когда 130 FOR I=0TO40:FORJ=0TON

[b2m]

Как бы ускорить?

Не совсем уверен, но по-моему квадратный корень будет быстрее, чем COS
Да и вообще, SIN/COS тут можно таблицей сделать. 1000-2000 значений по-моему достаточно.

[ivagor]

Еще один медленный Мандельброт (вариант побыстрее для вектора тут). Написан он явно так, чтобы притормозить интерпретаторы и дать фору компиляторам и полукомпиляторам, зато есть результаты других компов и бейсиков.
В списке перечислены компы, но понятно, что тестируются конкретные связки комп+бейсик.
Результаты вектора:
2.5 - 465.9 секунды, между спеком и +4.
2.98fix - 181.64 секунды, между БКшками.

В пузырящейся вселенной на мой взгляд фишка в анимации и векторовскому бейсику 4 фазы по силам.

[svofski]

Написан он явно так, чтобы притормозить интерпретаторы

Угу. Я потому и спросил. Просто мне не так очевидно, что именно вызывает неоправданные тормоза. Переписывать вселенную в сторону уменьшения читабельности не хочется. Хочется, чтобы оригинал был легко узнаваем. Но может быть что-то можно сделать, что помноженное на 40000 итераций, ускорит на чуть-чуть.

Четыре фазы можно попробовать. Правда тогда будет не цветное. Мне понравилось как цвета получились.

[ivagor]

Угу. Я потому и спросил.

Это я про вариант Мандельброта, который рекламирует litwr. Но, конечно, пузырящаяся вселенная для 8-битных ретробейсиков подходит еще хуже. Понятно, что надо избавляться от математики внутри циклов и переходить на таблицы, о чем уже написал b2m. У автора SpecBAS в паке дем для его бейсика есть 3 варианта bubble_universe, возможно один из них менее требовательный. Насчет малого числа фаз - если оставаться в рамках бейсика и ослабить критерии трувекторизма, то есть 6128, у которого доступных плоскостей в 3 раза больше и можно даже сделать анимацию в цвете.

[svofski]

Хоть ZPU8080 расчехляй...

[ivagor]

zpu8080 круче и код компактнее, но z88dk быстрее.

[svofski]

Да, наверное больше смысла все-таки будет освоить z88dk. Там и плавучка есть? Или ты думаешь про таблицы?