Библиотека Рефераты Курсовые Дипломы Поиск

сделать стартовой

добавить в избранное

Компьютеры, Программирование

Разработка программы для построения кривых Серпинского i-го порядка

Ночник-проектор "Звездное небо и планеты", фиолетовый.
Оригинальный светильник - ночник - проектор. Корпус поворачивается от руки. Источник света: 1) Лампочка (от карманных фонариков) 2) Три
330 руб
Раздел: Ночники

Карабин, 6x60 мм.
Размеры: 6x60 мм. Материал: металл. Упаковка: блистер.
44 руб
Раздел: Карабины для ошейников и поводков

Коврик для запекания, силиконовый "Пекарь".
Коврик "Пекарь", сделанный из силикона, поможет Вам готовить вкусную и красивую выпечку. Благодаря материалу коврика, выпечка не
202 руб
Раздел: Коврики силиконовые для выпечки

Оглавление Задание Формализация задачи Схема алгоритма Текст программы Руководство пользователя Тест программы Литература Задание Оригинальный узор на рисунке 1 состоит из суперпозиции четырех кривых. Эти кривые соответствуют некоторому регулярному образу. Алгоритм для построения этих кривых на экране монитора или на графопостроителе под управлением вычислительной машины описан в . Задача проекта – реализовать этот алгоритм в виде программы на функциональном языке программирования Lisp. Рисунок 1 Анализируя рисунок 1, можно обнаружить, что он получен путем наложения друг на друга нескольких кривых. Первые две из них показаны на рисунке 2. Кривая Si называется кривой Серпинского i-го порядка. Необходимо выяснить, какова рекурсивная схема этих кривых. Рисунок 2 Главная особенность кривой Серпинского состоит в том, что она замкнута и в ней нет пересечений. Это означает, что основная рекурсивная схема должна давать разомкнутую кривую линию, четыре части которой соединяются линиями, не принадлежащими самому рекурсивному образу. И действительно, эти замыкающие линии представляют собой отрезки прямых в четырех внешних углах, на рисунке 2 они выделены жирными линиями. Можно считать, что они принадлежат к непустой начальной кривой S – квадрату, “стоящему” на одном углу. Теперь достаточно легко составить рекурсивную схему. Четыре составляющих образа, для наглядности, обозначим через A, B, C, D, а процедуры, рисующие соединительные прямые, будем обозначать стрелками, указывающими соответствующем направлении. Надо отметить, что четыре рекурсивных образа по существу идентичны, но лишь повертываются на 90° . Основной образ кривых Серпинского задается схемой: S: A ä B å C ã D ä а рекурсивные составляющие (горизонтальные и вертикальные отрезки – двойной длины): A: A ä B à D æ A B: B ã C á A ä B C: C å D ß B ã C D: D æ A â C å D Предположим, что для построения части прямой в нашем распоряжении есть процедура Li e, передвигающая перо в заданном направлении на заданное расстояние, причем направление задается целочисленным параметром i, как градусов. Если единичную прямую обозначить через h, то с помощью рекурсивных обращений к аналогично составленным процедурам для B и D и к самой A довольно просто написать процедуру, соответствующую схеме А. ( defu A ( k ) ( co d ( ( > k 0 ) ( A ( - k 1 ) ) ( Li e 1 h ) ( B ( - k 1 ) ) ( Li e 0 ( 2 h ) ) ( D ( - k 1 ) ) ( Li e 7 h ) ( A ( - k 1 ) )))) Эта процедура инициируется главной программой по одному разу для каждой кривой Серпинского, образующих приведенный рисунок. Употребление явного параметра для уровня гарантирует окончание работы, так как глубина рекурсии не может быть больше k. Главная программа строится по образцу S. Ее задача - установить начальную точку кривой, т.е. исходные координаты пера (Px и Py) и единичную длину приращения h. Квадрат, где рисуется кривая, помещается в середине экрана, заданной ширины и высоты. Графическое изображение полученного алгоритма представлено в следующем разделе (Рисунок 3).

