In[]:=
1/(3π)Integrate[(((1/1-24/0.859216(Cos[1.45p]+2Cos[0.94576p]-3Sin[0.94576p]/0.94576))-1)(5/6-Power[p,2]/1.9602+Power[(Power[p,2]-Power[0.99,2]),2]/3.881196Log[0.99+p/0.99-p])Power[(p),2]),{p,0,70}]
Out[]=
1.54423×
11
10
In[]:=
1/(3π)NIntegrate[(((1/1-24/0.859216(Cos[1.45p]+2Cos[0.94576p]-3Sin[0.94576p]/0.94576))-1)(5/6-Power[p,2]/1.9602+Power[(Power[p,2]-Power[0.99,2]),2]/3.881196Log[0.99+p/0.99-p])Power[(p),2]),{p,0,70}]
Out[]=
1.54423×
11
10
In[]:=
N[Pi/2]
Out[]=
1.5708