Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.06.2015, 17:16   #1
Айтуган
Новичок
Джуниор
 
Регистрация: 12.06.2015
Сообщений: 1
По умолчанию Построение фрактальных множеств методом СИФ в Matlab

Задача такая:
Разработать программу (на любом языке программирования), реализующую рандомизированный алгоритм СИФ построения фрактального множества М.
Я делал в Матлабе.
Не понимаю в чем проблема. В картинке какая то фигня выходит.
Код:
hold on
x=[6 0]';
plot(x(1),x(2));
n=0;
r=1/10;
phi1=28.810793743;
phi2=111.8014094864;
Q1=[cos(phi1) -sin(phi1); sin(phi1) cos(phi1)];
Q2=[cos(-phi1) -sin(-phi1); sin(-phi1) cos(-phi1)];
Q3=[cos(phi2) -sin(phi2); sin(phi2) cos(phi2)];
Q4=[cos(-phi2) -sin(-phi2); sin(-phi2) cos(-phi2)];
while n <=10000
m=round(rand*13+1);
switch m
case 1
x=r*x+[0 0]';
plot(x(1),x(2));
clc
case 2
x=r*Q1*x+[1 0]';
plot(x(1),x(2));
clc
case 3
x=r*Q1*x+[0.95 0.45]';
plot(x(1),x(2));
clc
case 4
x=r*Q3*x+[3 0]';
plot(x(1),x(2));
clc
case 5
x=r*Q4*x+[0 3]';
plot(x(1),x(2));
clc
case 6
x=r*Q2*x+[4.05 -0.45]';
plot(x(1),x(2));
clc
case 7
x=r*Q1*x+[4.05 -0.45]';
plot(x(1),x(2));
clc
case 8
x=r*x+[5 0]';
plot(x(1),x(2));
clc
end
n=n+1;
end
Изображения
Тип файла: jpg фрактал.jpg (21.2 Кб, 124 просмотров)

Последний раз редактировалось Stilet; 12.06.2015 в 17:34.
Айтуган вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа, реализующая построение салфетки Серпинского цветной/ MATLAB kirilll8 Фриланс 0 16.05.2015 14:41
Решение дифференциального уравнения методом конечных разностей на Matlab\Mathcad Paha22 Фриланс 3 06.05.2015 09:24
Из множества конечных множеств выделить подмножество из наибольшего количества попарно непересекающихся множеств(Maple или Паскаль Моника Помощь студентам 0 28.04.2014 23:18