По сравнению с таким рекурсивным построением эквивалентные программы, где избегали употребления рекурсии, выглядят крайне сложными и запутанными. Схема алгоритма Рисунок 3 Схема алгоритма главной процедуры Рисунок 4 Схема алгоритма процедуры A Текст программы ;; SIERPI S.LSP для XLISP версии 2.1 ;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; Программа построения кривых Серпинского i-го порядка. ;; ;; ЗАПУСК: > (Sierpi skiCurve 4) ;; ;; Замечание: Переменная VMode управляет установкой видео режима, ;; и по умолчанию установлена в значение 18. ;; Эта установка соответствует режиму 640x480 Color, ;; и работает на большинстве систем. В случае проблемы ;; с установкой этого режима необходимо выбрать ;; значение этой переменной в соответствии с документацией ;; на оборудование. ;; ( defvar VMode 18 ) ;Видео режим по умолчанию ( defvar MaxX 640 ) ;Максимальная ширина экрана по умолчанию ( defvar MaxY 480 ) ;Максимальная высота экрана по умолчанию ( defvar SquareSize 256 ) ;Размер области для построения ;; ;; Функция инициализирует графический режим, устанавливает переменные ;; MaxX MaxY SquareSize в соответствии с выбранным режимом ;; ( defu I i Graph() ( case VMode ( 4 ;320x200 Color ( mode 4 ) ( se q MaxX 320 MaxY 200 SquareSize 128 ) ) ( 16 ;640x350 Color ( mode 16 ) ( se q MaxX 640 MaxY 350 SquareSize 128 ) ) ( 18 ;640x480 Color ( mode 18 ) ) ( 106 ;800x600 Color ( mode 106 106 800 600 ) ( se q MaxX 800 MaxY 600 SquareSize 512 ) ) ( ( error U suppor ed graphics mode: VMode ) ) ) ) ;; ;; Функция реализует задержку на заданное время ;; ( defu pause ( ime ) ( le ( ( fi ime ( ( ime i er al- ime-u i s-per-seco d ) ( ge -i er al-ru - ime ) ) ) ) ( loop ( whe ( > ( ge -i er al-ru - ime) fi ime ) ( re ur -from pause ) ) ) ) ) ;; ;; Функция целочисленного деления ;; ( defu div ( a b ) ( rou d ( / a b ) ) ) ;; ;; Функция рисования прямой: ;; Параметры: &l ;Direc io > - направление рисования (0-7) ;; &l ;Size> - длинна прямой ;; ( defu Li e( Direc io Size ) ( se q x Px y Py ) ( case Direc io ( 0 ( se q x ( x Size) ) ) ( 1 ( se q x ( x Size ) y ( - y Size ) ) ) ( 2 ( se q y ( - y Size) ) ) ( 3 ( se q x ( - x Size ) y ( - y Size ) ) ) ( 4 ( se q x ( - x Size) ) ) ( 5 ( se q x ( - x Size ) y ( y Size ) ) ) ( 6 ( se q y ( y Size) ) ) ( 7 ( se q x ( x Size ) y ( y Size ) ) ) ) ( move Px Py x y ) ( se q Px x Py y ) ) ;; ;; Функции A, B, C, D - рекурсивные функции рисования ;; ( defu A ( k ) ( co d ( ( > k 0 ) ( A ( - k 1 ) ) ( Li e 1 h ) ( B ( - k 1 ) ) ( Li e 0 ( 2 h ) ) ( D ( - k 1 ) ) ( Li e 7 h ) ( A ( - k 1 ) ) ) ) ) ( defu B ( k ) ( co d ( ( > k 0 ) ( B ( - k 1 ) ) ( Li e 3 h ) ( C ( - k 1 ) ) ( Li e 2 ( 2 h ) ) ( A ( - k 1 ) ) ( Li e 1 h ) ( B ( - k 1 ) ) ) ) ) ( defu C ( k ) ( co d ( ( > k 0 ) ( C ( - k 1 ) ) ( Li e 5 h ) ( D ( - k 1 ) ) ( Li e 4 ( 2 h ) ) ( B ( - k 1 ) ) ( Li e 3 h ) ( C ( - k 1 ) ) ) ) ) ( defu D ( k ) ( co d ( ( > k 0 ) ( D ( - k 1 ) ) ( Li e 7 h ) ( A ( - k 1 ) ) ( Li e 6 ( 2 h ) ) ( C ( - k 1 ) ) ( Li e 5 h ) ( D ( - k 1 ) ) ) ) ) ;; ;; Главная процедура ;; Параметры: &l ;Cou > - количество итераций ;; ( defu Sierpi skiCurve ( Cou ) ( I i Graph ) ;Установка графического режима ( se q h ( div SquareSize 4 ) ) ;Вычисление длины линии ( se q x0 ( div MaxX 2 ) ) ;Вычисление начальной точки ( se q y0 ( ( div MaxY 2 ) h ) ) ;для рисования ( ;Основной цикл do (( i 1 )) ;Инициализация счетчика (( eql i ( Cou 1 ) ) 'Do e ) ;Условие завершения ( se q x0 ( - x0 h ) ) ;Вычисление координат начальной ( se q h ( div h 2 ) ) ;точки для рисования и ( se q y0 ( y0 h ) ) ;единичной длины линии ( se q Px x0 Py y0 ) ;Установка пера ( color i ) ;Установка цвета для рисования ( A i ) ( Li e 1 h ) ;Рисование ( B i ) ( Li e 3 h ) ( C i ) ( Li e 5 h ) ( D i ) ( Li e 7 h ) ( pause 1.0

) ;Задержка ( se q i ( i 1 )) ;Инкримент счетчика ) ;Конец основного цикла ) ( pri ry (Sierpi skiCurve 4) ) ;Подсказка Руководство пользователя Требования к системе: x86 персональный компьютер (386 минимум; 486, Pe ium, или Pe ium Pro рекомендуется) Microsof DOS 3.30 или выше Microsof Wi dows 3.1, Microsof Wi dows for Workgroups, Microsof Wi dows 95, Microsof Wi dows 3.51 или 4.0 512 Kb RAM 5 Kb свободного пространства на жестком диске Установленный интерпретатор XLisp версии 2.1 или выше Для запуска программы необходимо: Включить компьютер Загрузить интерпретатор XLisp c параметром “Sierpi s.lsp”: C:XLISPXLISP.EXE SIERPI S.LSPÃ В ответ на приглашение XLisp ввести: (Sierpi skiCurve 4)Ã Тест программы Тест проводился на рабочей станции со следующей конфигурацией: Pe ium 166 32 Mb RAM Sy cMas er 17Glsi S3 rio64V Wi dows 95 Интерпретатор XLisp был запущен в окне MS-DOS. Программа тестировалась при значениях параметра Cou от 1 до 4. В результате тестов были получены следующие изображения на экране монитора: Рисунок 5 Рисунок 6 Рисунок 7 Рисунок 8 Литература “Алгоритм структура данных = программа”, H.Вирт “XLisp-Plus 2.1 Programmers Ma ual”, David Michael Be z

