Форум программистов, компьютерный форум, киберфорум
C# Windows Forms
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 13.12.2017
Сообщений: 1

Фракталы. Ковер Серпинского

28.10.2018, 21:21. Показов 2862. Ответов 0

Студворк — интернет-сервис помощи студентам
Добрый день! Нужно написать программу, рисующую Ковер Серпинского, используя метод L-систем (рисунок 3).
Не могу найти ошибку, почему-то рисуются лишние линии (рисунки 1,2), подскажите, пожалуйста, в чем проблема
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
 
namespace Fractal
{
 
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        string aks = "F";
        int line;
        int x0 = 200, y0 = 400, x1 = 200, y1 = 400;
        Pen p = new Pen(Color.Black , 1);
        char direction = 'f';
        public string Rules(string rule)
        {
            string newaks = "";
            for (int i = 0; i < aks.Length; i++)
            {
                string a = rule.Substring(0, 1);
                switch (a)
                {
                    case "F":
                        { rule = rule.Remove(0, 1); newaks += "FFF[+FFF+FFF+FFF]"; }
                        break;
                    default:
                        { rule = rule.Remove(0, 1); newaks += a; }
                        break;
                }
            }
            return newaks;
        }
 
        private void LeEn_Click(object sender, EventArgs e)
        {
            line = Convert.ToInt32(N2.Text);//длина
            int a = Convert.ToInt32(N1.Text);//уровень
            for (int i = 0; i < a; i++)
            {
                aks = Rules(aks);
            }
            Draw(aks);           
        }
 
        public void Draw(string rules)
        {
            Graphics picture = Grap.CreateGraphics();
            FixedStack<int> stack = new FixedStack<int>();
            while (rules != "")
            {
                switch (rules.Substring(0, 1))
                {
                    case "+":
                        {
                            switch (direction)
                            {
                                case 'f':
                                    direction = 'r';
                                    break;
                                case 'r':
                                    direction = 'b';
                                    break;
                                case 'b':
                                    direction = 'l';
                                    break;
                                case 'l':
                                    direction = 'f';
                                    break;
                            }
                        }
                        break;
 
                    case "[":
                        {
                            stack.Push(x1);
                            stack.Push(y1);
                            switch (direction)
                            {
                                case 'f':
                                    stack.Push(1);
                                    break;
                                case 'r':
                                    stack.Push(2);
                                    break;
                                case 'b':
                                    stack.Push(3);
                                    break;
                                case 'l':
                                    stack.Push(4);
                                    break;
                            }
                        }
                        break;
                    case "]":
                        {
                            int d = stack.Pop();
                            if (d == 1)
                                direction = 'f';
                            if (d == 2)
                                direction = 'r';
                            if (d == 3)
                                direction = 'b';
                            if (d == 4)
                                direction = 'l';
                            y1 = stack.Pop();
                            x1 = stack.Pop();
 
 
                        }
                        break;
                    case "F":
                        {
                            switch (direction)
                            {
                                case 'f':
                                    y1 -= line;
                                    break;
                                case 'r':
                                    x1 += line;
                                    break;
                                case 'b':
                                    y1 += line;
                                    break;
                                case 'l':
                                    x1 -= line;
                                    break;
                            }
 
                                picture.DrawLine(p, x0, y0, x1, y1);
                                x0 = x1;
                                y0 = y1;
 
                        }
                        break;
                }
                rules = rules.Remove(0, 1);
            }
        }    
 
        private void Clear_Click(object sender, EventArgs e)
        {
            Grap.Image = null;
            aks = "F";
            x0 = 200; y0 = 400; x1 = 200; y1 = 400;
            direction = 'f';
        }
    }
    public class FixedStack<T>
    {
        private T[] items; // элементы стека
        private int count;  // количество элементов
        const int n = 50;   // количество элементов в массиве по умолчанию
        public FixedStack()
        {
            items = new T[n];
        }
        public FixedStack(int length)
        {
            items = new T[length];
        }
        // размер стека
        public int Count
        {
            get { return count; }
        }
        // добвление элемента
        public void Push(T item)
        {
            // если стек заполнен, выбрасываем исключение
            if (count == items.Length)
                throw new InvalidOperationException("Переполнение стека");
            items[count++] = item;
        }
        // пуст ли стек
        public bool IsEmpty
        {
            get { return count == 0; }
        }
        // извлечение элемента
        public T Pop()
        {
            // если стек пуст, выбрасываем исключение
            if (IsEmpty)
                throw new InvalidOperationException("Стек пуст");
            T item = items[--count];
            items[count] = default(T); // сбрасываем ссылку
            return item;
        }
        // возвращаем элемент из верхушки стека
        public T Peek()
        {
            return items[count - 1];
        }
    }
}
Миниатюры
Фракталы. Ковер Серпинского   Фракталы. Ковер Серпинского   Фракталы. Ковер Серпинского  

0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.10.2018, 21:21
Ответы с готовыми решениями:

Ковер Серпинского
Есть код using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Linq; ...

Нарисовать куб, каждая грань которого - ковер Серпинского
Добрый день! Имеется следующая задача: необходимо нарисовать куб, каждая грань которого - ковер Серпинского. Я отдельно рисовал куб,...

Кривая Серпинского (фракталы)
Добрый вечер! Необходимо сделать построение кривой Серпинского. Написал код, однако строит только 1/4 кривой (см. фото). Что необходимо...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
28.10.2018, 21:21
Помогаю со студенческими работами здесь

Фракталы. Ковер Серпинского. Код не запускается
function z = Serpinsky(Lmax) % функция, возвращающая изображение ковра Серпинского % Lmax — порядок ковра % задание координат вершин...

Ковер Серпинского
Здравствуйте, ищу готовые решения для СРС. Перечитал многие темы на форуме по opengl, не нашел, возможно у кого-то есть в личных архивах....

Графика: ковер Серпинского
Прога рисует ковер Серпинского. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Квадрат (Ковер) Серпинского
Подскажите,что и где нужно исправить чтоб получалась нормальная рекурсия, как достроить квадрат Серпинского? На данный момент выходит вот...

Отображение в JPanel, Ковер Серпинского
Задание: Надо сделать пошаговое выполнение фрактала ковер Серпинского. Делаю все правильно, но почему-то на 1 и 2 этапах итерации выводит...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru