- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
谢 谢! 美丽的Koch雪花-从极限到分形几何学 1904年瑞典科学家科克(Koch)描述了这样一段奇特而又有趣的事件:一条边长为a的正三角形,将每边三等分,以中间三分之一为一段向外再做正三角形,小三角形在三条边的出现使得原三角形变成了一个六角形,六角形共有12条边,再在这12条边上用与上述相同的 方法,即可构造出一个新的48边形,如此做下去,其边缘越来越精细,看上去就像美丽的雪花,称为Koch雪花。 观察雪花分形过程 第一次分叉: 依次类推 播幻灯片 31放 观察雪花分形过程 第一次分叉: 依次类推 观察雪花分形过程 第一次分叉: 依次类推 观察雪花分形过程 第一次分叉: 依次类推 观察雪花分形过程 第一次分叉: 依次类推 观察雪花分形过程 第一次分叉: 依次类推 周长为 面积为 第 次分叉: 于是有 雪花的周长是无界的,而面积有界. 雪花的面积存在极限(收敛). 结论 分析结果:Koch雪花的面积大小依赖于最初的正三角形边长,而Koch曲线的周长却是无限增大的,这结果简直不可思议,有限的区域生成无限的长度,是一种反常现象,促进了人们对这一问题的思考。分形几何学即诞生在多种概念和方法相互冲击和融合的年代。不仅在自然学科与社会学科中产生了极大的影响,而且在音乐、美术间也产生了一定的影响,并使人们觉悟到科学与艺术的融合,数学与艺术审美上的统一,使枯燥的数学不再仅仅是抽象的哲理,而是具体的感受,分形搭起了科学与艺术的桥梁。 * 第十四讲 经典曲线档案馆 河北理工大学轻工学院 --基础教学部 jc@qy.heut.edu.cn 分形曲线-Koch雪花 摆线 螺线 曲线档案馆 星形线 心形线 玫瑰线 叶形线 前 言 曲线是美的,而美的东两,又往往由曲线构成。 曲线无处不在,比直线更富于魅力。瞧它:有弯曲、有转折、有流动的韵味,能引导眼睛作变化无穷的追逐,能引起人们多元的思索…… 圆与椭圆 x[t]=x[t_]:=Cos[t] y[t]=y[t_]:=Sin[t] ParametricPlot [{x[t],y[t]},{t,0,2Pi}, AspectRatio-Automatic] 经典曲线1—圆 面积: 周长: x[t]=x[t_]:=a*Cos[t] y[t]=y[t_]:=b*Sin[t] ParametricPlot [{x[t],y[t]},{t,0,2Pi}, AspectRatio-Automatic] 经典曲线2—椭圆 面积: 周长: ? 经典曲线3—摆线 摆线 摆线(cycloid)是数学中众多的迷人曲线之一.它是这样定义的:一个圆沿一直线缓慢地滚动,则圆上一固定点所经过的轨迹称为摆线. 摆线有一个重要性质,即当一物体仅凭重力从A点滑落到不在它正下方的B点时,若沿着A,B间的摆线,滑落所需时间最短,因此摆线又称最速降曲线。 x[t]=x[t_]:=a*(t-Sin[t]); y[t]=y[t_]:=a*(1-Cos[t]); ParametricPlot [{x[t],y[t]},{t,0,2Pi}, AspectRatio-Automatic] 一拱面积: 一拱长度: 动圆周长 星形线 经典曲线4—星形线 星形线是内摆线的一种. (当小圆在圆内沿圆周滚动 时, 小圆上的定点的轨迹为是内摆线) 点击图片任意处 播放开始或暂停 大圆半径 R=a 小圆半径 x[t]=x[t_]:(Cos[t]^3; y[t]=y[t_]:=(Sin[t])^3; ParametricPlot [ {x[t],y[t]},{t,0,2Pi}] 经典曲线4—星形线 周长: 面积: 旋转体积: 外摆线的一种--心形线 经典曲线5—心形线 即 尖点: 面积: 弧长: 经典曲线5—心形线 r[t_]:=1+Cos[t] x[t_]:=r[t]*Cos[t] y[t_]:=r[t]*Sin[t] ParametricPlot[{x[t],y[t]},{t,0,3Pi}, AspectRatio-Automatri,PlotStyle-RGBColor[1,0,0]] r[t_]:=2(1-Cos[t]) x[t_]:=r[t]*Cos[t] y[t_]:=r[t]*Sin[t] ParametricPlot[{x[t],y[t]},{t,0,3Pi}, AspectRatio-{1,1},
文档评论(0)