Авторы не согласны с этим утверждением. Разработка программ призвана быть инженерной дисциплиной. Однако это не исключает индивидуального мастерства. Достаточно вспомнить о больших соборах, построенных в Европе в средние века. Для каждого из них потребовались тысячи человеко-лет усилий, прилагаемых на протяжении десятилетий. Приобретенный опыт передавался следующему поколению строителей, которые своими достижениями двигали строительную технику вперед. Но плотники, каменотесы, резчики по дереву и стекольщики оставались мастерами, преобразующими требования для создания единого целого, что выходило за границы чисто механической стороны строительства. Именно вера в их личный вклад не давала замереть этим проектам: Отесывая камни, всегда думай о соборах, которые будут строиться из них. Кредо средневекового каменотеса В общей структуре проекта всегда найдется место индивидуальности и мастерству. Это утверждение особенно верно, если учитывать сегодняшнее состояние программирования. Через сотню лет современные методы программирования могут показаться такими архаичными, какими сегодня кажутся методы строительства средневековых соборов, тогда как наше мастерство по-прежнему будет в почете

1. Исследование кривых и поверхностей второго порядка

2. Качественное исследование в целом двумерной квадратичной стационарной системы с двумя частными интегралами в виде кривых второго порядка

3. Кривые второго порядка. Квадратичные формы

