方程equation 发表于 2014-11-19 15:22

方程equation 发表于 2014-11-17 04:35 static/image/common/back.gif
我也用Mathematica调整了一下罩杯画了一个~

其实我只改了整个表达式的第一个参数(1/8)——稍微改得大了一点，变成了1/2.5左右。
颜色的话要调整RGB参数，我不会直接目测，得借助Photoshop调色板来取RGB参数，懒得做了……

RUSSO 发表于 2014-11-19 16:33

不忍直视=。=

残__泪 发表于 2014-11-19 22:06

哈哈，画面太美

小熊666 发表于 2014-11-19 22:56

哈哈楼主也是太吊了。膜拜

小熊666 发表于 2014-11-19 22:56

哈哈楼主也是太吊了。膜拜

方程equation 发表于 2014-11-25 07:41

用31#老师给的代码做的

Plot3D[
1/8
  (6 Exp[-((2/3 Abs - 1)^2
    + (2/3 y)^2) - 1/3 (2/3 y + 1/2)^3]
    + 2/3 Exp[-2.818^11 ((Abs - 1)^2
    + (2/3 y)^2)^2] + 2/3 y - (2/3 x)^4),
{x, -3, 3}, {y, -3, 3},
PlotRange -> {-2, 1},
BoxRatios -> {6, 6, 4},
PlotPoints -> {100, 100},
ColorFunctionScaling -> False,
ColorFunction -> Function[{x, y, z},
   If - 3/2)^2 + y^2] < 0.45,
    Blend[{Pink,LightPink},0.5],LightPink]],
Mesh -> None
]



王大可 发表于 2015-1-18 22:57

66666666666666666666666666666666

宇仲 发表于 2015-1-20 19:39

求问怎么发帖啊？谢谢！

李太白 发表于 2015-2-28 14:58

哎呦，，

罗比达12138 发表于 2015-3-1 21:06

这个猥琐
页: 1 2 3 [4] 5
查看完整版本: 这函数太美, 我不敢看...