资源描述：
《杨志鹏第一次分形作业》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、L系统分形实验报告表姓名杨志鹏学号2012035009完成日期第一部分简单L系统第一个分形图程序functionLKochSnow(n);S='F';a=pi/3;A=pi/2;z=0;zA=[0,pi/2];p='F+F--F+F';fork=2:n;S=strrep(S,'F',p);endholdon;fork=1:length(S);switchS(k);case'F'plot([z,z+exp(i*A)]);z=z+exp(i*A);case'+'A=A+a;case'-'A=A-a;otherwiseendendaxis
2、equal第一个分形图形结果第二个分形图程序functionLKochSnow(n);S='F-F-F-F';a=pi/2;A=pi/2;z=0;zA=[0,pi/2];p='F-F+F+FF-F-F+F';fork=2:n;S=strrep(S,'F',p);endholdon;fork=1:length(S);switchS(k);case'F'plot([z,z+exp(i*A)]);第二个分形图形结果L系统分形实验报告表z=z+exp(i*A);case'+'A=A+a;case'-'A=A-a;otherwiseenden
3、daxisequal第三个分形图程序functionLKochSnow(n);S='F-F-F-F';a=pi/2;A=pi/2;z=0;zA=[0,pi/2];p='F-F+F-F-F';fork=2:n;S=strrep(S,'F',p);endholdon;fork=1:length(S);switchS(k);case'F'plot([z,z+exp(i*A)]);z=z+exp(i*A);case'+'A=A+a;case'-'A=A-a;otherwiseendendaxisequal第三个分形图形结果第四个分形图程序f
4、unctionLKochSnow(n);S='F-F-F-F';a=pi/2;A=pi/2;z=0;zA=[0,pi/2];p='FF-F--F-F';fork=2:n;第四个分形图形结果L系统分形实验报告表S=strrep(S,'F',p);endholdon;fork=1:length(S);switchS(k);case'F'plot([z,z+exp(i*A)]);z=z+exp(i*A);case'+'A=A+a;case'-'A=A-a;otherwiseendendaxisequal第五个分形图程序functionLK
5、ochSnow(n);S='F-F-F-F';a=pi/2;A=pi/2;z=0;zA=[0,pi/2];p='F-FF--F-F';fork=2:n;S=strrep(S,'F',p);endholdon;fork=1:length(S);switchS(k);case'F'plot([z,z+exp(i*A)]);z=z+exp(i*A);case'+'A=A+a;case'-'A=A-a;otherwiseendendaxisequal第五个分形图形结果L系统分形实验报告表第六个分形图程序functionLKochSnow(n
6、);S='F-F-F-F';a=pi/2;A=pi/2;z=0;zA=[0,pi/2];p='FF-F-F-F-F-F+F';fork=2:n;S=strrep(S,'F',p);endholdon;fork=1:length(S);switchS(k);case'F'plot([z,z+exp(i*A)]);z=z+exp(i*A);case'+'A=A+a;case'-'A=A-a;otherwiseendendaxisequal第六个分形图形结果第七个分形图程序functionLKochSnow(n);S='F-F-F-F';
7、a=pi/2;A=pi/2;z=0;zA=[0,pi/2];p='FF-F-F-F-FF';fork=2:n;S=strrep(S,'F',p);endholdon;fork=1:length(S);switchS(k);case'F'plot([z,z+exp(i*A)]);z=z+exp(i*A);case'+'A=A+a;第七个分形图形结果L系统分形实验报告表case'-'A=A-a;otherwiseendendaxisequal第二部分进退格式第一个分形图程序functionLtree(n);S='F';a=pi/8;A=
8、pi/2;z=0;zA=[0,pi/2];p='FF+[+F-F-F]-[-F+F+F]';fork=2:n;S=strrep(S,'F',p);endfigure;holdon;fork=1:length(S);switchS(k)
