分形---实实在在的递归（来源于计算机图形学与几何造型导论）

我们用乌龟来演示分形

一个乌龟接受四条指令，他们是

        FORWRAD D：从当前的位置开始，沿着指向确定的直线，向前移动D步。

        MOVE D：与FORWARD相同，但是不画直线。

        TURN A：对乌龟的指向进行修改。

         RESIZE S：对乌龟的步长进行放大，放大因子为S。

POLYGON N

          REPEAT N TIMES

                    FORWARD 1

                    TURN 2*3.14/N

当 N=5时的效果如下

用乌龟程序可以构造出分形

程序如下

sierpinski(level)
    if level==0
        poly(3,2*3.14/3)
    else
        repeat 2 times
            resize 1/2
            sierpinski(level-1)
            resize 2
            move
            turn 2*3.14/3