4. Поверхности второго порядка

5. Поверхности второго порядка

6. Поверхности второго порядка

7. Планы второго порядка, реализация В3-плана

8. Шпаргалка по физике для студентов 1-го курса (по билетам)

9. Стандарты сотовой связи 1-го и 2-го поколений. Организация хэндовера

10. Разработка программы на языке LISP для построения кривых Серпинского i-го порядка

11. Качественное исследование в целом двумерной квадратичной стационарной системы с двумя частными интегралами в виде кривых второго и первого порядков

12. Качественное исследование в целом двумерной квадратичной стационарной системы с двумя частными интегралами в виде кривых третьего и первого порядков

13. Использование численных методов для решения дифуpов (2-го порядка) (, демонстрация применения интерполяции в среде MATHCAD-а)

14. Решение дифференциальных уравнений 1 порядка методом Эйлера

15. Поверхности 2-го порядка

16. ЭВМ с использованием математического пакета MathCad в среде Windows 98 для решения дифференциального уравнения n-го порядка

Насадка на кран "Палитра", светодиодная.
Светодиодная насадка «Палитра» включается под напором воды и, в зависимости от ее температуры, подсвечивает проходящий поток в синий,
490 руб
Раздел: Ванная

Чайник эмалированный "Шиповник" EM-40X1/45, с керамической ручкой, 4 л.
Объем: 4 л. Внешнее высокопрочное трехслойное эмалевое покрытие. Внутреннее эмалевое покрытие, устойчивое к воздействию пищевых
1323 руб
Раздел: Чайники эмалированные

Папка для труда, А4, на липучке.
Удобная папка для уроков труда на липучках. Полностью раскрывается. Внутри папки находится большое отделение с прозрачным окном, а также
366 руб
Раздел: Папки для труда

17. Решения неоднородных дифференциальных уравнений 2-го порядка с постоянными коэффициентами. Комплексные числа

18. Нормы ГК, которые определяют особенности порядка заключения договоров по недвижимости

19. Возбуждение производства по пересмотру судебного постановления в порядке надзора и процессуальный порядок рассмотрения протестов

20. Решение систем дифференциальных уравнений методом Рунге-Куты 4 порядка

21. Замечательные кривые

22. Кривизна плоской кривой. Эволюта и эвольвента

23. Проблемы совершенствования порядка установления, начисления и взимания процентов по кредитам в коммерческих банках /на материале АКБ Украина/

24. Инфляция, виды инфляции. Кривая Филлипса

25. Крива LM. Сутнiсть, графiчна побудова. Фактори, що впливають на кут нахилу кривоi LM

26. США: от экспансии в прошлом к новому «мировому порядку» в будущем

27. Создание термоядерного оружия в СССР: второй этап ядерной гонки

28. Анализ дискретного фильтра II порядка

29. Алгоритм компактного хранения и решения СЛАУ высокого порядка

30. Стрела времени и необратимость, возникновение хаоса из порядка и порядока из хаоса как следствие фундаментального детерминизма

31. Хроногеометрия несвязных гранично однородных порядков в аффинном пространстве

32. Билеты по предмету Организация торговли продовольственными и непродовольственными товарами. 1 семестр 2001-го.

Щетка-сметка для снега со скребком, автомобильная, 850 мм.
Усиленная рукоятка из алюминиевого сплава с удлиненным мягким держателем. Густая распушенная щетина для бережной очистки снега с
521 руб
Раздел: Автомобильные щетки, скребки

Этажерка для обуви разборная, 4 полки, 660x280x700 мм.
Модель предназначена для хранения обуви в прихожей. Она придется особенно кстати, если у вас малогабаритная квартира: она займет минимум
1102 руб
Раздел: Полки напольные, стеллажи

Стрейч-пленка для ручной упаковки, вес 1 кг, 17 мкм, 45 см x 140 метров.
Прозрачная стрейч-пленка для ручной упаковки применяется в быту, на производстве, в офисе, магазине. Изготовлена из прочного полиэтилена,
351 руб
Раздел: Плёнка пищевая

