分形实验.PPT.pptVIP

数学实验电子教案【实验十二　分形实验】哈工程大学数学系 分形几何实验 　　长期以来，对某一个数学集合，人们总是习惯于在Euclid空间(Ｒn??,Euclidean)对其研究和对其度量，其中字母n表示该空间的维数，通常它是一个整数. 对有限个点，取n=0，对一条线段或一块有限平面图形或一块有限的空间几何体，则分别取n为1,2和3，同时也可分别得到它们的定常度量. 习惯上我们分别称它们为点的个数、线段的长度、平面图形的面积和立体的体积. 但在一个世纪以前，相继出现了一些被称之为“数学怪物” (Mathematical monsters)的东西，人们无法用传统的Euclid几何语言去描述它们的局部和整体性质. 典型的数学怪物有如下几种: （１）处处连续而处处不可微的函数曲线 　　自从有了函数曲线的连续与可微性质及其关系以后，是否存在一个处处连续而点点不可微的函数曲线成了研究的热门.　首先解决这个问题的是大数学家Weierstrass，他于1872年设计了如下一个函数 其中0a1b，且ab≧1。 　　Weierstrass证明了对某些a和b的值，该函数无处可微.1916年，Hardy证明了对满足上列条件的所有a和b的值，W(x)都是无处可微的. 课后作业:参照教材第122页的练习4, 选择合适的a,b,请用mathematica画出此曲线? (2) Koch曲线 　在没有计算机的时代，W(x)的缺点是极难绘画，故不够直观.到1904年，瑞典数学家von Koch设计了一条被称之为Koch曲线的图形，其设计步骤如下： 以下是koch曲线的从Ｅ0到Ｅ4的五个图形： 下面是实现第121页练习1的mathematica程序： 右图是在正三角形的每条边上同时向内作koch曲线的结果，若在正方形各条边上同时向内作koch曲线，结果如何？ 参见程序 EX12-1.NB (3) Sierpinski三角形 对一个边长是１的三角形Ｅ0,以各边的中点为顶点，挖去一个正三角形，余下的部分设为Ｅ1，对Ｅ1中的３个三角形同样进行如上过程直到无穷大，如图所示。 下面是实现第121页练习2的mathematica程序： 参见程序 Ex12-3.NB 在mathematica下，只要输入f(n)(n=1,2,…,6)即可等到右边的图形。 (4) Minkowski香肠,参见教材第119页 redominkowski[ptlist_List] := Block[{tmp = {}, tmp1, i, pnum = Length[ptlist]}, For[i = 1, i pnum, i = i + 1, tmp1 = {ptlist[[i + 1]][[2]] - ptlist[[i]][[2]], ptlist[[i + 1]][[1]] - ptlist[[i]][[1]]}/4; tmp = Join[tmp, {ptlist[[i]], ptlist[[i]]*3/4 + ptlist[[i + 1]]/4, ptlist[[i]]*3/4 + ptlist[[i + 1]]/4 + tmp1, ptlist[[i]]/2 + ptlist[[i + 1]]/2 + tmp1, ptlist[[i]]/2 + ptlist[[i + 1]]/2, ptlist[[i]]/2 + ptlist[[i + 1]]/2 - tmp1, ptlist[[i]]/4 + ptlist[[i + 1]]*3/4 - tmp1, ptlist[[i]]/4 + ptlist[[i + 1]]*3/4, ptlist[[i + 1]]}]]; tmp]; In01 = {{0, 0}, {1, 0}}; Show[Graphics[Line[Nest[redominkowski, In01, 0]], AspectRatio - 1/GoldenRatio]]; E０ E1 E2 E3 Minkowski.NB (5) 花草和树木的生成,参见教材第120页 一棵树木 一棵小草 你能根据磁盘上的mathematica程序EX12-2.NB,生成一个更为复杂的花草或者树木吗？ (6) 龙曲线(见教材第119页） (7) Hilbert曲线(见教材第120页） ? Mandelbrot在对这些数学怪物及许多物理现象进行研究后，终于创立了影响２０世纪数学的一个重要学科—分形几何(fractal