数学实验和数学建模(浅谈分形).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]][[2]], ptlist[[i + 1]][[1]] - ptlist[[i]][[1]]}*Sqrt[3]/6, ptlist[[i]]/3 + ptlist[[i + 1]]*2/3, ptlist[[i + 1]]}]]; tmp] Inko01 = {{0, 0}, {1, 0}}; Show[Graphics[Line[Nest[redokoch, Inko01, 4]], AspectRatio - Sqrt[3]/6]] 自相似性 精细结构：复杂性不随尺度减小而消失 处处不光滑，每一点是尖点 长度：En的长度＝(4/3)n趋于无穷 本身定义方式简单 Koch 曲线的特点 Koch曲线在有限区域却长度无限，它是否一维的？ 问题 单参数的函数曲线是一维的吗？ 设?是平面上边长为1/2的正三角形，构造 fn f1 f2 f3 以此方式得到 fn ，在[0,1] 一致收敛到极限函数 f 的象将为整个三角形? 分形维数 将单位边长的线段，正方形，立方体 分成边长为1/2的同样几何物体，得到21，22，23 个小线段，正方形，立方体 注意指数给出了几何物体的维数 若将几何物体的长度（线度）缩小为1/r， 定义分形维数 得到N个相似小几何物体，那么维数d满足 N=rd d=logN/log r Koch曲线的维数？ 约1.2618 分形的数学实例 Cantor集 Sierpinski集合 从单位区间[0,1]出发，三分去中段，得E1， E1两个区间三分去中得E2 ，极限集合为Cantor集 数学名例：完备，完全不连通，长度0 自相似，精细结构，简单定义 三角形四等分去中间小三角形所得极限图形 维数＝？ redosierpinski[ptlist_List] := Block[{tmp = {}, i, pnum = Length[ptlist]/3}, For[i = 0, i pnum, i = i + 1, tmp = Join[tmp, {ptlist[[3i + 1]], (ptlist[[3i + 1]] + ptlist[[3i + 2]])/2, (ptlist[[3i + 1]] + ptlist[[3i + 3]])/2, (ptlist[[3i + 1]] + ptlist[[3i + 2]])/2, ptlist[[3i + 2]], (ptlist[[3i + 2]] + ptlist[[3i + 3]])/2, (ptlist[[3i + 1]] + ptlist[[3i + 3]])/2, (ptlist[[3i + 2]] + ptlist[[3i + 3]])/2, ptlist[[3i + 3]]}]]; tmp] Showsierpinski[ptlist_List] := Block[{tmp = {}, i, pnum = Length[ptlist]/3}, For[i = 0, i pnum, i = i + 1, AppendTo[tmp, Polygon[{ptlist[[3i + 1]], ptlist[[3i + 2]],