matlab模拟台球比赛,【文章】仿真动画软件设计作品--模拟台球比赛

【文章】仿真动画软件设计作品--模拟台球比赛

axis([-1.6,12.6,-1.6,10.7])

hold on

fill([-2,13,13,-2],[-2,-2,11,11],[0,1,0]);

fill([-1,12,12,-1],[-1,-1,10,10],[0,0.5,0]);

ball1=line(0,5,'color','r','marker','.','erasemode','xor','markersize',60);

ball2=line(8,9,'color','g','marker','.','erasemode','xor','markersize',60);

ball3=line(-1,-1,'color','g','marker','.','erasemode','xor','markersize',80);

ball4=line(12,-1,'color','g','marker','.','erasemode','xor','markersize',80);

ball3=line(-1,10,'color','g','marker','.','erasemode','xor','markersize',80);

ball4=line(12,10,'color','g','marker','.','erasemode','xor','markersize',80);

title('完全非弹碰在模拟台球比赛的应用', 'color','r','fontsize',15);

pause(1)

t=0;dt=0.005;

while t<7.2

t=t+dt;

y=1/2*t+5;

set(ball1,'xdata',t,'ydata',y)

drawnow;

end

while t<8.8

t=t+dt;

y=1/2*t+5;

set(ball2,'xdata',t,'ydata',y)

drawnow;

end

while t<11.5

t=t+dt;

y=-1/2*t+14.3;

set(ball2,'xdata',t,'ydata',y)

drawnow;

end

while t>-0.5

t=t-dt;

y=1/2*t+2.90;

set(ball2,'xdata',t,'ydata',y)

drawnow;

end

while t<6

t=t+dt;

y=-1/2*t+2.40;

set(ball2,'xdata',t,'ydata',y)

drawnow;

end

while t<11.5

t=t+dt;

y=1/2*t-3.0;

set(ball2,'xdata',t,'ydata',y)

drawnow;

end

while t>-2

t=t-dt;

y=-t*7.65/12.9+9.57;

set(ball2,'xdata',t,'ydata',y)

drawnow;

end

text(2,5,'好！进球了啊！！！恭喜！','fontsize',16,'color','r');

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

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