[1]科赫雪花曲线是分形曲线,随着N增大,长度趋向于无穷大.
周长和面积只有给出具体的N才有意义,
我下面给出它的计算式
边长通项an=a*(1/3)^(n-1)
边数通项bn=3*(1/4)^(n-1)
面积通项S(n+1)=S(n)+6*(1/4)*√3an^2 S1=(1/4)*√3a1^2
周长通项c(n)=an*bn=3a*(4/3)^n
[2]我这里只有自己编写的现成的MATLAB生成曲线的程序,
不知道可以不可以?
毕竟通过上面我给出的通项公式,可以直观的得到结论(有我给你推倒的通项公式,即时自己计算问题应该不大了
PS:我的MATLAB程序之一(我当初编写的程序有很多,这是其中一个)
x1=[1 2 2.5 3 4];
y1=[0 0 0 0 0];
h1=plot(x1,y1,'linewidth',2,'erasemode','xor');
axis equal
axis off
for g=linspace(0,1,40)*sin(pi/3);
y1(3)=g;
set(h1,'ydata',y1);
drawnow;
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
x2=x1(1);
y2=y1(1);
for k=2:length(x1);
t=linspace(x1(k-1),x1(k),4) ;
tt=[t(2),mean(t),t(3:4)];
x2=[x2,tt];
t=linspace(y1(k-1),y1(k),4);
tt=[t(2),mean(t),t(3:4)];
y2=[y2,tt];
end
A=angle((y2(4:4:end)-y2(2:4:end))*i+(x2(4:4:end)-x2(2:4:end)));
for g=linspace(0,1,40)*sin(pi/3)/3;
y2(3:4:end)=(y2(4:4:end)+y2(2:4:end))/2+imag(g*exp(i*(A+pi/2)));
x2(3:4:end)=(x2(4:4:end)+x2(2:4:end))/2+real(g*exp(i*(A+pi/2))) ;
set(h1,'ydata',y2,'xdata',x2);
drawnow;
end
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
x3=x2(1);
y3=y2(1);
for k=2:length(x2);
t=linspace(x2(k-1),x2(k),4);
tt=[t(2),mean(t),t(3:4)];
x3=[x3,tt];
t=linspace(y2(k-1),y2(k),4);
tt=[t(2),mean(t),t(3:4)];
y3=[y3,tt];
end
A=angle((y3(4:4:end)-y3(2:4:end))*i+(x3(4:4:end)-x3(2:4:end)));
for g=linspace(0,1,40)*sin(pi/3)/9;
y3(3:4:end)=(y3(4:4:end)+y3(2:4:end))/2+imag(g*exp(i*(A+pi/2)));
x3(3:4:end)=(x3(4:4:end)+x3(2:4:end))/2+real(g*exp(i*(A+pi/2)));
set(h1,'ydata',y3,'xdata',x3);
drawnow;
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
x4=x3(1);
y4=y3(1);
for k=2:length(x3);
t=linspace(x3(k-1),x3(k),4);
tt=[t(2),mean(t),t(3:4)];
x4=[x4,tt];
t=linspace(y3(k-1),y3(k),4);
tt=[t(2),mean(t),t(3:4)];
y4=[y4,tt];
end
A=angle((y4(4:4:end)-y4(2:4:end))*i+(x4(4:4:end)-x4(2:4:end)));
for g=linspace(0,1,40)*sin(pi/3)/27;
y4(3:4:end)=(y4(4:4:end)+y4(2:4:end))/2+imag(g*exp(i*(A+pi/2)));
x4(3:4:end)=(x4(4:4:end)+x4(2:4:end))/2+real(g*exp(i*(A+pi/2)));
set(h1,'ydata',y4,'xdata',x4);
drawnow;
end
求用Mathematica绘制科赫雪花曲线的过程
求用Mathematica绘制科赫雪花曲线的过程
每一步 ,我吧分都给你了
每一步 ,我吧分都给你了
数学人气:712 ℃时间:2020-06-26 20:45:02
优质解答
我来回答
类似推荐
猜你喜欢
- 1一道简单的二元一次方程
- 2My family had a good time during the 7--day holiday in ____(五月)last year.
- 3推荐一篇描写夏夜的文章
- 4Which of your two hands do you use most? Very few of us can use both of our hands well. Most
- 5数字手抄报怎么写?
- 6a,b为有理数,且|a+b|=a-b,试求ab.
- 7长直螺线管的两端连一个灵敏电流计,当一个与线圈等长的条形磁铁,在远处从左到右穿过线圈的过程中,电流计的指针如何偏转?
- 8水平桌面上放置一质量为m的物体,在该物体上作用一与水平方向成θ角的斜向上
- 9紫外吸收光谱测量吸收值为负值,有可能得原因是什么?
- 10已知a,b是非零向量且满足(3a-b)垂直于a,(4a-b)垂直于b则a与b的夹角是多少?