%4
t=linspace(0,30,1000);
x=-.28*t.^2+6.5*t+61;
y=.18*t.^2-8.5*t+65;
r=sqrt(x.^2+y.^2);
theta=atand(y./x);
figure
plot(x,y,'g')
title('Squirrel''s trajectory')
figure
plot(t,r,'k')
title('Length of position vector')
legend('length of r(t)')
figure
plot(t,theta,'r')
title('angle of position vector')
legend('\theta(t)')
%5
G=5;
c=.05;
t1=.05;
t2=500;
w=linspace(.0001,1000,1000);
Gd=G*(1+(c/2)*log((1+(w*t2).^2)./(1+(w*t1).^2)));
Gdd=c*G*(atan(w*t2)-atan(w*t1));
subplot(2,1,1)
semilogx(w,Gd)
title('G'' versus \omega')
xlabel('\omega')
ylabel('G''')
subplot(2,1,2)
semilogx(w,Gdd)
title('G'''' versus \omega')
xlabel('\omega')
ylabel('G''''')
The positice as a fncticn of tine attc)of a sqanel naming on a grass field is...