求代码,Mathematica的,画一个3D红心.

发布网友发布时间：2024-07-03 23:18

共1个回答

热心网友时间：2024-07-04 13:35

效果非常好，你试试~~
ContourPlot3D[(x^2 + 9/4 y^2 + z^2 - 1)^3 - x^2*z^3 - 9/80 y^2*z^3 ==
0, {x, -1.5, 1.5}, {y, -1.5, 1.5}, {z, -1.5, 1.5}, Mesh -> None,
Axes -> False, Boxed -> False,
ContourStyle -> {Red, Specularity[Yellow, 10]}]

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com