Skip to content

Instantly share code, notes, and snippets.

Created January 25, 2018 03:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/dbbb41437318804df90586f5bb63cf4f to your computer and use it in GitHub Desktop.
Save anonymous/dbbb41437318804df90586f5bb63cf4f to your computer and use it in GitHub Desktop.
x^6 y^5 z^3 w^2 (x - x y) (x - x y z) (x - x y z w) (x y -
x y z) (x y - x y z w) (x y z - x y z w) Dt[x] Dt[y] Dt[z] Dt[
w] // Factor
% /. {x -> u^(1/13), y -> v^(1/9), z -> s^(1/5),
w -> t^(1/3)} // Simplify
1/1755*NIntegrate[(1755 %)/(Dt[s] Dt[t] Dt[u] Dt[v]) // Evaluate, {u,
0, 1}, {v, 0, 1}, {s, 0, 1}, {t, 0, 1},
Method -> "AdaptiveMonteCarlo"]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment