. Задати аффінниє перетворення. p align="justify">. Для i-ої точки початковій конфігурації послідовно застосувати кожне з j = 1, 2, ..., 3n ітераційних правил і відобразити в графічному вікні отримані образи кожної початкової точки. p align="justify"> Приклад килима Серпінського, побудованого за допомогою описаної вище модифікації алгоритму ДСІФ, представлений на малюнку 27. Нижче наводиться лістинг файлу SerpDSIF.m, що містить опис відповідної функції, що повертає зображення килима Серпінського. br/>
.1.1 Код програми "SerpDSIF.m"
% Лістинг файлу SerpDSIF.m
function z = SerpDSIF (Niter, NPoints)
% функція, що повертає зображення килима Серпінського
% Niter - порядок килима
% NPoints - число точок початковій конфігурації = zeros (NPoints, 1); y = zeros (NPoints, 1);
% завдання координат точок початковій конфігурації = 0; y1 = 0; x2 = 1; y2 = 0; x3 = 1/2; y3 = sin (pi/3);
j = j +1;;
% Формування масиву, що містить правила ітерації
for i = 1:3 ^ Niter (i) = system3 (i-1);
% переклад числа з десяткової в трійкову систему числення
end = 1; s = '0 '; n
% завдання афінних перетворень (1); hold on; set (gca, 'xtick', [], 'ytick', []); (gca, 'XColor', 'w', ' YColor ',' w '); fill ([x1 x2 x3], [y1 y2 y3],' w '); (Niter, NPoints, x, y, A, a1, a2, a3, Cod);
% побудова килима Серпінскогоz = GosperDraw (Niter, NPoints, x, y, A, a1, a2, a3, Cod)
% функції, створює зображення килима Серпінскогоm = 1:3 ^ Niter
X = x; Y = y; Rule = Cod (m, :); i = 1: Niter = Rule (Niter +1! i);
if tmp == '0 '
[XY] = T (NPoints, X, Y, A, a1);% першої афінне перетворення
endtmp == '1 '
[XY] = T (NPoints, X, Y, A, a2);% других афінне перетворення
if tmp == '2 '
[XY] = T (NPoints, X, Y, A, a3);% третьому афінне перетворення
end (X, Y, '.', 'MarkerSize', 1, 'MarkerEdgeColor', 'b');
% відображення результатів ітерації
end [X, Y] = T (NPoints, x, y, A, a)
% функція, що повертає результат афінної перетворення = zeros (NPoints, 1); Y = zeros (NPoints, 1);
for i = 1: NPoint...