(r(θ,ϕ,t)=(Subscript[R, 0])+(∑_(n=2)^∞) (∑_(m=-n)^n) (Subscript[A, n]^m)(e^(im θ))(Subscript[P, n]^m)(cos(θ))   cos(2(Subscript[π , n])t)(2))