一个造型蛮特别的方程曲面

HAN · 发表于 2020-9-5 22:43:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？欢迎注册

×

\(x*\cos((y+z)^2) + y*\cos((z+x)^2) + z*\cos((x+y)^2) + x^2 + y^2 + z^2 = 16\)
untitled.25-.jpg

hujunhua · 发表于 2020-9-6 18:24:22

用什么画的？

chyanog · 发表于 2020-9-6 18:45:42

本帖最后由 chyanog 于 2020-9-6 19:26 编辑

用POV-Ray模仿了一下，不是很像
Mathematica的效果差了些，不上图了

5/.r_:>ContourPlot3D[x*Cos[(y+z)^2]+y*Cos[(z+x)^2]+z*Cos[(x+y)^2]+x^2+y^2+z^2==16,{x,-r,r},{y,-r,r},{z,-6,r},Mesh->None,BoundaryStyle->None,ContourStyle->Directive[RGBColor[0.5,1,0.1],Specularity[White,50]],Lighting->"Neutral",PlotPoints->20]

复制代码

wayne · 发表于 2020-9-6 18:48:30

这种图的计算和渲染都是相当考验算力的，我试了下Mathematica，差远了。
ContourPlot3D[ x*Cos[(y + z)^2] + y*Cos[(z + x)^2] + z*Cos[(x + y)^2] + x^2 + y^2 + z^2 == 16, {x, -4, 4}, {y, -4, 4}, {z, -4, 4}]

HAN · 发表于 2020-9-6 20:25:08

用rhino软件做的。这个是等式右边改成64的结果

wayne · 发表于 2020-9-6 23:04:31

rhino好像没有Linux版本的，这个没法玩了

mathe · 发表于 2020-9-7 06:33:58

这个网球看上去不错

倪举鹏 · 发表于 2020-9-7 12:44:34

犀牛软件

HAN · 发表于 2020-9-7 22:09:40

x/(cos((y+z)^2)+1.5) + y/(cos((z+x)^2)+1.5) + z/(cos((x+y)^2)+1.5) + x^2 + y^2 + z^2 = 16

dlpg070 · 发表于 2020-9-8 12:42:43

一个求美,一个求真,相辅相成,相得益彰
下面图片由mathematica自动生成,还不是太丑吧

账号		自动登录	找回密码
密码			欢迎注册

[欣赏] 一个造型蛮特别的方程曲面

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评

点评