e412.m

学习Matlab循环语句的好例子

% Script file: ball.m--E412.m
%
% Purpose:
%    This program calculates the distance traveled by a ball
%  thrown at a specified angle "theta" and a specified velocity "v0"
%   from a point on the surface of the Earth,ignoring air friction and the
%   Earth's curvature. It calculates the angel yielding maximum range,and
%   also plots selected trajectiories.

% Record of revisions:
%      Date         Programmer     Description of change
%    =======        ==========     ======================
%    12/10/98       S.J.Chapman     Original code
%    03/06/08        ZMW            modified inner loop

% Define variables:
%  conv      ---Degrees to radians conv factor
%  gravity   ---Acceleration
%  ii,jj     ---Loop index
%    maxangel  --Angle that gives maximum range 
%    maxrange  --maximum range(m)
%    time      --Time(s)
%    theta     --Initial angle
%    traj_time --Total trajectory time
%    vo        --Initial velocity (m/s)
%    vxo       --X-component of initial velocity(m/s)
%    vyo       --Y-component of initial velocity(m/s)
%    x         --X-position of ball
%    y         --Y-position of ball

% Constants
conv=pi/180;
g=input('Please input acceleration g''s Value: ');  % 手动输入加速度的值
% g=-9.81;
v0=input('Please input initial velocity value:');
% vo=20;

% Create an array to hold ranges
range=zeros(1,91);

%Calculate maximum ranges
for ii=1:91
    theta=ii-1;
    vxo=vo*cos(theta*conv);
    vyo=vo*sin(theta*conv);
    max_time=-2*vyo/g;
    range(ii)=vxo*max_time;
end 
% write out table of ranges
fprintf('Range versus angle theta: \n');
for ii=1:91
    theta=ii-1;
    fprintf('  %2d  %8.4f\n',theta,range(ii));
end 

%calculate the maximum range and angle 
[maxrange,index]=max(range);
maxangle=index-1;
fprintf('\nMax range is %8.4f at %2d degrees,\n',maxrange,maxangle);

% Now plot the trajectories
for ii=5:10:85
    % Get velocities and max time for this angle 
    theta=ii;
    vxo=vo*cos(theta*conv);
    vyo=vo*sin(theta*conv);
    max_time=-2*vyo/g;
    
    % calculate the (x,y) positions
    x=zeros(1,21);
    y=zeros(1,21);
%     for jj=1:21
%         time=(jj-1)*max_time/20;
%         x(jj)=vxo*time;
%         y(jj)=vyo*time+0.5*g*time^2;
%     end 
% 使用向量方法
  jj=1:21;
  time=(jj-1).*max_time/20;
  x=vxo.*time;
  y=vyo.*time+0.5*g*time.^2;
  
    plot(x,y,'b');
    if ii==5
        hold on;
    end
end
% Add titles and axis labels
title('\bfTrajectory of Ball vs initial Angle \theta');
xlabel('\bf\itx \rm\bf(meters)');
ylabel('\bf\ity \rm\bf(meters)');
axis([0 45 0 25]);
grid on;

% Now plot the max range trajectory
vxo=vo*cos(maxangle*conv);
vyo=vo*sin(maxangle*conv);
max_time=-2*vyo/g;

% Calculate the (x,y) positions
x=zeros(1,21);
y=zeros(1,21);
for jj=1:21
    time=(jj-1)*max_time/20;
    x(jj)=vxo*time;
    y(jj)=vyo*time+0.5*g*time^2;
end 
plot(x,y,'r','LineWidth',3.0);
hold off

%