Generalized von Koch Snowflake Generator

[Graphics:kochgr2.gif][Graphics:kochgr1.gif]
[Graphics:kochgr2.gif][Graphics:kochgr3.gif]

[Graphics:kochgr2.gif][Graphics:kochgr4.gif]


Function to make a Rotate-and-Scale Matrix:

[Graphics:kochgr2.gif][Graphics:kochgr5.gif]

Function to replace a line segment with a new set of scaled line segments:

[Graphics:kochgr2.gif][Graphics:kochgr6.gif]

Function to do a single iteration of the Koch construction:

[Graphics:kochgr2.gif][Graphics:kochgr7.gif]

Function to do 'n' interations of the Koch construction

[Graphics:kochgr2.gif][Graphics:kochgr8.gif]

Original polygonal shape:

[Graphics:kochgr2.gif][Graphics:kochgr9.gif]

L1= {{1,1},{1,-1}, {-1,-1},{-1,1},{1,1}};

[Graphics:kochgr2.gif][Graphics:kochgr10.gif]
[Graphics:kochgr2.gif][Graphics:kochgr11.gif]
[Graphics:kochgr2.gif][Graphics:kochgr12.gif]

Unscaled replacement line segments (starts at 0,0 and ends at 1,0):

[Graphics:kochgr2.gif][Graphics:kochgr13.gif]

L0 = {{1/3,0},{2/3,1/3},{1,1/3}, {2/3,0}};

Do the Koch construction ' n' times:

[Graphics:kochgr2.gif][Graphics:kochgr14.gif]

[Graphics:kochgr2.gif][Graphics:kochgr15.gif]
[Graphics:kochgr2.gif][Graphics:kochgr16.gif]
[Graphics:kochgr2.gif][Graphics:kochgr17.gif]

[Graphics:kochgr2.gif][Graphics:kochgr18.gif]
[Graphics:kochgr2.gif][Graphics:kochgr19.gif]
[Graphics:kochgr2.gif][Graphics:kochgr20.gif]