Input := time = 5 Pi/2 / 2//N
Output = 3.92699
Input := angle[t_] = ArcTan[(p[t][[2]] - 1)/(10 - p[t][[1]] )]
Output =
2 t
-1 + 5 Cos[---]
5
ArcTan[---------------]
2 t
10 - 5 Sin[---]
5
Input :=
Plot[angle[t],{t,starttime,time}];
