% 作者: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','.','erasemode',...

'xor', 'markersize',50);%设置小球颜色,大小,线条的擦拭方式

head2=line(-3.5,-1.5,'color','r','linestyle','.','erasemode',...

'xor', 'markersize',50);%设置小球颜色,大小,线条的擦拭方式

head3=line(-2.5,-1.8,'color','b','linestyle','.','erasemode',...

'xor', 'markersize',50);%设置小球颜色,大小,线条的擦拭方式

head4=line(0,-1.8,'color','b','linestyle','.','erasemode',...

'xor', 'markersize',50);%设置小球颜色,大小,线条的擦拭方式

hold on;

H1=plot([-2.38,-0.14],[-1.8,-1.8],'k');

pause(0.2);

%http://lvcha6255.blog.sohu.com

while 1

t=0;%设制它的初始值

dt=0.005;%设制它的运动周期

n=-3.5

dn=0.005;

while n<=-0.33

t=dt+t;

dn=0.005;

n=n+dn;

theta=theta0*cos(0.2*sqrt(9.8/pole)*t);%设置运动规律

x=pole*sin(theta);

y=-pole*cos(theta);%设摆球的运动轨迹

m=-1.5;

set(head2,'xdata',n,'ydata',m);%设制球的运动

set(head1,'xdata',x,'ydata',y);%设制球的运动

set(body,'xdata',[0;x],'ydata',[0;y]);%设制线的运动

drawnow;

end

t=0;

while n>=-3.5;

t=dt+t;dn=0.01;

n=n-dn;

theta=theta0*sin(0.2*sqrt(9.8/pole)*t);%设置运动规律

x=pole*sin(theta);

y=-pole*cos(theta);%设摆球的运动轨迹

m=-1.5;

set(head2,'xdata',n,'ydata',m);%设制球的运动

set(head1,'xdata',x,'ydata',y);%设制球的运动

set(body,'xdata',[0;x],'ydata',[0;y]);%设制线的运动

drawnow;

end

k=-2.5;

while k>=-2.51;

k=k-0.025;

a=-1.8;

set(head3,'xdata',k,'ydata',a);%设制球的运动

drawnow;

head3=line(-2.51,-1.8,'color','r','linestyle','.','erasemode',...

'xor', 'markersize',40);%设置小球颜色,大小,线条的擦拭方式

end

r=0.01;

while r>=0;

r=r-0.025;

b=-1.8;

set(head4,'xdata',r,'ydata',b);%设制球的运动

drawnow;

head4=line(0,-1.8,'color','r','linestyle','.','erasemode',...

'xor', 'markersize',40);%设置小球颜色,大小,线条的擦拭方式

end

end