Sierpinski-Dreieck

Ein Sierpinski-Dreieck ist ein Fraktal, der durch rekursive Aufteilung eines Vorgängerdreiecks n-1 in 4 weitere Dreiecke erhalten wird. Geht n gegen unendlich, spricht man von einer Sierpinski-Fläche

Beispiel-Code in Delphi zur graphischen Darstellungen eines Sierpinsky-Dreiecks:

procedure sierpinski(x1,y1,x2,y2,x3,y3:extended; t:integer);
begin
if t>0 then
 begin
  Image1.Canvas.MoveTo(round(x1),round(y1));
  Image1.Canvas.LineTo(round(x2),round(y2));
  Image1.Canvas.LineTo(round(x3),round(y3));
  Image1.Canvas.LineTo(round(x1),round(y1));

  sierpinsky(x1,y1,x1+(x3-x1)/4,((y1-y2)/2)+y2,x2,y1,t-1);
  sierpinsky(x1+(x3-x1)/4,((y1-y2)/2)+y2,x2,y2,x1+(x3-x1)/4*3,((y1-y2)/2)+y2,t-1);
  sierpinsky(x2,y1,x1+(x3-x1)/4*3,((y1-y2)/2)+y2,x3,y3,t-1);
 end;
end;

--- Aufruf(z.B.)
sierpinsky(20,350,220,50,420,350, 6);

(Portieren in andere Sprache, Java oder so...)

Weblinks

• http://www.beisenkamp.schulnetz.hamm.de/Logo/sierp.htm - Logo-Code für das Dreieck