一、简介
通过平抛小球在地面上跳跃的规律说明无穷级数的应用。通过动画演示质点的运动轨迹。
二、源代码
%平抛小球在地面上跳跃的轨迹的主程序
clear %清除变量
vx=0.1; %速率比
k=0.9; %反弹系数
%平抛小球在地面上跳跃的轨迹的函数文件
function fun(vx,k)
if k>=1 return,end %如果速率比大于1则返回
tm=(1+k)/(1-k); %运动时间
xm=2*vx*tm; %最远距离
figure %创建图形窗口
plot([0,xm],[0,0],'LineWidth',3) %画地平线
grid on %加网格
axis equal %使坐标间隔相等
axis([0,xm,0,1]) %坐标范围
fs=16; %字体大小
title('平抛小球在地面上跳跃的轨迹','FontSize',fs)%标题
xlabel('水平距离\itx/h','FontSize',fs) %横坐标标签
ylabel('竖直高度\ity/h','FontSize',fs) %纵坐标标签
txt=['速率比\itv_x/v\rm_0:',num2str(vx)];%水平速率与平抛落地速率比文本
txt=[txt ',反弹系数:',num2str(k)]; %反弹系数文本
text(0,0.5,txt,'FontSize',fs) %显示速率比文本
txt=['\itT\rm=',num2str((1+k)/(1-k)),'(2\ith/g\rm)^{1/2}'];%运动时间字符串
txt=[txt ',\itX\rm=',num2str(xm),'\ith'];%连接运动距离
text(xm/4,0.8,txt,'FontSize',fs) %显示运动时间
三、运行结果
四、备注
版本：2014a
