Важная информация

User Tag List

Страница 1 из 8 12345 ... ПоследняяПоследняя
Показано с 1 по 10 из 80

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

  1. #1
    Activist
    Регистрация
    16.12.2014
    Адрес
    г. Ожерелье
    Сообщений
    363
    Спасибо Благодарностей отдано 
    62
    Спасибо Благодарностей получено 
    4
    Поблагодарили
    4 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию Манделброт в ASCII Art

    Человек опубликовал интересную программу для отрисовки Манделброта на бейсике. Программа интересна двумя моментами:
    1) она рисует через ASCII-псевдографику;
    2) она написана в максимально упрощенном бейсике, что позволяет запускать её без изменений на практически любом бейсике.
    Эти моменты естественно позволяют потестировать в том числе и БК, увидеть оригинальный бэкашный Манделброт и узнать очередной раз насколько хорош был "шитый" код.
    У меня, к сожалению, возникли две проблемы:
    1) на БК (и даже 0011М) как и наверное других сделанных в СССР домашних и учебных компьютерах почему-то нет поддержки таймера в бейсике (переменной ti), которая есть практически в любом зарубежном домашнем компике с начала 80-х;
    2) не знаю как перенести текст бейсика в БК, его нужно как-то конвертировать кассетный образ...
    Наверное вторая проблема решается, но с первой мне не справится. Возможно где-то есть расширение бейсика с поддержкой таймера. Могу только надеяться на чью-то помощь с запуском этой программы и получением скриншота.
    Код программы ниже.
    Код:
      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
      170 c$ = ".,'~=+:;[/<&?oxOX# " : rem 'pallet' lightest to darkest...
      180 so = 1 : rem set to 0 if your mid$() indexes from 0.
      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 q = time
      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
      500 print
      510 print (time - q) / 60
      520 end
    Ссылка на тему, где этот код появился - http://forum.6502.org/viewtopic.php?f=1&t=6323
    Результаты:
    Код:
    BBC Master (mode 7)   111.95
    BBC Master (mode 6)   112.04
    BBC Micro B (mode 7)  144.96
    Amstrad CPC 6128      163.43
    Электроника БК0010-01 205
    Commodore 128 (fast)  297.57
    Commodore 64          384.16
    Atari 800XL           394.12
    Dragon 32/64          405.02
    ZX Spectrum           422
    Commodore +4          485.85
    MSX2                  554.98
    Корвет ПК-8020        564.92
    Commodore 128         620.20
    К сожалению, выбрал слишком широкий мандельброт, на Спеках, Драконах и Кокошных Танди не влезет в экран: 32 символа - очень мало. Но если не нужна картинка, то можно и все замерить, даже калькулятор МК-85. Может кто попробует?
    Последний раз редактировалось litwr; 12.01.2021 в 23:22.

  2. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  3. #2
    Member
    Регистрация
    27.01.2020
    Адрес
    г. Усть-Каменогорск, Казахстан
    Сообщений
    54
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    21
    Поблагодарили
    17 сообщений
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Ой что то у меня сомнения на счет работоспособности этой программы на бейсике БКхх. Хотя возможно всё.

  4. #3
    Activist
    Регистрация
    16.12.2014
    Адрес
    г. Ожерелье
    Сообщений
    363
    Спасибо Благодарностей отдано 
    62
    Спасибо Благодарностей получено 
    4
    Поблагодарили
    4 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    будет работать, надо просто адаптировать под синтаксис ВИЛЬНЮС-БЕЙСИКА
    Извиняюсь за выражение, но Манделброт получился не тот. Там в исходном листинге надо только убрать ремы после двоеточий и сами двоеточия. Правильные Мандельброты для разных компиков доступны по указанной ссылке. И неужели даже в бейсике ДВК/УКНЦ нет поддержки таймера?! Плохи были совсем получается ПЗУ-программеры. На БК-бейсике SY - это обычная переменная и переименовывать её там не надо.
    В строке 170 опечатка - там должно быть c$ = ".,'~=+:;[/<&?oxOX# ", но можно любые знаки в последовательности светлее-темнее - если апостоф в строках запрещен (на БК не запрещен), то можно попробовать, например, ^ вместо него

  5. #4
    Оператор ДВК Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    6,601
    Спасибо Благодарностей отдано 
    2,380
    Спасибо Благодарностей получено 
    254
    Поблагодарили
    215 сообщений
    Mentioned
    11 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от litwr Посмотреть сообщение
    ПЗУ-программеры
    это дисковый бейсик!

    Цитата Сообщение от litwr Посмотреть сообщение
    там должно быть c$ = ".,'~=+:;[/<&?oxOX# "
    поправил


    Цитата Сообщение от litwr Посмотреть сообщение
    На БК-бейсике SY - это обычная переменная и переименовывать её там не надо.
    но я то не на БК запускаю, поэтому приходится переименовывать, поскольку SY - оператор.
    На БК извольте сами набивать, в эмулятор УК-НЦ мне легко текст затащить.
    Картинка странная конечно, это самолётик что ли ? Шатл? Или что это вообще такое ?

    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  6. #5
    Guru Аватар для NEO SPECTRUMAN
    Регистрация
    22.05.2011
    Адрес
    Дзержинск
    Сообщений
    5,698
    Спасибо Благодарностей отдано 
    339
    Спасибо Благодарностей получено 
    460
    Поблагодарили
    359 сообщений
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    Картинка странная конечно, это самолётик что ли ? Шатл? Или что это вообще такое ?
    ты чо фракталов никогда не видел?

    а как по мне получился пингвин

    что как бы намекает на ориентацию аффтара

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


  7. #6
    Moderator Аватар для JV-Soft
    Регистрация
    14.05.2015
    Адрес
    г. Харьков, Украина
    Сообщений
    2,872
    Спасибо Благодарностей отдано 
    134
    Спасибо Благодарностей получено 
    256
    Поблагодарили
    142 сообщений
    Mentioned
    3 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    Сто лет назад писали фракталы на басике

    Арфы нет ,возьмите бубен
    Безумие это повторение одного и того же в ожидании другого результата.


    Сайт http://p-45.zzz.com.ua
    Amiga A500
    Восстановлен(2018) дополнен и в строю - Pentagon (1991) 1024k (256kb ROM 4 конфигурации ПЗУ)/turbo 7 мгц/кеш 32кб/covox/ TS /AY mouse/fdd 3.5" /Nemo-Ide/10gb HDD (DNA-OS)
    Восстановлен(2015) и в строю - Харьков 128
    Восстановлен(2016) ZX-Дигитайзер

    Ждут паяльника - пентагон 48 , pentagon 128.
    [свернуть]

  8. #7
    Оператор ДВК Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    6,601
    Спасибо Благодарностей отдано 
    2,380
    Спасибо Благодарностей получено 
    254
    Поблагодарили
    215 сообщений
    Mentioned
    11 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от JV-Soft Посмотреть сообщение
    Сто лет назад писали фракталы на басике
    так лучше бы не листинг, а картинку запуска запостили? )
    ПИНГВИН - зачётный ! )

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

    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  9. #8
    Guru Аватар для NEO SPECTRUMAN
    Регистрация
    22.05.2011
    Адрес
    Дзержинск
    Сообщений
    5,698
    Спасибо Благодарностей отдано 
    339
    Спасибо Благодарностей получено 
    460
    Поблагодарили
    359 сообщений
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    это че тестирование аэродинамических качеств пингвина?

  10. #9
    Оператор ДВК Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    6,601
    Спасибо Благодарностей отдано 
    2,380
    Спасибо Благодарностей получено 
    254
    Поблагодарили
    215 сообщений
    Mentioned
    11 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от NEO SPECTRUMAN Посмотреть сообщение
    это че тестирование аэродинамических качеств пингвина?
    а слабо ПИНГВИНА запихать во все скрины ? )))
    http://forum.6502.org/viewtopic.php?f=1&t=6323#p79401

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

    и сделай ему уже клюв красный или оранжевый, а ласты пусть жёлтыми останутся
    Последний раз редактировалось hobot; 04.11.2020 в 04:43.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  11. #10
    Guru Аватар для NEO SPECTRUMAN
    Регистрация
    22.05.2011
    Адрес
    Дзержинск
    Сообщений
    5,698
    Спасибо Благодарностей отдано 
    339
    Спасибо Благодарностей получено 
    460
    Поблагодарили
    359 сообщений
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    нехрен мне еще делать...

Страница 1 из 8 12345 ... ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Видео о ASCII 2002
    от flydream в разделе Демо
    Ответов: 1
    Последнее: 22.05.2016, 10:26
  2. ASCII/ANSI-art
    от Mat1sha в разделе Творчество
    Ответов: 19
    Последнее: 18.01.2012, 18:11
  3. Bmp->ASCII
    от ALKO в разделе Софт
    Ответов: 8
    Последнее: 23.05.2011, 15:54
  4. ascii logo за 5 минут
    от elf/2 в разделе Утилиты
    Ответов: 0
    Последнее: 21.06.2010, 11:27
  5. ASCII'2008
    от Stingrey в разделе События
    Ответов: 118
    Последнее: 18.11.2008, 16:51

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •