P3090271

Trójkąt (uszczelka) Sierpińskiego

function gasket(Pa,Pb,Pc,levei) %GASKET Rekursywnie twór %    GASKET(PA, PB, PC,

%    trójkąta Sierpińskiego,

%    wierzchołkami trojkata.

%    LEVEL jest głębokością

Vi Vil nt. W# «$» £ % f

w. m

1

if leveł ==0

% Wypełnia trójkąt o wierzchołkach Pa, Pb, Pc. filł( [Pa(l),Pb(l) ,Pc(l) ], [Pa(2),Pb(2) ,Pc(2) }, [0.5 hołd on se

%Rekursywne odwołanie do trzech podtrojkatow. gasket(Pa,(Pa+Pb)/2, (Pa+Pc)/2,level-l) gasket (Pb, (Pb+Pa)/2, (Pb+Pc)/2, level-l) gasket(Pc,(Pc+Pa)/2, (Pc+Pb)12,level-l)

(Foiitechrwka Gdańska)