Навигация
Главная
Поиск
Форум
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
Реклама
Сейчас на сайте
Гостей: 4
На сайте нет зарегистрированных пользователей

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

Обучающая и тестирующая программа по здаче экзамена ПДД на Turbo Pascal ...
Моделирование работы участка термической обработки шестерен на GPSS + По...
База данных студентов на Delphi + Microsoft SQL Server

Рекурсивное построение кривых Серпинского
Подобно , кривые Серпинского - это самоподобные кри-
вые, которые обычно определяются рекурсивно. На рис. 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 Комментариев · 13830 Прочтений · Для печати

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


Комментарии
Евгений 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...
Шаблон для новост...

Случайные загрузки
PolyFlow
Панель "ссылки"
Handles
Калькулятор [Исхо...
mp3tag
Применение жадног...
Создание отчетов ...
Библия хакера 2 К...
Анимированное поя...
IconCut [Исходник...
Delphi Быстрый Ст...
INSTANT BOOSTER v...
Карта сайта
isoCanvas (Редакт...
Киллер окон
DCMintry
WinPopup
ZipTV
TrayIcon
SMExport

Топ загрузок
Приложение Клие... 100771
Delphi 7 Enterp... 97787
Converter AMR<-... 20259
GPSS World Stud... 17014
Borland C++Buil... 14186
Borland Delphi ... 10267
Turbo Pascal fo... 7372
Калькулятор [Ис... 5968
Visual Studio 2... 5205
Microsoft SQL S... 3661
Случайные статьи
Рационализация дом...
Синхронизация буфе...
Что такое процессо...
Косвенная адресаци...
Связанные списки в...
МНЕНИЯ ЧИТАТЕЛЕЙ О...
Официальное Вулкан...
Что является станд...
Настраиваемые типы
Группа блоков созд...
В данном примере н...
Центры сбыта компа...
Специализированные...
Память атрибутов о...
Беспалтныe автомат...
быть прочитана при...
Что произойдет, ес...
Вулкан Победа
10.2. Пример
Стиль резервирования
Создание рабочей к...
Игровые автоматы с...
seen
Размеры динамическ...
Резюме
Статистика



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


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