函数迭代与分形_第1页
函数迭代与分形_第2页
函数迭代与分形_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、数学实验实验练习3.1对一个等边三角形，每条边按照Koch曲线的方式进行迭代，产生的分形图称为Koch雪花。实验练习3.2对一条竖向线段，在三分之一点处，向左上方向画一条线段，在其三分之二分点处，向右上方向再画一条线段，线段长度都是原来的三分之一，夹角都为30度。代码3.1Homework1.mfunction homework1(d,a) % d为图形基础边长，a为图形阶数A=cos(pi/3),-sin(pi/3);sin(pi/3),cos(pi/3); %正负30旋转因子p=0,0;0,0+d,0*A;(0+d),0;0,0; %分形点列矩阵n=3;if n=1for s=1:(a-1

2、) j=0; for i=1:n %一直线段新增3点 q1=p(i,:); q2=p(i+1,:); d=(q2-q1)/3; j=j+1;r(j,:)=q1; j=j+1;r(j,:)=q1+d; j=j+1;r(j,:)=q1+d+d*A; j=j+1;r(j,:)=q1+2.*d; end clear p p=r;q2; n=4*n;endendfill(p(:,1),p(:,2),r)axis equal代码3.2Homework2.mfunction homework2(n) %n为图形阶数，一阶是长度为1的竖直直线born=0;1i;plot(born); %画出主树干hold o

3、n zhuan=exp(1i*pi/6),exp(-1i*pi/6); %正负30旋转因子if n=1for s=1:(n-1) j=0;b=0;sizeb=size(born);hua=zeros(2,2*3(s-1); %装要画出的线段构成的矩阵r=zeros(2,3s); %装成为新生枝的主干的矩阵for a=1:sizeb(2) p1=born(1,a); %分主干的根点 p2=born(2,a); %分主干的顶点 d=(p2-p1)/3; j=j+1; hua(1,j)=p1+d; %要画出的分支线段装进hua矩阵 hua(2,j)=p1+d+d*zhuan(1); b=b+1; r(1,b)=hua(1,j); %要要成为新分主干的线段装进r矩阵 r(2,b)=hua(2,j); j=j+1; hua(1,j)=p1+2*d; hua(2,j)=p1+2*d+d*zhuan(2); b=b+1; r(1,b)=hua(1,j); r(2,b)=hua(2,j); b=b+1; r(1,b)=p1+2*d; r(2,b)=p2;endplot(hua); %画出新分

人人文库> 全部分类> 教育资料 > 作文作品

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论