I tested the angle zero and I do get the correct values. Here is my code pasted. Thank you for your reply
Clear[g, \[Omega], R, H, h, Vb, \[Theta], Pxo, Pyo, Vxo, Vyo, Ta, Tw, \
Ttotal, Bx, P, nterms]
g = 9.8; \[Omega] = .2; R = 30; H = 80; h = .01; Vb = 10;
\[Theta][n_] := n*h;
Pxo[n_] :=...