哪位高手能用Mathematica编写“惯量椭球”的程序啊？我把全部的财富值捐给你啊！帮帮忙，谢谢啦！

如题所述

你先解释清楚什么叫惯量椭球吧。追问

这个一两句是说不清的，反正就是画椭球，但不能用 RegionPlot3D 这个函数，

追答

在Wolfram官网的展示项目里搜了一下，似乎有你说的东西，不过这里没法贴地址（会被吞），你到官网，或者直接在搜索引擎里搜一下momental ellipsoid mathematica，应该就能看到那个链接。

如果只是要画个椭球又不能用RegionPlot3D，那用Plot3D总行了吧？：

Plot3D[{Sqrt[1 - 2 y^2 - 3 z^2], -Sqrt[1 - 2 y^2 - 3 z^2]}, {y, -1, 1}, {z, -1, 1}]

追问

谢谢！
怎样把其中的八分之一体积去掉，又把去掉的部分用平面补齐？
怎样用球坐标系表示去掉八分之一体积的椭球啊？

追答

……被切了一定区域的椭圆的体积公式我现在懒得去查也懒得去推导了（提示：用Integrate加Boole再结合Solve就可以办到），这里告诉你怎么样获得切掉一部分的椭球的图形的方法（参数我随便设的）：

Plot3D[{Sqrt[1 - 2 y^2 - 3 z^2], -Sqrt[1 - 2 y^2 - 3 z^2]}, {y, -1, 1}, {z, -1, 1}, PlotRange -> {-2, 3/4}]

具体要切到哪里，就由你自己去弄了。顺便要切侧面也是可以的，具体看看PlotRange的自带帮助。

顺便如果你要用球坐标系，就去看看ParametricPlot3D还有SphericalPlot3D的自带帮助。

话说你说不能用RegionPlot该不会又是因为在用版本5之类的吧？如果是的话，请尽早弃暗投明。（顺便如果是版本5，那么上面所说的使用Boole结合Integrate的解法，又是用不了的。）

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/ppv2v7247qffpsf4877.html