 日志正文
|
||
|
%作者:1901070197 task=figure('name','做核酸的过程');%设置标题名字 title ('做核酸'); %设置题目 axis([-100,100,-100,100]); %建立坐标系 set(task,'color','w');%设置背景颜色 axis off %除掉坐标 %画地平线 a=line([-100,100],[-100,-100],'color','k','linestyle','-','linewidth',2); %画医院框架 a1=line([30;30],[-100;80],'color','k','linestyle','-','linewidth',2); a1=line([100;100],[-100;80],'color','k','linestyle','-','linewidth',2); a1=line([30;100],[80;80],'color','k','linestyle','-','linewidth',2); %画医院外观 a2=line([60;80],[60;60],'color','r','linestyle','-','linewidth',8); a2=line([70;70],[50;70],'color','r','linestyle','-','linewidth',8); text(45,40,'协和医院','fontsize',20,'color','k') %窗子1 a3=line([70;90],[0;0],'color','k','linestyle','-','linewidth',2); a3=line([70;90],[20;20],'color','k','linestyle','-','linewidth',2); a3=line([70;70],[0;20],'color','k','linestyle','-','linewidth',2); a3=line([90;90],[0;20],'color','k','linestyle','-','linewidth',2); a3=line([80;80],[0;20],'color','k','linestyle','-','linewidth',2); a3=line([70;90],[10;10],'color','k','linestyle','-','linewidth',2); %窗子2 a3=line([40;60],[0;0],'color','k','linestyle','-','linewidth',2); a3=line([40;60],[20;20],'color','k','linestyle','-','linewidth',2); a3=line([40;40],[0;20],'color','k','linestyle','-','linewidth',2); a3=line([60;60],[0;20],'color','k','linestyle','-','linewidth',2); a3=line([50;50],[0;20],'color','k','linestyle','-','linewidth',2); a3=line([40;60],[10;10],'color','k','linestyle','-','linewidth',2); %医院大门 a4=line([50,50],[-100,-20],'color','k','linestyle','-','linewidth',3) a4=line([80,80],[-100,-20],'color','k','linestyle','-','linewidth',3) a4=line([50,80],[-20,-20],'color','k','linestyle','-','linewidth',3) a4=line([65,65],[-100,-20],'color','k','linestyle','-','linewidth',3) a4=line([64,64],[-55,-55],'color','k','linestyle','-','linewidth',10) %画去做核酸的人 axis normal m11=line(-75,-20,'color','k','marker','.','markersize',150);%头 m11=line(-70,-12,'color','w','marker','.','markersize',15);%右眼 m11=line(-80,-12,'color','w','marker','.','markersize',15);%左眼 a4=line([-65,-85],[-50,-50],'color','k','linestyle','-','linewidth',80)%身子 a4=line([-95,-85],[-65,-65],'color','k','linestyle','-','linewidth',10)%左手 a4=line([-70,-55],[-60,-65],'color','k','linestyle','-','linewidth',10)%右手 a4=line([-80,-80],[-100,-80],'color','k','linestyle','-','linewidth',10)%左脚 a4=line([-70,-70],[-100,-80],'color','k','linestyle','-','linewidth',10)%右脚 m12=line(-75,-20,'color','k','marker','.','markersize',50);%口 %画做核酸的人 m21=line(-25,20,'color','k','marker','.','markersize',150);%头 m21=line(-20,28,'color','w','marker','.','markersize',15);%右眼 m21=line(-30,28,'color','w','marker','.','markersize',15);%左眼 a5=line([-15,-35],[-20,-20],'color','k','linestyle','-','linewidth',80)%身子 a5=line([-0,-15],[-25,-25],'color','k','linestyle','-','linewidth',10)%右手 a5=line([-20,-20],[-100,-50],'color','k','linestyle','-','linewidth',10)%左脚 a5=line([-30,-30],[-100,-50],'color','k','linestyle','-','linewidth',10)%右脚 a1=line([-50,-30],[-25,-25],'color','k','linewidth',2);%做核酸的手横坐标为-50到-30，纵坐标为-25，黑色 t=0%起始时间 dt=0.5%测核酸的速度 t1=-25.5 while t1>=-75 t1=t1-dt; x1=t1; set(a1,'xdata',[x1,-30],'ydata',[-25,-25]);%主动手 pause(0.001); drawnow; if t1==-70 m12=line(-75,-20,'color','w','marker','.','markersize',50);%在做核酸的时候张嘴 end; end; b=0%回去的起始时间 db=0.5%回手的速度 t2=-75 while t2<=-25.5 t2=t2+dt; x2=t2; set(a1,'xdata',[x2,-30],'ydata',[-25,-25]);%主动手 pause(0.001); drawnow; if t2==-70 m12=line(-75,-20,'color','k','marker','.','markersize',50);%做完核酸的时候闭嘴 end; end; a5=line([-50,-30],[-25,-25],'color','k','linestyle','-','linewidth',10)%右手 pause(1)%暂停一秒 plot([-100,100],[-100,100],'color','w') axis off; text1=text(0,40,'第二天','fontsize',50,'color','r');%写“第二天” pause(1);%设定文字停留时间 delete(text1); %使文字消失 text2=text(-20,40,'核酸检测报告：阴性','fontsize',25,'color','r');%写文字 pause(2);%设定文字停留时间 delete(text2); %使文字消失 set(gcf,'doublebuffer','on');%消除振动 plot([-100,100],[-100,100],'color','w') axis off; text2=text(-20,100,'疫情路上','fontsize',25,'color','r');%写文字 pause(1); text2=text(-20,80,'我们每个人都在努力','fontsize',25,'color','r');%写文字 pause(1); text2=text(-20,60,'不要畏惧寒冬','fontsize',25,'color','r');%写文字 pause(1); text2=text(-20,40,'暖春总会来临','fontsize',25,'color','r');%写文字 pause(1); text2=text(-20,20,'抗击疫情','fontsize',25,'color','r');%写文字 pause(1); text2=text(-20,0,'我们在一起!','fontsize',25,'color','r');%写文字 pause(1); text2=text(-20,-20,'相信中国！','fontsize',25,'color','r');%写文字 pause(1); text2=text(-40,-40,'必将迎来美好的春天!','fontsize',25,'color','r');%写文字 pause(1);
最后修改于 2022-01-14 16:58
阅读(?)评论(0)
上一篇： 仿真程序动画作品--扑克牌:九点比大小
下一篇：仿真程序动画作品-跳格子
|
||
评论
想第一时间抢沙发么？