matlab中弹性碰撞课程设计,仿真动画软件设计作品--物体完全弹性碰撞*

% 作者:03042105

figure(1);

pole=3/2; %定义摆线的初始长度

axis([-4,1.5,-2,1]);

hold on;

%axis equal

axis('off');

fill([-0.5,0.5,0.5,-0.5],[0,0,0.1,0.1],[0,0.5,0]);

fill([-4,1.5,1.5,-4],[-1.7,-1.7,-1.6,-1.6],[0,0.5,0]);

fill([-4,-3.8,-3.8,-4],[-1.6,-1.6,0,0],[0,0.5,0]);

fill([-3.8,-3.65,-3.65,-3.8],[-1.6,-1.6,0,0],[0,0.2,0]);

title('“两物体作完全弹性碰撞__03042105赵艳军”','color','r','fontsize',15)

text(-3,0.8,'“车轮变一次颜色，时间是一秒”','color','k','fontsize',15)

theta0=pi/3; %限定小球旋转的角度

x0=pole*sin(theta0);

y0=-pole*cos(theta0);

body=line([0;x0],[0;y0],'color','r','linestyle','-',...

'erasemode','xor');

head1=line(x0,y0,'color','g','linestyle','.'