Advertisement
Guest User

Untitled

a guest
Jun 18th, 2019
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. exp = Expectation[
  2. Abs[x] Abs[y], {x, y} [Distributed]
  3. MultinormalDistribution[{0, 0}, {{a, c}, {c, b}}]];
  4.  
  5. exp =
  6. exp /. ArcTan[x_] -> Pi/2 - ArcTan[1/x] //FullSimplify[#, c > 0] & //
  7. Collect[#, Sqrt[_], FullSimplify] & // (# /.
  8. ArcCot[x_] -> Pi/2 - ArcCot[1/x]) & // Simplify
  9.  
  10. expN =
  11. Expectation[
  12. Abs[x] Abs[y], {x, y} [Distributed]
  13. MultinormalDistribution[{0, 0}, {{1, 1/4}, {1/4, 2}}]] // N
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement