Advertisement
Guest User

Untitled

a guest
Jan 19th, 2017
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. 1/(2*2^(1/4)*Sqrt[Pi]*x^(3/2)) +
  2. 945*Gamma[9/4]/(256*2^(1/4)*Sqrt[Pi]*x^(11/2)*Gamma[1/4]) -
  3. 15*Gamma[5/4]/(16*2^(1/4)*Sqrt[Pi]*x^(7/2)*Gamma[1/4]) -
  4. x^5*Gamma[13/4]/(90*Gamma[1/2]) + x^3*Gamma[9/4]/(3*Gamma[1/4]) -
  5. 2*x*Gamma[5/4]/Gamma[1/4] /. x -> 1 // N
  6.  
  7. (* 0.261485*)
  8.  
  9. F[z_] := Sqrt[z]/(z^2 + 2)^(1/4)
  10. melsol = 1/Gamma[p] MellinTransform[F[z], z, p, GenerateConditions -> False] /. p -> (1 - p);
  11. sol = melsol // TrigToExp // FunctionExpand;
  12. InverseMellinTransform[sol, p, x] // FullSimplify
  13.  
  14. N[-(1/2) x HypergeometricPFQ[{5/4}, {3/2, 2}, -(x^2/2)] /. x -> 1, 20]
  15. (*-0.40335058864991806300*)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement