Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

Название: Разработка программы для построения кривых Серпинского i-го порядка
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 02:23:08 27 февраля 2008 Похожие работы
Просмотров: 192 Комментариев: 3 Оценило: 1 человек Средний балл: 4 Оценка: неизвестно     Скачать

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

Оглавление

Задание

Формализация задачи

Схема алгоритма

Текст программы

Руководство пользователя

Тест программы

Литература

Задание

Оригинальный узор на рисунке 1 состоит из суперпозиции четырех кривых. Эти кривые соответствуют некоторому регулярному образу. Алгоритм для построения этих кривых на экране монитора или на графопостроителе под управлением вычислительной машины описан в [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

Предположим, что для построения части прямой в нашем распоряжении есть процедура Line , передвигающая перо в заданном направлении на заданное расстояние, причем направление задается целочисленным параметром i , как градусов. Если единичную прямую обозначить через h , то с помощью рекурсивных обращений к аналогично составленным процедурам для B и D и к самой A довольно просто написать процедуру, соответствующую схеме А .

( defun A ( k )

( cond ( ( > k 0 )

( A ( - k 1 ) ) ( Line 1 h )

( B ( - k 1 ) ) ( Line 0 ( * 2 h ) )

( D ( - k 1 ) ) ( Line 7 h )

( A ( - k 1 ) ))))

Эта процедура инициируется главной программой по одному разу для каждой кривой Серпинского, образующих приведенный рисунок. Употребление явного параметра для уровня гарантирует окончание работы, так как глубина рекурсии не может быть больше k . Главная программа строится по образцу S . Ее задача - установить начальную точку кривой, т.е. исходные координаты пера (Px и Py ) и единичную длину приращения h . Квадрат, где рисуется кривая, помещается в середине экрана, заданной ширины и высоты.

Графическое изображение полученного алгоритма представлено в следующем разделе (Рисунок 3).

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

Схема алгоритма

Рисунок 3 Схема алгоритма главной процедуры

Рисунок 4 Схема алгоритма процедуры A[1]

Текст программы

;; SIERPINS.LSP для XLISP версии 2.1

;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

;; Программа построения кривых Серпинского i-го порядка.

;;

;; ЗАПУСК: > (SierpinskiCurve 4)

;;

;; Замечание: Переменная *VMode* управляет установкой видео режима,

;; и по умолчанию установлена в значение 18.

;; Эта установка соответствует режиму 640x480 Color,

;; и работает на большинстве систем. В случае проблемы

;; с установкой этого режима необходимо выбрать

;; значение этой переменной в соответствии с документацией

;; на оборудование.

;;

( defvar *VMode* 18 ) ;Видео режим по умолчанию

( defvar *MaxX* 640 ) ;Максимальная ширина экрана по умолчанию

( defvar *MaxY* 480 ) ;Максимальная высота экрана по умолчанию

( defvar *SquareSize* 256 ) ;Размер области для построения

;;

;; Функция инициализирует графический режим, устанавливает переменные

;; *MaxX* *MaxY* *SquareSize* в соответствии с выбранным режимом

;;

(

defun InitGraph()

(

case *VMode*

( 4 ;320x200 Color

( mode 4 )

( setq *MaxX* 320 *MaxY* 200 *SquareSize* 128 ) )

( 16 ;640x350 Color

( mode 16 )

( setq *MaxX* 640 *MaxY* 350 *SquareSize* 128 ) )

( 18 ;640x480 Color

( mode 18 ) )

( 106 ;800x600 Color

( mode 106 106 800 600 )

( setq *MaxX* 800 *MaxY* 600 *SquareSize* 512 ) )

( t ( error Unsupported graphics mode: *VMode* ) )

)

)

;;

;; Функция реализует задержку на заданное время

;;

(

defun pause ( time )

( let ( ( fintime ( + ( * time internal-time-units-per-second )

( get-internal-run-time ) ) ) )

( loop ( when ( > ( get-internal-run-time) fintime )

( return-from pause ) ) ) )

)

;;

;; Функция целочисленного деления

;;

(

defun div ( a b ) ( round ( / a b ) )

)

;;

;; Функция рисования прямой:

;; Параметры: <Direction> - направление рисования (0-7)

;; <Size> - длинна прямой

;;

(

defun Line( Direction Size )

( setq x Px y Py )

(

case Direction

( 0 ( setq x ( + x Size) ) )

( 1 ( setq x ( + x Size ) y ( - y Size ) ) )

( 2 ( setq y ( - y Size) ) )

( 3 ( setq x ( - x Size ) y ( - y Size ) ) )

( 4 ( setq x ( - x Size) ) )

( 5 ( setq x ( - x Size ) y ( + y Size ) ) )

( 6 ( setq y ( + y Size) ) )

( 7 ( setq x ( + x Size ) y ( + y Size ) ) )

)

( move Px Py x y )

( setq Px x Py y )

)

;;

;; Функции A, B, C, D - рекурсивные функции рисования

;;

(

defun A ( k )

( cond ( ( > k 0 )

( A ( - k 1 ) ) ( Line 1 h )

( B ( - k 1 ) ) ( Line 0 ( * 2 h ) )

( D ( - k 1 ) ) ( Line 7 h )

( A ( - k 1 ) )

) )

)

(

defun B ( k )

( cond ( ( > k 0 )

( B ( - k 1 ) ) ( Line 3 h )

( C ( - k 1 ) ) ( Line 2 ( * 2 h ) )

( A ( - k 1 ) ) ( Line 1 h )

( B ( - k 1 ) )

) )

)

(

defun C ( k )

( cond ( ( > k 0 )

( C ( - k 1 ) ) ( Line 5 h )

( D ( - k 1 ) ) ( Line 4 ( * 2 h ) )

( B ( - k 1 ) ) ( Line 3 h )

( C ( - k 1 ) )

) )

)

(

defun D ( k )

( cond ( ( > k 0 )

( D ( - k 1 ) ) ( Line 7 h )

( A ( - k 1 ) ) ( Line 6 ( * 2 h ) )

( C ( - k 1 ) ) ( Line 5 h )

( D ( - k 1 ) )

) )

)

;;

;; Главная процедура

;; Параметры: <Count> - количество итераций

;;

(

defun SierpinskiCurve ( Count )

( InitGraph ) ;Установка графического режима

( setq h ( div *SquareSize* 4 ) ) ;Вычисление длины линии

( setq x0 ( div *MaxX* 2 ) ) ;Вычисление начальной точки

( setq y0 ( + ( div *MaxY* 2 ) h ) ) ;для рисования

( ;Основной цикл

do (( i 1 )) ;Инициализация счетчика

(( eql i ( + Count 1 ) ) 'Done ) ;Условие завершения

( setq x0 ( - x0 h ) ) ;Вычисление координат начальной

( setq h ( div h 2 ) ) ;точки для рисования и

( setq y0 ( + y0 h ) ) ;единичной длины линии

( setq Px x0 Py y0 ) ;Установка пера

( color i ) ;Установка цвета для рисования

( A i ) ( Line 1 h ) ;Рисование

( B i ) ( Line 3 h )

( C i ) ( Line 5 h )

( D i ) ( Line 7 h )

( pause 1.0 ) ;Задержка

( setq i ( + i 1 )) ;Инкримент счетчика

) ;Конец основного цикла

)

( print Try (SierpinskiCurve 4) ) ;Подсказка

Руководство пользователя

Требования к системе:

- x86 персональный компьютер (386 минимум; 486, Pentium, или Pentium Pro рекомендуется)

- Microsoft DOS 3.30 или выше

- Microsoft Windows 3.1, Microsoft Windows for Workgroups, Microsoft Windows 95, Microsoft Windows NT 3.51 или 4.0

- 512Kb RAM

- 5 Kb свободного пространства на жестком диске

- Установленный интерпретатор XLisp версии 2.1 или выше

Для запуска программы необходимо:

- Включить компьютер

- Загрузить интерпретатор XLisp c параметром “Sierpins.lsp”: C:\XLISP\XLISP.EXE SIERPINS.LSP[2] -

- В ответ на приглашение XLisp ввести: (SierpinskiCurve 4) -

Тест программы

Тест проводился на рабочей станции со следующей конфигурацией:


- Pentium 166

- 32 Mb RAM

- SyncMaster 17Glsi

- S3 Trio64V+

- Windows 95


Интерпретатор XLisp был запущен в окне MS-DOS.

Программа тестировалась при значениях параметра Count от 1 до 4. В результате тестов были получены следующие изображения на экране монитора[3] :

Рисунок 5

Рисунок 6

Рисунок 7

Рисунок 8

Литература

“Алгоритм + структура данных = программа”, H.Вирт

“XLisp-Plus 2.1 Programmers Manual”, David Michael Betz


[1] Схемы алгоритмов процедур B, C и D аналогичны A, и поэтому, в их изображении нет необходимости.

[2] Данный пример предполагает, что XLisp установлен в каталоге C:\XLISP и его запуск производится в режиме MS-DOS.

[3] В программе был установлен графический видео режим с разрешением 640x480 256 Color

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений22:31:27 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
15:55:52 24 ноября 2015
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
11:54:13 24 ноября 2015

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

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(150558)
Комментарии (1836)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru