(e) We ascertain when the angular velocity and the angular acceleration of the camera is greatest.

Input := 


Plot[angle'[t],{t,starttime,time},
	AxesLabel->{"t","angle'(t)"}];

Input := 

acc[t_] = angle''[t];

Input := 

solacc = FindRoot[acc[t]==0,{t,3.5}]

Output =


{t -> 3.67782}

Input := 

angle'[t]/.solacc[[1]]

Output =


-0.396049

We note that the maximum angular velocity (-0.40 rad/sec) at time 3.68 sec is NOT at the end of the motion but rather shortly before that time.

We now determine the maximum angular acceleration.

Input := 

Plot[angle''[t],{t,starttime,time},
	AxesLabel->{"t","angle''(t)"}];

Input := 

jerk[t_] = angle'''[t];

Input := 

soljerk = FindRoot[jerk[t]==0,{t,2.5}]

Output =


{t -> 2.67134}

Input := 

angle''[t]/.soljerk[[1]]

Output =


-0.212865

Thus we determine the maximum acceleration is 0.213 cm/sec^2 and it is a deceleration experienced at time t = 2.67 sec.