数学建模社区-数学中国

标题: 这函数太美, 我不敢看... [打印本页]

作者: mcm-dlu-edu 时间: 2014-11-16 20:16
标题: 这函数太美, 我不敢看...
本帖最后由 mcm-dlu-edu 于 2014-11-17 15:12 编辑

z = 1/8.*(6.*exp(-((2/3.*abs(x) - 1).^2 + (2/3.*y).^2) - 1/3*(2/3.*y + 1/2).^3) + 2/3.*exp(-2.818^11*((abs(2/3.*x) - 1).^2 + (2/3.*y).^2).^2) + 2/3.*y - (2/3.*x).^4);

z = 1/8.*(12.*exp(-((2/3.*abs(x) - 1).^2 + (2/3.*y).^2) - 1/3*(2/3.*y + 1/2).^3) + 2/3.*exp(-2.818^11*((abs(2/3.*x) - 1).^2 + (2/3.*y).^2).^2) + 2/3.*y - (2/3.*x).^4);

MATLAB代码:

breasts.m.rar (433 Bytes, 下载次数: 104)

作者: ATLAS-CEPC 时间: 2014-11-16 20:21

作者: mcm-dlu-edu 时间: 2014-11-16 20:22

ATLAS-CEPC 发表于 2014-11-16 20:21

哈, MATLAB也可以画这么性感的图呀...

作者: yuanyuanxiang 时间: 2014-11-16 21:52
本帖最后由 yuanyuanxiang 于 2014-11-16 21:55 编辑

【数学之美】在微博上面看到这么个图片，我用Mathematica画了一下。

数学之美.jpg (199.16 KB, 下载次数: 358)

数学之美

作者: GO雨林木风 时间: 2014-11-16 23:50
无法直视

作者: 草偶 时间: 2014-11-17 00:20
请问你是怎样想到这个函数的

作者: 方程equation 时间: 2014-11-17 04:35
我也用Mathematica调整了一下罩杯画了一个~

作者: hucchongzi 时间: 2014-11-17 05:24
beautiful

作者: YHC爱数学 时间: 2014-11-17 09:16
膜拜跪了！

作者: xros 时间: 2014-11-17 10:06
无法直视。。。

作者: hellocyd 时间: 2014-11-17 10:15
吊的不行啊

作者: Leewq 时间: 2014-11-17 10:32
想说学霸的世界咱不懂

作者: 284750539 时间: 2014-11-17 10:41
无法直视。。

作者: Died 时间: 2014-11-17 11:09
。。。。额

作者: wzd吴忠得 时间: 2014-11-17 13:16
额、、、、、、、

作者: 数学中国—罂粟 时间: 2014-11-17 13:27

作者: 『蒸薯』仔‰ 时间: 2014-11-17 14:21
我已不会使用这个函数画图了。。。。给个提示？

作者: 模天大楼 时间: 2014-11-17 14:25
O(∩_∩)O哈哈~好牛啊

作者: zpxiaodanke 时间: 2014-11-17 14:25
能不能用函数把整个人画出来啊？

作者: 模天大楼 时间: 2014-11-17 14:54
楼主，发一下代码呗，O(∩_∩)O~

作者: 模天大楼 时间: 2014-11-17 14:55
楼主，发一下代码呗，O(∩_∩)O~

作者: WSHXPY 时间: 2014-11-17 15:01
猥琐数学哪家强？数学中国找大师

作者: 只愛胡顏亂羽 时间: 2014-11-17 20:26
也是蛮醉的。。。。

作者: liwenhui 时间: 2014-11-17 21:01
有意思。呵呵

作者: 木北 时间: 2014-11-18 18:59
膜拜啊，《数学之美》

作者: 木北 时间: 2014-11-18 19:00
膜拜啊，《数学之美》

作者: 林灵锋 时间: 2014-11-18 23:50
膜拜！！想知道这是怎么得出来的方程式？

作者: 方程equation 时间: 2014-11-19 15:22

方程equation 发表于 2014-11-17 04:35
我也用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
哈哈楼主也是太吊了。膜拜

作者: 方程equation 时间: 2014-11-25 07:41
用31#老师给的代码做的

Plot3D[
1/8
(6 Exp[-((2/3 Abs[x] - 1)^2
+ (2/3 y)^2) - 1/3 (2/3 y + 1/2)^3]
+ 2/3 Exp[-2.818^11 ((Abs[2/3 x] - 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[Sqrt[(Abs[x] - 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
这个猥琐

作者: 风中的漂流瓶 时间: 2015-3-3 11:53
嘻嘻，不错，不错。学学

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)