matlab 旋转的三角形

slandarer

于 2019-02-27 23:57:21 发布

阅读量3.2k

点赞数 5

文章标签： matlab 小程序三角形

本文链接：https://blog.csdn.net/slandarer/article/details/87998420

版权

通过这个程序可以画出这样的有意思的图形
补动图：在这里插入图片描述

完整代码：

function tri
hold on,axis equal
axis([-1,41,-1,35])
set(gca,'xtick',[],'ytick',[],'xcolor','w','ycolor','w')
set(gca,'color','w')
times=20;
LW=1.2;
COLOR=[0 0 0];
k=1/8;
k2=0.8;
A=[0,0];
B=[40,0];
C=[20,20*sqrt(3)];
plot([A(1);B(1)],[A(2);B(2)],'color',COLOR,'Linewidth',LW)
plot([B(1);C(1)],[B(2);C(2)],'color',COLOR,'Linewidth',LW)
plot([C(1);A(1)],[C(2);A(2)],'color',COLOR,'Linewidth',LW)
for i=1:times
    b=k*(C-B)+B;plot([A(1);b(1)],[A(2);b(2)],'color',COLOR,'Linewidth',LW);B=b;
    pause(0.1)
    c=k*(A-C)+C;plot([B(1);c(1)],[B(2);c(2)],'color',COLOR,'Linewidth',LW);C=c;
    pause(0.1)
    a=k*(B-A)+A;plot([C(1);a(1)],[C(2);a(2)],'color',COLOR,'Linewidth',LW);A=a;
    pause(0.1)
    LW=LW*k2;
end
end