一、簡介

通過平拋小球在地面上跳躍的規律說明無窮級數的應用。通過動畫演示質點的運動軌跡。

二、原始碼

%平拋小球在地面上跳躍的軌跡的主程式
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
完整程式碼或代寫加1564658423