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

[yesman]

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日发表在《麓瑜园》
(注：本文转自转自《麓瑜园》，版权归原作者所有！在此仅作交流讨论之用，如需转载请注明原作者！)