clear
clf
clc
axis equal
hold on
velocity = input('Enter your constant velocity for v: ');
while isnan(velocity)
velocity = input('Your value is not a number.Please input your velocity for v:','s');
end
while velocity == 0
disp('Your velocity must not be zero');
velocity = input('Enter enter true value of constant velocity for v: ');
while isnan(velocity)
velocity = input('Your value is not a number.Please input your velocity for v:','s');
end
end
Height = input('Enter your height to explorers for H: ');
while isnan(Height)
Height = input('Your value is not a number.Please input your height for H:','s');
end
while Height == 0
disp('Your height must not be zero');
Height = input('Enter true value of height for H: ');
while isnan(Height)
Height = input('Your value is not a number.Please input your height for H:','s');
end
end
d = input(' Write your distance from the plane to explorers for d: ');
while isnan(d)
d = input(' Write your true distance from the plane to explorers for d: ');
end
while d == 0
disp('You lost your dropping point');
d = input(' Write your true distance from the plane to explorers for d: ');
while isnan(distance)
d = input(' Write your true distance from the plane to explorers for d: ');
end
end
v = velocity;
h = Height;
g=9.81;
t = sqrt(2*h/g);
s = v*t;
d_dp = d-s;
t_dp = d_dp/v;
t_full = d/v;
while d > s
figure(1);
subplot(2,1,1);
line([0 d+500],[0 0]);
plot(d,0,'og');
for i = 0:t_dp/10:t_dp
x=(i*v);
plot(x,h,'dr');
plot(x,h,'*k');
pause(0.5);
end
subplot(2,1,2);
x0=x;
plot(x0,h,'og');
plot([x0 x0],[0 h],'--c');
for i = 0:t/10:t
x=(i*v+x0);
y=(h-g*i^2/2);
plot(x,h,'dr');
plot(x,y,'*k');
pause(0.5);
end
xlabel('Distance','Color','r');
ylabel('Height','Color','r');
end
