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

[litwr]

реально непонятно откуда такие выводы. хорошая игра наверно для тех кто кроме неё ничего не видел.
вообще-то она спёрта со спектрума

Это понятно, что сперта, но для БК не сперли - в этом всё дело. А чем плоха игра - очень даже занимательно и клад найти, и пиратов победить, и от Сильвера убежать, а карта большая и музычка хорошая. Пропустили? Сочувствую. Хотя ещё не поздно. Может по-честному пройти уже у кого-то реакции не хватит, но этот счет придуманы чит-коды.

ОС БК которую никто не запускал на БК - докатились ))) Вы понятия не имеете о машинке и её модификациях

Ну-ну! ОС БК-11 - самая популярная ОС для БК. Вы бы ещё про пятилетку в 3 года лозунг подняли.

вам дали единственный путь прогнать ваш тест прямо сейчас, но вы уже и выше дали понять, что ведение таблиц - это предел ваших возможностей. Должен быть конвертер ?

Редискам конвертор не нужен - тут согласен с вами абсолютно.

предпочитаю промышленные и военные стандарты от DEC. Тем более - это было актуально для того времени (промышленность, ЧПУ, автоматизация производства).

Вот именно - ЧПУ! А как же СУБД, электронный таблицы, ...? На CP/M такого было много, а на PDP-11 только под RSX-11 и с таблицами сомнительного качества.

FAST-PASCAL есть и для БК\УК-НЦ\ДВК мощный, но тяжеловесный, а обычный компилятор OMSI PASCAL и все его производные - это чудесная вещь (для тех кто действительно понимает изнает о чём речь, а не голословно тянет за уши из аргументацию субъективную - ни о чём).

Признаюсь, не использовал эти паскали, но спрошу только один вопрос: "там длинные целые есть? 32-бита?" И что по вашему аргументация объективная?

По теме, системный Бейсик пропатченый и демо программа от @Patrona

Какое это отношение имеет к БК ПЗУ-бейсику? Там какие-то настройки RT-11. Совсем не по теме. Тема - это показать, что БК быстрее коммодоров и атарей на честном бейсике.

Да, при условии, что программа от БК0010-01 не пользуется ячейками ОЗУ напрямую - как очень любили делать на БК0010-01, рисуя на экране прямой записью в экранное ОЗУ.

Это примерно понятно. Вопрос считывается ли бейсик с кассеты, записанной на БК0010-01, на БК0011М? Пробовал с несколькими эмуляторами и не получилось. Может у кого-нибудь получилось? Возможно неправ, но у меня сложилось мнение, что эмулятор GID не поддерживает запись на образы кассет в режиме 11М и даже чтение с них. А значит есть скорее всего какая-то несовместимость между 10-01 и 11М.

[Advertiser]

[litwr]

Ну вот с доброй помощью и построился Манделброт на БК. Конвертор (работа со сценариями) встроена в эмулятор GID. К сожалению у этого эмулятора проблема с таймером, поэтому запускать (перенесши bin-образ) пришлось на BK2010. И получилась вот такая картинка.

