（1）Koch曲线程序kochmfu
ctio
kocha1b1a2b2
koch00903a1b1a2b2为初始线段两端点坐标
为迭代次数a10b10a29b20
3第i1次迭代时由各条线段产生的新四条线段的五点横、纵坐标存储在数组A、B中ABsub_koch1a1b1a2b2fori1
forj1le
gthA5wsub_koch2A15j15jB15j15jfork14AA54j15k1154j15k15BB54j15k1154j15k15sub_koch1wk1wk2wk3wk4e
de
dAAABBBe
dplotABholdo
axisequal
由以axaybxby为端点的线段生成新的中间三点坐标并把这五点横、纵坐标依次分别存储在数组AB中fu
ctio
ABsub_koch1axaybxbycxaxbxax3cyaybyay3exbxbxax3
feybybyay3Lsqrtexcx2eycy2alphaata
eycyexcxifexcx0alphaalphapie
ddxcxcosalphapi3Ldycysi
alphapi3LAaxcxdxexbxBaycydyeyby
把由函数sub_koch1生成的五点横、纵坐标AB顺次划分为四组分别对应四条折线段中每条线段两端点的坐标并依次分别存储在44阶矩阵k中k中第ii1234行数字代表第i条线段两端点的坐标fu
ctio
wsub_koch2ABa11A1b11B1a12A2b12B2a21A2b21B2a22A3b22B3a31A3b31B3a32A4b32B4a41A4b41B4a42A5b42B5wa11b11a12b12a21b21a22b22a31b31a32b32a41b41a42b42
f（2）Levy曲线程序levymfu
ctio
levy
levy16
为levy曲线迭代次数x1y1x2y2为初始线段两端点坐标
为迭代次数
16x10y10x21y20第i1次迭代时由各条线段产生的新两条线段的三端点横、纵坐标存储在数组X、Y中XYlevy1x1y1x2y2fori1
forj1le
gthX3wlevy2X13j13jY13j13jXX32j1132j13YY32j1132j13levy1w11w12w13w14
fXX32j13132j133YY32j13132j133levy1w21w22w23w24e
dXXXYYYe
dplotXYholdo
axisequal
由以x1y1x2y2为端点的线段生成新的中间点坐标并把x1y1x2y2连同新点横、纵坐标依次分别存储在数组XY中fu
ctio
XYlevy1x1y1x2y2x312x1x2y1y2y312x1x2y1y2Xx1x3x2Yy1y3y2
把由函数levy1生成的三点横、纵坐标XY顺次划分为两组分别对应两条折线段中每条线段两端点的坐标并依次分别存储在24阶矩阵w中w中第ii12行数字代表第i条线段两端点的坐标fu
ctio
wlevy2XYa11X1b11Y1a12X2b12Y2a21X2b21Y2a22X3b22Y3wa11b11a12b12a21b21a22b22
f（3）分形树程序treehfu
ctio
tree
abtree8pi8pi8
为分形树迭代次数ab为分枝与竖直方向夹角x1y1x2y2为初始线段两端点坐标
为迭r