33. Создание порядка из хаоса

34. Кривые линии и поверхности

35. О порядке определения и способе установления ставок платы за землю поселений

36. Инструкция о порядке регистрации представительств иностранных субъектов хозяйственной деятельности в Украине

37. Роль и место органов местного самоуправления в осуществлении охраны общественного порядка

38. Виды зарубежных конституций по порядку изменения и отмены

39. Блок выравнивания порядков

40. Преступления против общественного порядка

41. Маркетинг и кривые равновесия

42. Кривые Энгеля и их новая интерпретация

43. Критика неолиберального порядка

44. Кривые спроса, предложения и доход

45. Налоги. Кривая Лаффера

46. Конституционные основы правосудия при защите прав в порядке гражданского судопроизводства

47. ФСС: О некоторых вопросах порядка проведения камеральных проверок

48. Производство в порядке надзора

Детский велосипед Jaguar трехколесный (цвет: синий).
Детский трехколесный велосипед для малышей от 1 года до 3 лет. Трехколесный велосипед колясочного типа с музыкально-световой кнопкой.
1800 руб
Раздел: Трехколесные

Вешалка для одежды напольная, раздвижная ТД-00017.
Длина: 145 см. Регулируемая высота: 90-155 см. Ширина: 43 см. Количество перекладин: 2. Максимальная нагрузка: 15 кг. Вешалка напольная
1217 руб
Раздел: Вешалки напольные

Смываемые фломастеры "Супер чисто", 12 штук.
Дети так любят рисовать! Поэтому набор фломастеров обязательно понравится юным художникам. 12 цветов позволят широко развернуться в
589 руб
Раздел: 7-12 цветов

49. Конспект семейств порядка лилейные Калининградской области (кроме семейств гиацинтовые, ирисовые и луковые)

50. Оптимизация размещения и порядка бурения многоствольных скважин в процессе мониторинга разработки Кравцовского месторождения

51. Flash. Кривые Безье

52. Кривизна плоской кривой. Эволюта и эвольвента

53. Нелокальная краевая задача для уравнения смешанного типа третьего порядка с кратными характеристиками

57. Боевая служба роты полка оперативного назначения ВВ МВД России по охране общественного порядка и обеспечение общественной безопасности при стихийных бедствиях

58. Адміністративний нагляд органів внутрішніх справ у сфері забезпечення громадського порядку і громадської безпеки

59. Анализ Указа Президента Республики Беларусь от 27.03.2008 № 178 "О порядке проведения и контроля внешнеторговых операций"

60. Исследование процессуального порядка привлечения лица в качестве обвиняемого

61. Основания административной ответственности в области природы и охраны законодательства за нарушение порядка землепользования

62. Охрана общественного порядка и обеспечение общественной безопасности на объектах транспорта

63. Пересмотр в порядке надзора судебных постановлений, вступивших в законную силу

64. Пересмотр судебных актов в порядке надзора и по вновь открывшимся обстоятельствам

Шкатулка декоративная для ювелирных украшений "Вокруг света", 18,5x13,5x7,5 см.
Шкатулка декоративная для ювелирных украшений. Размер: 18,5x13,5x7,5 см. Материал: МДФ, комбинированные материалы. В ассортименте, без
873 руб
Раздел: Шкатулки для украшений

Трехколесный велосипед Funny Jaguar Lexus Trike Next Pro Air (цвет: фиолетовый).
Велосипед трехколесный подходит для детей от 1 года. Характеристики: - хромированная облегченная рама, покрытая перламутровой краской с
4200 руб
Раздел: Трехколесные

Подарочный набор: визитница, ручка, нож складной, арт. 46051.
Элегантный дизайн прекрасно дополняет функциональность и делает этот набор прекрасным подарком. В наборе: визитница, ручка, нож складной.
723 руб
Раздел: Подарочные наборы

65. Правовая сущность гражданско-правого договора и особенности общего порядка его заключения в современных экономических условиях

66. Предупреждение и пресечение административных правонарушений против порядка управления