Обогнали почти всех, даже Коммодор 128 в быстром режиме! Все-таки бейсик 1986 года и неплохие были специалисты в Вильнюсе. Только BBC Micro осталась впереди, но там бейсик изначально делали быстрым. И эти Микро были одними из самых дорогих домашних/учебных ПК. Хотя и недорогой Амстрад тоже обогнал БК - там бейсик 1984 года и тоже один из самых быстрых.
Заканчивая тему, хочу поблагодарить всех её участников, хотя некоторым возможно стоит знать слова одного из лучших философов 20 века, Людвига Витгенштейна: "Иногда лучше промолчать." К себе только не всегда успеваю применить.
Хотя хорошо бы, если кто запустил на реальной БК, уточнил тайминги. Вот код

  100 rem a basic, ascii mandelbrot
  110 rem
  120 rem this implementation copyright (c) 2019, gordon henderson
  130 rem
  140 rem permission to use/abuse anywhere for any purpose granted, but
  150 rem it comes with no warranty whatsoever. good luck!
  160 rem
  165 rem bk conversion by litwr, 2020
  170 c$ = ".,'~=+:;[/<&?oxOX# "
  180 so = 1
  190 mi = len(c$)
  200 mx = 4
  210 ls = -2.0
  220 tp = 1.25
  230 xs = 2.5
  240 ys = -2.5
  250 w = 38
  260 h = 21
  270 sx = xs / w
  280 sy = ys / h
  290 poke&hffca,114
  300 for y = 0 to h
  310   cy = y * sy + tp
  320   for x = 0 to w
  330     cx = x * sx + ls
  340     zx = 0
  350     zy = 0
  360     cc = so
  370     x2 = zx * zx
  380     y2 = zy * zy
  390     if cc > mi then goto 460
  400     if (x2 + y2) > mx then goto 460
  410     t = x2 - y2 + cx
  420     zy = 2 * zx * zy + cy
  430     zx = t
  440     cc = cc + 1
  450     goto 370
  460     print mid$(c$, cc - so, 1);
  470   next
  480   print
  490 next
  510 t = peek(&hffc8)
  512 if t<0 then t=-t else t=65536-t
  514 print (t+65536)*64/3000*128/1000

[dim33]

Ну вот с доброй помощью и построился Манделброт на БК. Конвертор (работа со сценариями) встроена в эмулятор GID. К сожалению у этого эмулятора проблема с таймером, поэтому запускать (перенесши bin-образ) пришлось на BK2010. И получилась вот такая картинка.

Обогнали почти всех, даже Коммодор 128 в быстром режиме! Все-таки бейсик 1986 года и неплохие были специалисты в Вильнюсе. Только BBC Micro осталась впереди, но там бейсик изначально делали быстрым. И эти Микро были одними из самых дорогих домашних/учебных ПК. Хотя и недорогой Амстрад тоже обогнал БК - там бейсик 1984 года и тоже один из самых быстрых.

А если все вычисления для БК выполнять в режиме одинарной точности, то скорость вычислений возрастает на ~41% (на реальном железе пока не провярял - только в эмуляторе):

[litwr]

А если все вычисления для БК выполнять в режиме одинарной точности, то скорость вычислений возрастает на ~41% (на реальном железе пока не провярял - только в эмуляторе):

БК опять преподносит сюрпризы. Как известно, у БК все операции идут с двойной точностью и поэтому операции на данных одинарной точности вроде бы должны быть медленнее из-за преобразований типа. Для объяснения возникшего феномена предложу следующие факторы:
1) присваивание возможно происходит без преобразования типа и поэтому быстрее для одинарной точности;
2) само преобразование типа происходит очень быстро;
3) некоторые действия с мантиссами, где много финальных нулей, быстрее, а такие мантиссы должны естественно получаться из коротких мантисс.

[Manwe]

Запустил на реальной БК 0010. Результат 207.18933333

[NEO SPECTRUMAN]

ну вот просто показательная картинка
для товарищей рассказывающих какие у них 80 символов в строке на одном видео выходе

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

что примечательно цвета получились прям такие комодорские на фотке

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

зы: Manwe, как ты так фоткаешь с элт экрана?
на низкой яркосте с большой выдержкой?

[MM]

80

64.
Непристойные 80 только в БК11М.

[hobot]

64.
Непристойные 80 только в БК11М.

и УК-НЦ )

[NEO SPECTRUMAN]

и УК-НЦ )

так укнцо это не бека

а если это бека

то спектрумисты легко могут расчехлить самкоп с 512х192 4с и 256х192 16с из палитры в 128 цветов и сказать что это спектрум пушо это спектрум


просто АААнимация с поллитрой


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

наверно просто картинка

[litwr]

то спектрумисты легко могут расчехлить самкоп с 512х192 4с и 256х192 16с из палитры в 128 цветов и сказать что это спектрум пушо это спектрум

Картинки явно приглаженные...