Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- volume2[HalfAlpha_, i_, j_, x_] :=
- If[j == 0, x^i/Factorial[i],
- If[j == i, volume[HalfAlpha, i, j - 1, HalfAlpha[[j]]],
- volume[HalfAlpha, i, j - 1, HalfAlpha[[j]]]
- + (x - HalfAlpha[[j]])* volume[HalfAlpha, i - 1, j, HalfAlpha[[j]]]]];
Add Comment
Please, Sign In to add comment