迭代——分形.pptVIP

软 件 介 绍 第9讲 迭代——分形 在我们生活着的大干世界里，除了有像房屋建筑、公路桥梁、汽车、飞机、轮船以及各种劳动生活工具等这些人造的形态规则的几何形体之外，更广泛地充满了诸如花草树木、山川河流、烟雾云彩等形态极不规则的几何形体。 大自然在向人们展示其美丽多变形态的同时，也提出了难以回答的询问： 如何描述复杂的自然表象? 如何分析其内在的机理? 科学家与艺术家一直在苦苦追寻着这些问题的答案，并力图从传统的欧几里德几何体系中解放出来。 最近几十年，一些科学家开始朦胧地“感觉”到了另一个几何世界的存在，这个几何世界的描述对象是自然界的几何形态。 20世纪70年代，美国科学家B.Mandelbrot用Fractal(原意是碎片、分数等)这个词来定义这门新的几何学科——分形几何学。 分形几何把自然形态看作是具有无限嵌套层次的精细结构，并且在不同尺度下保持某种相似的属性，于是在简单的迭代过程中就可以得到描述复杂的自然形态的有效方法。 尽管分形的提出只有二十多年的时间，但它已经在自然科学的诸多领域如数学、物理、化学、材料科学、生命科学、地质、地理、天文、计算机乃至经济、社会、艺术等极其广泛的领域有着重大的应用. 可以毫不夸张地说，“分形是大自然的几何学”，“分形处处可见”。 本讲的目的是以迭代的观点介绍分形的基本特性以及生成分形图形的基本方法，使读者在欣赏美丽的分形图案的同时对分形几何这门学科有一个直观的了解，并从哲理的高度理解这门学科诞生的必然，激发读者探寻科学真理的兴趣。 9.1 生成元 早在19世纪末及20世纪初，一些数学家就构造出一些边界形状极不光滑的图形。 由于这类图形长期以来被视为“不可名状的”或“病态的”，因而，只有当人们需要反例时才想到它们。 这类图形的构造方式都有一个共同的特点，即最终图形F都是按照一定的规则R通过对初始图形F0不断修改得到的。其中最具有代表性的图形是Koch曲线。 1. Koch曲线 Koch曲线的构造方式是： 给定一条直线段F0，将该直线三等分，并将中间的一段用以该线段为边的等边三角形的另外两条边替代，得到图形F1 然后，再对图形F1中的每一小段都按上述方式修改，以至无穷。则最后得到的极限曲线F＝limFk即是所谓的Koch曲线. 1. Koch曲线 Koch曲线的代码如下： kochsnow[ptlist] := Module[{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[kochsnow,inko01,5]], AspectRatio-Sqrt[3]/6]]; Koch曲线的修改规则R是将每一条直线段F0用一条折线F1替代，我们称F1为该分形的生成元。 分形的基本特性完全由生成元决定.因此，给定一个生成元，我们就可以生成各种各样的分形图形. 以下是几个经典的分形图形及其生成元： 2. Minkowski“香肠” minkowski[ptlist_List] := Module[{tmp = {}, tmp1, i, pnum = Length[ptlist]}, For[i = 1, i pnum, i = i + 1, tmp1 = {ptlist[[i]][[2]] - ptlist[[i + 1]][[2]], ptlist[[i + 1]][[1]] - ptlist[[i]][[1]]}/4; tmp = Join[tmp, {ptlist[[i]], ptlist[[i]]*3/4 + ptlist[[i +