67. Производство по пересмотру судебных постановлений в кассационном порядке в хозяйственном суде Республики Беларусь

68. Процессуально-правовые последствия несоблюдения порядка предъявления иска

69. Разрешение жалоб в административном порядке

70. Способы защиты гражданских прав в административном порядке

71. Усыновление (удочерение) ребенка в порядке особого производства

72. Влияние международных моделей полицейской охраны общественного порядка в Латинской Америке: экспериментальные программы поддержания правопорядка с привлечением населения

73. Основные принципы построения сети 1-WIRE

74. Розв’язання задачі Коші для звичайного диференціального рівняння першого порядку методом Ейлера

75. Чисельне інтегрування та наближення функцій поліномами вищого порядку

76. Кривий Ріг у роки Великої Вітчизняної війни

77. Дефокусировка. Сферическая аберрация 3 порядка. Кома и неизопланатизм

78. Аналитические свойства решений системы двух дифференциальных уравнений третьего порядка

79. Метод Рунге-Кутты четвертого порядка с автоматическим выбором шага интегрирования решения задачи Коши

80. Пересечение кривых поверхностей

Подушка, с лузгой гречихи, 50x68 см.
Подушка с гречневой лузгой - самая натуральная ортопедическая подушка: она высококачественная, "дышащая", экологична. Размер
690 руб
Раздел: Размер 50х70 см, 40х60 см

Кондиционер для белья BioMio "BIO-SOFT" с экстрактом хлопка и эфирным маслом эвкалипта, 1,5.
BioMio – линейка эффективных средств для дома, использование которых приносит только удовольствие. Уборка помогает не только очистить и
383 руб
Раздел: Ополаскиватели, кондиционеры

Автомобиль-каталка.
Эта симпатичная каталка в виде машинки - первое транспортное средство малыша. Ведь он еще так мал для велосипеда или самоката, а вот
851 руб
Раздел: Каталки

81. Кривые на плоскости

82. Визначення та обчислення довжини дуги плоскої кривої в декартових та полярних координатах. Площа поверхні

83. Становление, развитие и перспективы российско-канадских отношений в контексте нового мирового порядка

84. Особенности хозяйственного порядка Украины

85. Когрентність другого порядку як об’єкт експериментального дослідження

86. Налогообложение. Кривая Лаффера

89. Кривая Филлипса и проблемы взаимосвязи инфляции и безработицы. Инфляция и безработица в рамках Российского законодательства

90. О порядке регулирования, формирования и утверждения тарифов на платные медицинские услуги

91. Перераспределение бюджета. Кривая производственных возможностей

92. Авиация Второй мировой войны

93. Отчёт по лабараторным работам по биологии за 1 семестр

94. Мсб /БТР/ в наступлении на подготовленную оборону противника /ФРГ/ с ходу во втором эшелоне полка в условиях применения противником СДМ

95. ГО Правила поведения и действия населения в очагах поражения

96. Оповещение о чрезвычайных ситуациях. Сигналы оповещения ГО и действия населения по ним

Одеяло 2-х спальное "Стандарт", шерсть мериноса.
Одеяло 2-х-спальное (стандарт). Материал: овечья шерсть, мериноса (смесь натурального и искусственного шерстяного наполнителя). Чехол:
916 руб
Раздел: Одеяла

Банка для чайных пакетиков (диспенсер) "Ирис", 9x8x19 см (фарфор).
Банка для чайных пакетиков (диспенсер) "Ирис". В фарфоровой банке чай отлично сохранится, а доставать пакетики из специального
599 руб
Раздел: Стеклянные

Мягкая игрушка "Волк. Забивака", 24 см.
Этот обаятельный, улыбчивый символ Чемпионата мира по футболу ещё и сувенир в память о событии мирового масштаба на всю жизнь! Уже
1280 руб
Раздел: Игрушки, фигурки

97. Применение ЭВМ для повышения эффективности работы штаба ГО РАТАП

98. Промышленное производство в Республике Беларусь в 90-х годах ХХ-го века

99. Геодезия и картография. Создание топографических карт и планов масштаба 1:5000

100. Гидрогеология. Построение разреза по скважинам