Важная информация
Показано с 1 по 2 из 2

Тема: Фрактал мандельброта на степлере.

  1. #1 Фрактал мандельброта на степлере. 
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,535
    Сказал(а) спасибо
    126
    Поблагодарили 432 раз(а) в 293 сообщениях
    Записей в блоге
    6
    Написал на степлере программу, рисующую фрактал Мандельброта. Точнее адаптировал под степлер найденный в интернете целочисленный алгоритм его получения.
    Получается вот такой рисунок.

    Вот код:
    Код :
    ={Scr}=
     ?[3,4]
     $(4)(G)
     $(3)(G)
     $(3$)(0,4$)
     ~(9)(16,3$) 
    **
     
    ={Pset}=
     ?[3,4,5]
     $(3)(g,g,g)
     M(~HA000,4$^320*^5$+,S,6,1)
    **
     
    program
    *[5,19]<scr>
    $(7)(0)
    {rrer}
     $(8)(0)
     {rfol}
     $(9)(0,0,0,0)
     {cikl}
      $(9)(9$^140+^8$-)
      $(10)(10$^100+^7$-)
      $(9)(9$^9$*^10$^10$*-^64/,10$^9$*^32/^1-,11$^1+)
      #(11$^255-!^1-^10$^10$!*^255-!^1-*|)<cikl>
      $(11)(11$^256%)
      #(11$^15-!^1+)<white>
      $(11)(0^2-)
      {white}
     *[8$,7$,11$^17+]<pset> 
     $(8)(8$^1+)
     #(8$^320-|)<rfol>
    $(7)(7$^1+)
    #(7$^200-|)<rrer>

    Первая процедура устававливает графический режим 320*200, вторая выводит точку.
    К сожалению сильно увеличить его чтоб посмотреть красивые узоры не получится, разрядности не хватает.
    Вложения
    • Тип файла: rar FRAC.rar (395 байт, Просмотров: 2)
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  2. 5 пользователя(ей) сказали cпасибо:

    >Quiet Snow< (01.02.2015), pingvin (02.02.2015), ur_naz (08.02.2015), Абадябер (02.02.2015), Миша1 (04.02.2015)

  3. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,912
    Сказал(а) спасибо
    1,842
    Поблагодарили 976 раз(а) в 834 сообщениях
    Записей в блоге
    1
    Красивый пример Да ещё и целочисленный.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

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

Похожие темы

  1. Интерпретатор ЛИСПа на СТЕПЛЕРе
    от Kakos_nonos в разделе Проекты на Степлере
    Ответов: 3
    Последнее сообщение: 27.08.2012, 18:40
  2. Интерпретатор CHIP-8 на степлере.
    от Kakos_nonos в разделе Степлер
    Ответов: 3
    Последнее сообщение: 25.01.2012, 00:45
  3. Почтовый клиент на СТЕПЛЕРе
    от Kakos_nonos в разделе Проекты на Степлере
    Ответов: 3
    Последнее сообщение: 24.01.2012, 03:21
  4. Программы на СТЕПЛЕРе
    от Kakos_nonos в разделе Степлер
    Ответов: 4
    Последнее сообщение: 01.12.2011, 04:20
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •