%作者:03042105
figure(1);
pole=3/2;%定义摆线的初始长度
axis([-4,1.5,-2,1]);
holdon;
%axisequal
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);%设置小球颜色,大小,线条的擦拭方式
holdon;
H1=plot([-2.38,-0.14],[-1.8,-1.8],'k');
pause(0.2);
%http://lvcha6255.
while1
t=0;%设制它的初始值
dt=0.005;%设制它的运动周期
n=-3.5
dn=0.005;
whilen<=-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;
whilen>=-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;
whilek>=-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;
whiler>=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
