|
如何用 mathematica 计算 x^2+y^2+2 z^2 ≤ a 和 0≤x≤y≤z 围成的立体图形的体积? 其中 a>0。
用以下代码计算,结果如下,但是这个结果不对。不知为何错了?
- In[1]:= Clear["Global`*"];Integrate[ Boole[x^2 + y^2 + 2 z^2 <= a && 0 <= x <= y <= z ], {x, 0, Sqrt[ a]}, {y, 0, Sqrt[a]}, {z, 0, Sqrt[a]}, Assumptions -> a > 0]Out[2]= (a^(3/2) (7 \[Pi]-tan^-1((4 Sqrt[2])/7)-12 cot^-1(Sqrt[2])))/(24 Sqrt[2])
复制代码
如果给 a 一个具体的值,比如令 a=4,则计算结果正确:
- In[3]:= Clear["Global`*"];Integrate[ Boole[x^2 + y^2 + 2 z^2 <= 4 && 0 <= x <= y <= z ], {x, 0, Sqrt[ 4]}, {y, 0, Sqrt[4]}, {z, 0, Sqrt[4]}]Out[4]= 1/3 Sqrt[2] (\[Pi]+tan^-1(2 Sqrt[2])-6 cot^-1(Sqrt[2]))
复制代码
问题出在哪里? 如何解决? 是不是我的 mathematica 版本太低了? |
|