Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Купить перчатки латексные медицинские оптом www.maxigloves.ru.
Сейчас на сайте
Гостей: 15
На сайте нет зарегистрированных пользователей

Пользователей: 13,372
новичок: vausoz
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

База данных студентов на Delphi (файл записей) + Блок схемы
Лабораторная работа по динамическим спискам на Turbo Pascal (перемещение...
Выбор наилучших альтернатив с использованием методов оптимизации на Delp...

Рекурсивное построение кривых Серпинского
Подобно , кривые Серпинского - это самоподобные кри-
вые, которые обычно определяются рекурсивно. На рис. 5.5 изображены кривые
Серпинского с глубиной 1, 2, и 3.
Кривые Серпинского
Рис. 5.5. Кривые Серпинского
Алгоритм построения Гильбертовых кривых использует одну процедуру для
рисования кривых. Кривые Серпинского проще строить с помощью четырех отдель-
ных процедур, работающих совместно, - SierpA, SierpB, SierpC. и SierpD. Эти
процедуры косвенно рекурсивные - каждая из них вызывает другие, которые после
этого вызывают первоначальную процедуру. Они выводят верхнюю, левую, ниж-
нюю и правую части кривой Серпинского соответственно.
На рис. 5.6 показано, как эти процедуры образуют кривую глубины 1. Отрез-
ки, составляющие кривую, изображены со стрелками, которые указывают направ-
ление их рисования. Сегменты, используемые для соединения частей, представ-
лены пунктирными линиями.
Каждая из четырех основных кривых составлена из линий диагонального сег-
мента, вертикального или горизонтального и еще одного диагонального сегмента.
При глубине рекурсии больше 1 необходимо разложить каждую кривую на мень-
шие части. Это можно сделать, разбивая каждую из двух линий диагональных сег-
ментов на две подкривые.
Например, чтобы разбить кривую типа А, первый диагональный отрезок де-
лится на кривую типа А, за которой следует кривая типа В. Затем без изменения
выведите линию горизонтального сегмента так же, как и в исходной кривой типа
А. И наконец, второй диагональный отрезок разбивается на кривую типа D, за ко-
торой следует кривая типа А. На рис. 5.7 изображен процесс построения кривой
2-го порядка, сформированной из кривых 1-го порядка. Подкривые показаны
жирными линиями.
На рис. 5.8 показано, как из четырех кривых 1-го порядка формируется пол-
ная кривая Серпинского 2-го порядка. Каждая из подкривых обведена пунктир-
ными линиями.

Рис. 5.6. Части кривой Серпинского Рис. 5.7. Составление кривой типа А из меньших частей
Кривая Серпинского, образованная из меньших кривых
Рис. 5.8. Кривая Серпинского, образованная из меньших кривых
С помощью стрелок типа —» и <—, отображающих типы линий, которые соединя-
ют части кривых между собой (тонкие линии на рис. 5.8), можно перечислить рекур-
сивные зависимости между четырьмя типами кривых, как показано на рис. 5.9.
Все процедуры для построения подкривых Серпинс-
кого очень похожи друг на друга, поэтому здесь приведе-
на только одна из них. Зависимости, показанные на рис.
5.9, показывают, какие операции нужно выполнить, что-
бы нарисовать кривые различных типов. Соотношения
для кривой типа А реализованы в следующем коде. Ос-
тальные зависимости можно использовать, чтобы изме-
нить код для вывода других типов кривых.

рис5.9 рекурсивные зависимости между кривыми Серпинского
procedure TSierplForm.SierpA(depth, dist:integer);
begin
with DrawArea.Canvas do
begin
if (depth = 1) then
begin
LineTo(PenPos.X-dist,PenPos.Y+dist);
LineTo(PenPos.X-dist,PenPos.Y+0);
LineTo(PenPos.X-dist,PenPos.Y-dist);
end else begin
SierpA(depth-l,dist);
LineTo(PenPos.X-dist,PenPos.Y+dist);
SierpB(depth-l,dist);
LineTo(PenPos.X-dist,PenPos.Y+0);
SierpD(depth-l,dist);
LineTo(PenPos.X-dist,PenPos.Y-dist);
SierpA(depth-l,dist);
end;
end;
end;



Кроме процедур, которые выводят каждую из основных кривых, требуется
процедура, которая использует эти четыре процедуры для построения полной
кривой Серпинского
.
procedure TSierplForm.DrawSierp(depth, dist : Integer);
begin
with DrawArea.Canvas do
begin
SierpB(depth,dist);
LineTo(PenPos.X+dist,PenPos.Y+dist);
SierpC(depth,dist);
LineTo(PenPos.X+dist,PenPos.Y-dist);
SierpD(depth,dist);
LineTo(PenPos.X-dist,PenPos.Y-dist);
SierpA(depth,dist);
LineTo(PenPos.X-dist,PenPos.Y+dist);
end;
end;


Опубликовал Kest October 19 2009 11:58:35 · 1 Комментариев · 14433 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Евгений December 16 2011 18:49:04
А как будет выглядеть код на C#
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Современное проек...
Игра в крестики н...
netBIOS
Программирование ...
Borland C++Builde...
AlnComponents
Visual Basic Script
Открытие Cd-ROM'a...
CLR via C#
FreeNet
AJAX и PHP. разра...
AntiRus
Книга по Delphi (...
Дарахвелидзе П., ...
Игра Car [Исходни...
Удаление своего EXE
Архив программ
DAlarm
Панель случайной ...
DemoEdit [Исходни...

Топ загрузок
Приложение Клие... 100793
Delphi 7 Enterp... 98034
Converter AMR<-... 20298
GPSS World Stud... 17060
Borland C++Buil... 14245
Borland Delphi ... 10376
Turbo Pascal fo... 7392
Калькулятор [Ис... 6083
Visual Studio 2... 5232
Microsoft SQL S... 3674
Случайные статьи
Создание потоков с...
Тэги head, title и...
1. Вы мэр небольшо...
Для получения боле...
Присвоение начальн...
Простой графически...
Ремонт холодильник...
Упорядочение Массива
Генерирование и об...
Краткое введение в...
Двухмерный динамич...
Приложение Б. Избр...
6.1. Ввод новых ...
Как быть программи...
Microsoft - спроси...
Добавляем Cookies
Восстановление сис...
Понятие функтора
Игровой автомат Go...
Дополнительная лит...
Протокол RSVP
ЛюбойЛюбой2
Официальный сайт ...
Конкретизация шабл...
]2ошСв edsfes
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?