如何运用Mathematica制作一个心形的数学函数图像?我要代码
答案:2 悬赏:0 手机版
解决时间 2021-03-30 09:36
- 提问者网友：趣果有间
- 2021-03-29 20:29
如何运用Mathematica制作一个心形的数学函数图像?我要代码
最佳答案
- 五星知识达人网友：千夜
- 2021-03-29 21:18
ContourPlot3D[(2 x^2 + y^2 + z^2 - 1)^3 - (x^2 z^3)/10 - y^2 z^3 ==
0, {x, -1.4, 1.4}, {y, -1.4, 1.4}, {z, -1.4, 1.4}, PlotPoints -> 30,
Axes -> False, Lighting -> Automatic,
ContourStyle -> {RGBColor[1, .5, .5]}, Mesh -> None]
立体的
楼上的平面灰心我给改成红心了：
RegionPlot[(x^2 + y^2 - 1)^3 - x^2 y^3 <= 0, {x, -2, 2}, {y, -2, 2},
PlotStyle -> Red]
0, {x, -1.4, 1.4}, {y, -1.4, 1.4}, {z, -1.4, 1.4}, PlotPoints -> 30,
Axes -> False, Lighting -> Automatic,
ContourStyle -> {RGBColor[1, .5, .5]}, Mesh -> None]
立体的
楼上的平面灰心我给改成红心了：
RegionPlot[(x^2 + y^2 - 1)^3 - x^2 y^3 <= 0, {x, -2, 2}, {y, -2, 2},
PlotStyle -> Red]
全部回答
- 1楼网友：风格不统一
- 2021-03-29 21:30
形式最简单流传最广的心形线,莫过于莱布尼茨的:
PolarPlot[ 1 - Sin[x], {x, -Pi, Pi}]
通过广大Geek们努力,在保持形式简洁的前提下,这个更好看些:
RegionPlot[(x^2 + y^2 - 1)^3 - x^2 y^3 <= 0, {x, -2, 2}, {y, -2, 2}]
PolarPlot[ 1 - Sin[x], {x, -Pi, Pi}]
通过广大Geek们努力,在保持形式简洁的前提下,这个更好看些:
RegionPlot[(x^2 + y^2 - 1)^3 - x^2 y^3 <= 0, {x, -2, 2}, {y, -2, 2}]
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