 日志正文
|
||
|
%作者:电气工程1902 1904020050 title=figure('name','易方达中小盘'); axis equal; axis([0,200,0,300]); %画坐标 hold on; set(title,'color','c'); %填充背景色 axis('off') text(40,210,'易方达中小盘混合 ','fontsize',15,'color','k');%标题字体大小及颜色 text(30,130,'30','fontsize',8,'color','r');%上面坐标系左边中间的分界线数值 text(30,150,'50','fontsize',8,'color','r');%上面坐标系上面的分界线数值 text(30,100,'0','fontsize',8,'color','r');%上面坐标系下面的分界线数值 text(30,60,' 收益','fontsize',8,'color','k'); line1=fill([50 51 51 51.5 50.5 49.5 50],[100 100 165 165 166 165 165],'k');%画上面坐标系的纵坐标 line2=fill([50 160 160 161 160 160 50],[100 100 99 100.5 101.5 101 101],'k');%画上面坐标系的横坐标 line3=fill([50 51 51 51.5 50.5 49.5 50],[0 0 65 65 66 65 65],'k');%画下面坐标系的纵坐标 line4=fill([50 160 160 161 160 160 50],[0 0 -1 0.5 1.5 1 1],'k');%画下面坐标系的横坐标系 line5=fill([50 55 55 50],[-65 -65 0 0],'r');%画下面第一个柱形图 line6=fill([70 75 75 70],[-65 -65 0 0],'r');%画第二个柱形图 line7=fill([80 85 85 80],[-65 -65 0 0],'g');%画第三个柱形图 line8=fill([105 110 110 105],[-65 -65 0 0],'g');%画第四个柱形图 line9=fill([130 135 135 130],[-505 -505 0 0],'g');%画第五个柱形图 b1=line([50;50],[102;102],'color','k','linewidth',1);%画上面折现的第一段 b2=line([55;55],[105;105],'color','k','linewidth',1);%第二段 b3=line([60;60],[110;110],'color','k','linewidth',1);%第三段 b4=line([70;70],[122;122],'color','k','linewidth',1);%第四段 b5=line([85;85],[102;102],'color','k','linewidth',1);%第五段 b6=line([95;95],[122;122],'color','k','linewidth',1);%第六段 b7=line([115;115],[102;102],'color','k','linewidth',1);%第七段 b8=line([130;130],[94.5;94.5],'color','k','linewidth',1);%第八段 x1=50;x2=50;x3=55;x4=60;x5=70;x6=85;x7=95;x8=115;x9=130;x10=65;x11=80;x12=105;x13=110;x14=135; y1=102;y2=102;y3=107;y4=107;y5=112;y6=110;y7=122;y8=140;y9=92;y10=111; y11=122;y12=122;y14=102;y13=102;y15=94;y16=94;y17=-65;y18=-505 dt=0.5; while x2<55 x2=x2+dt; y2=y2+1*dt; y17=y17+3*dt; set(b1,'xdata',[x1,x2],'ydata',[y1,y2]);%第一段折线的产生 set(line5,'xdata',[x1 x3 x3 x1],'ydata',[y17 y17 y17+65 y17+65]);%第一段柱形图的产生 pause(0.01); drawnow; hold on; end while x2<60 x2=x2+dt; y3=y3+dt; y17=y17+4*dt; set(b2,'xdata',[x3,x2],'ydata',[y4,y3]);%第二段折线的产生 set(line6,'xdata',[x4 x10 x10 x4],'ydata',[y17 y17 y17+65 y17+65]);%第二段柱形图的产生 pause(0.01); drawnow; hold on; end while x2<70 x2=x2+dt; y6=y6+3*dt; set(b3,'xdata',[x4,x2],'ydata',[y5,y6]);%第三段折线的产生 pause(0.01); drawnow; hold on; end pause(1); text(60,130,'买入 ','fontsize',8,'color','r'); while x2<85 x2=x2+dt; y7=y7-0.7*dt; y17=y17-1*dt; set(b4,'xdata',[x5,x2],'ydata',[y8,y7]);%第四段折线的产生 set(line7,'xdata',[x6 x11 x11 x6],'ydata',[y17 y17 y17+65 y17+65]);%第三段柱形图的 产生 pause(0.01); drawnow; hold on; end while x2<95 x2=x2+dt; y9=y9+3*dt; y17=y17+3*dt; set(b5,'xdata',[x6,x2],'ydata',[y10,y9]); %第五段折线的产生 set(line8,'xdata',[x12 x13 x13 x12],'ydata',[y17 y17 y17+65 y17+65]);%第四段柱形图的产生 pause(0.01); drawnow; hold on; end while x2<115 x2=x2+dt; y11=y11-dt; set(b6,'xdata',[x7,x2],'ydata',[y12,y11]); %第六段折线的产生 pause(0.01); drawnow; hold on; end while x2<130 x2=x2+dt; y13=y13-0.5*dt; set(b7,'xdata',[x8,x2],'ydata',[y14,y13]);%第七段折线的产生 pause(0.01); drawnow; hold on; end while x2<200 x2=x2+5*dt; y15=y15-50*dt; y18=y18+17.5*dt; set(b8,'xdata',[x9,x2+30],'ydata',[y16,y15]); %第八段折线的产生 set(line9,'xdata',[x9 x14 x14 x9],'ydata',[y18 y18 y18+505 y1+505]);%第五段柱形图的产生 pause(0.01); drawnow; hold on; end pause(1) text(20,150,'破产 ','fontsize',50,'color','r') pause(1) a1=line([170;200],[70;70],'color','k','linewidth',1)%画出高楼的顶 a2=line([170;170],[0;70],'color','k','linewidth',1)%画出老楼的边 bal1=line(170,70,'color','r','marker','.','markersize',40);%画出一个红色小球代表人 text(180,80,'人 ','fontsize',8,'color','r'); pause(1); g=9.8;%重力加速度 t=0;dt=0.001; h1=70;%初始高度 while h1 > 0 t=t+dt; h1=h1-0.5*g*t^2; set(bal1,'xdata',170,'ydata',h1); drawnow; hold on; end text(180,0,'死 ','fontsize',10,'color','r'); pause(1) drawnow;
最后修改于 2022-01-14 16:58
阅读(?)评论(0)
上一篇： 仿真程序动画作品--射击训练
下一篇：仿真程序动画作品--扑克牌:九点比大小
|
||
评论
想第一时间抢沙发么？