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

[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

[Maxvel]

litwr, На БК бейсик сильно не котировался из за его медленной работы да и совместимость его отличалась, к примеру то что написано было на на бейсиве 86 на БК0010 не все могло работать на той же 11м или 11 от того библиотека игр и программ на бейсике столь мала а что имеется то все для 86 бейсика на БК0010.

[litwr]

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

Благодарю вас. Как с таймером работать - это известно, у меня все-таки есть проекты для БК, где таймер хорошо используется. Предполагал, что может есть какие-то готовые добавки к бейсику. Все-таки мандельброт - это проект не затратный - нужен результат и быстро. Вот для атарей энтузиасты полностью переписали ПЗУ-бейсик (Altirra Basic) и стал он на мандельбротах на 160% быстрее. Подозреваю, что эти энтузиасты скорее поляки.

litwr, На БК бейсик сильно не котировался из за его медленной работы да и совместимость его отличалась, к примеру то что написано было на на бейсиве 86 на БК0010 не все могло работать на той же 11м или 11 от того библиотека игр и программ на бейсике столь мала а что имеется то все для 86 бейсика на БК0010.

Какой-то тут диссонанс с общеизвестной информацией. Это фокал был тормозной, но давал больше памяти, чем бейсик, который был быстрый, "шитый". В школах, наверное, только бейсик и использовали.
Никогда не слышал о несовместимост бейсиков на 10 и 11. По описанием бейсик на 11 - это расширение и очень скромное бейсика 10. Очень интересно, что там несовместимого могли сделать. Может ММ знает?
И все-таки: знает ли кто про утилиту для конвертации текста бейсика в bin-файл?