Question: Evaluating a function containing integral

I am trying to evaluate the following function for which I am getting a result 0. I just need to make sure the approach as well as result is correct or not. Thanks in advance. 
 

restart; Digits := 20; r := 5; Z := 0; KK := proc (phi) options operator, arrow; evalf(int(sin(phi)*sin(-arctan((p*cos(phi)+Z)/sqrt(p^2*sin(phi)^2+r^2)))*hypergeom([5/2, 3/2], [5/2], sin(-arctan((p*cos(phi)+Z)/sqrt(p^2*sin(phi)^2+r^2)))^2)/(p^2*sin(phi)^2+r)^2, p = -1 .. 1, numeric)) end proc; evalf(KK((1/6)*Pi))

0.

(1)

``


 

Download int(maple_prime).mw

Please Wait...