matlab中防汛监测程序,【文章】仿真动画软件设计作品--防汛检测系统

【文章】仿真动画软件设计作品--防汛检测系统

axis([-1 1 -1 1]);

axis('off');

x1=[0 0 0.8 0.8];

y1=[-0.6 -0.8 -0.8 -0.6];

line([0;0],[0.2;-0.8],'color','k','linewidth',3);

line([0;0.8],[-0.8;-0.8],'color','k','linewidth',3);

line([0.8;0.8],[-0.7;-0.8],'color','k','linewidth',3);

line([0.8;0.8],[0.2;-0.6],'color','k','linewidth',3);

line([0.8;0.85],[-0.7;-0.7],'color','k','linewidth',3);

line([0.8;0.85],[-0.6;-0.6],'color','k','linewidth',3);

line(-0.35,0,'Color','r','linestyle','.', 'markersize',20);

line(-0.35,-0.6,'Color','r','linestyle','.', 'markersize',20);

line([-0.45;-0.35],[0;0],'color','k','linewidth',2);

line([-0.45;-0.35],[-0.6;-0.6],'color','k','linewidth',2);

line([-0.5;-0.5],[0.2,-1],'color','b','linewidth',15);

text(-0.8,0,'给水线');

text(-0.8,-0.6,'警戒线');

text(-0.4,0.6,'防汛检测系统');

text(0.6,-0.9,'与江河连接');

water=patch(x1,y1,[0 1 1]);

ball1=line(0.4,-0.6,'EraseMode','xor','Color','b','linestyle','.', 'markersize',100);

ball2=line(-0.3,-0,'EraseMode','xor','Color','r','linestyle','.', 'markersize',50);

gan=line([-0.3;0.4],[-0;-0.6],'EraseMode','xor','color','k','linewidth',1);

for i=1:120

a=-0.6+0.005*i;

y1=[a -0.8 -0.8 a];

yy1=a;

yy2=-a-0.6

set(water,'ydata',y1);

set(ball1,'ydata',yy1);

set(ball2,'ydata',yy2);

set(gan,'ydata',[yy2 yy1]);

drawnow;

end

for i=1:120

a=-0.005*i;

y1=[a -0.8 -0.8 a];

yy1=a;

yy2=-a-0.6

set(water,'ydata',y1);

set(ball1,'ydata',yy1);

set(ball2,'ydata',yy2);

set(gan,'ydata',[yy2 yy1]);

drawnow;

end

2006年4月11日发表在《麓瑜园》

(注：本文转自转自《麓瑜园》，版权归原作者所有！在此仅作交流讨论之用，如需转载请注明原作者！)