Форум программистов, компьютерный форум, киберфорум
Наши страницы
Matlab
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Sadlis
0 / 0 / 0
Регистрация: 25.12.2011
Сообщений: 2
1

L-Система

29.12.2011, 00:35. Просмотров 820. Ответов 1
Метки нет (Все метки)

Вот у нас есть правило:
Аксиома: F
Правило: F → F+F-F-F+F
Угол: pi/2

Вот код моей программы:
Matlab M
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
clear all
clf
strrep( 'F','F+F-F-F+F').
nRules = length(rule);
 
delta = 90;
lenF = 1;
axiom = 'F';
nReps = 1;
 
for i=1:nReps
axiomINcells = cellstr(axiom');
 
for j=1:nRules
hit = strfind(axiom, rule(j).before);
if (length(hit)>=1)
for k=hit
axiomINcells{k} = rule(j).after;
end
end
end
axiom=[];
for j=1:length(axiomINcells)
axiom = [axiom, axiomINcells{j}];
end
end
 
xT = 0;
yT = 0;
aT = 0;
da = deg2rad(delta) ;
 
stkPtr = 1;
 
hold on
 
for i=1:length(axiom)
cmdT = axiom(i);
switch cmdT
case 'F'
newxT = xT + lenF*cos(aT);
newyT = yT + lenF*sin(aT);
line([yT newyT], [xT newxT],'color',[.3 .3 0], 'linewidth',2);
xT = newxT;
yT = newyT;
case '+'
aT = aT + da;
case '-'
aT = aT - da;
case '['
stack(stkPtr).xT = xT ;
stack(stkPtr).yT = yT ;
stack(stkPtr).aT = aT ;
stkPtr = stkPtr +1 ;
case ']'
stkPtr = stkPtr -1 ;
xT = stack(stkPtr).xT ;
yT = stack(stkPtr).yT ;
aT = stack(stkPtr).aT ;
otherwise
disp('error')
return
end
end
 
daspect([1,1,1])
Нужно вместо rule(1).before и rule(1).after
поставить функцию strrep( , , )

Буду очень благодарен если кто-нибудь поможет.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2011, 00:35
Ответы с готовыми решениями:

Система ДУ.
Не представляю как разобраться с этой системой.

Система ДУ
Есть система из двух уравнений dp(1)/dz=f(p(1), p(2))*a(p(1),p(2)) dp(2)/dz=g(p(1),...

Система ДУ
Доброго времени суток! Ребят, кто может сваять код для решения системы уравнений в матлабе, а то...

4 часа сна,система вейна. Система как у Да Винчи и тд
Сабж,кто-то научился контролировать количество своего сна?Как влияет это на здоровье?Есть ли смысл...

Файловая система и система управления вводом-выводом в ОС Linux
Дали задание написать вот что: "Разработать программу, которая выводит на экран содержимое...

1
Sadlis
0 / 0 / 0
Регистрация: 25.12.2011
Сообщений: 2
21.01.2012, 10:37 2
Спасибо за помощь...
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2012, 10:37

Гладильная система SOLE A 2009 v01 На табло режим "обслуживание", Не работает система ,пока не сброшен режим "обслуживание"
Всем привет!Гладильная система SOLE A v01 поступила в ремонт с симптомами "плохо греет нет...

L-система (система Линденмайера)
Кто-нибудь из форумчан строил (или может построить) в Маткаде какой-нибудь рисунок. Например такой.

Система
1= (a+b)/2 3= (b-a)^2 /12 _____________ помогите из 1 уравнения выразить а


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru