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

[hobot]

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

да ты всё равно только флуд-вбросы во все и вся темы пишешь, а так хотя бы поиздевались над "странными" )))

[NEO SPECTRUMAN]

да ты всё равно только флуд-вбросы

я еще делают всякие никому не нужные поделия

[litwr]

Благодарю за поддержку. Но неужели нет способа перенести бейсик-код в кассетный образ? И ещё любопытно, бейсик на ДВК/УКНЦ неужели фирменный (RT11?) и без команды получения времени?
Пингвин классный, но интереснее узнать насколько быстро БК его манделброт-контур нарисует.

[hobot]

И ещё любопытно, бейсик на ДВК/УКНЦ неужели фирменный (RT11?)

я запускал в дисковом бейсике - это что то типа одного из вариантов ВИЛЬНЮС-БЕЙСИКА.
В бейсике от DEC (он же из поставки РАФОС оператор получения времени как раз есть, но исходник
сильно не адаптирован под него, эмуляторы все есть - что вам мешает самому проделать? )

[litwr]

я запускал в дисковом бейсике - это что то типа одного из вариантов ВИЛЬНЮС-БЕЙСИКА.
В бейсике от DEC (он же из поставки РАФОС оператор получения времени как раз есть, но исходник
сильно не адаптирован под него, эмуляторы все есть - что вам мешает самому проделать? )

Прямо беда была у отечественных программеров с поддержкой таймера. Даже не представляю себе, что в приведенном коде может не сработать. Это только у БК и очень древних бейсиков не допускались двоеточия-разделители. В коде самый сложный оператор - это цикл FOR, а всё остальное присваивания и PRINT. Может только в каком-то странном бейсике MID$ как-то по другому назывется...
А мешает только то, что интерес запустить именно на БК.

[Hunta]

        PROGRAM MANDEL

        COMPLEX C, Z
        REAL X0, DX, Y0, DY
        INTEGER I, J, K

        DATA X0/-2./, Y0/-1.1/, DX/.04/, DY/.1/

        DO 10 I = 1, 21
          DO 20 J = 1, 79
            C = CMPLX(X0 + J * DX, Y0 + I * DY)
            Z = (0., 0.)
            DO 30 K = 1, 99
              Z = Z ** 2 + C
              IF (REAL(ABS(Z)) .GT. 2.) GOTO 40
30          CONTINUE
40          TYPE 50, MOD(K, 10)
50          FORMAT ('$', I1)
20        CONTINUE
          TYPE 60
60        FORMAT (' ')
10      CONTINUE

        END

[Advertiser]

[litwr]

        PROGRAM MANDEL

Это же фортран - великий и могучий: настоящий программер не использует паскаль, только фортран! Это истина из начала 80-х.
Но неужели Манделброт в бейсик эмулятора БК никак?

[hobot]

Но неужели Манделброт в бейсик эмулятора БК никак?

что значит никак? но почему это кто то за вас должен делать - вам явно призрак Эйнштейна, что то нашептал )))

[litwr]

что значит никак? но почему это кто то за вас должен делать - вам явно призрак Эйнштейна, что то нашептал )))

Не понял совсем. Мне нужно подсказать как файл конвертировать и может у кого есть ссылка на наработки по таймеру. Если вы не в курсах, то зачем ведете дискуссию?

[TheGWBV]

Не понял совсем. Мне нужно подсказать как файл конвертировать и может у кого есть ссылка на наработки по таймеру. Если вы не в курсах, то зачем ведете дискуссию?

По таймеру можно порыться в журналах, если недостаточно ТО на БК0010.
Таймером можно управлять и считать интервал времени с помощью операторов Peek и Poke...

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

Вот в этой книжке есть пример, кстати

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

   10 POKE &O177706,32767%        'установка длительности периода S0
   20 POKE &O177712,&O160         'запуск таймера
   30 ? AT(0,0)PEEK(&O177710)     'смотрим, как он работает
   40 GOTO 3