从一些奇妙的图像浅谈分形_循环语句.ppt

* * 数学实验 从一些奇妙 上海交通大学 数学系 乐经良 图象浅谈分形 海岸线有长度吗？ 法国的Mandelbrot.B 开创了分形几何 1967年的论文：“英国海岸线的长度不确定” （fractal geometry）的研究 （1）具有无限嵌套层次的精细结构 对自然几何形态的数学研究 海岸线的长度随测量尺度变化 （2）在不同尺度下具有某种相似特性 Koch 雪花曲线 设E0为单位直线段 三等分后，中间一段用与其组成等边三角形 的另两边代替，得到E1 对E1的4条线段的每一 条重复以上做法，得到E2 以此方法重复，可得En 当n趋于无穷，得到的极限曲线就是Koch 曲线 用Mathematica 画koch曲线 redokoch[ptlist_List] := Block[{tmp = {}, i, pnum = Length[ptlist]}, For[i = 1, i pnum, i = i + 1, tmp = Join[tmp, {ptlist[[i]], ptlist[[i]]*2/3 + ptlist[[i + 1]]/3, (ptlist[[i]] + ptlist[[i + 1]])/ 2 + {ptlist[[i]][[2]] - ptlist[[i + 1]][