1 2 345 / 5 页下一页

楼主: mcm-dlu-edu

这函数太美, 我不敢看...

[复制链接]

字体大小: 正常放大

方程equation

1 主题	8 听众	354 积分

升级 18%

TA的每日心情

	慵懒 2015-2-26 16:45

签到天数: 82 天

[LV.6]常住居民II

群组: 第六届国赛赛前冲刺培

31^#

发表于 2014-11-19 15:22 |只看该作者

|招呼Ta 关注Ta

方程equation 发表于 2014-11-17 04:35
我也用Mathematica调整了一下罩杯画了一个~

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

收起(1)

mcm-dlu-edu :试试这个
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
]

2014-11-19 22:43 回复

我也说一句

发表

使用道具举报

RUSSO

2 主题	10 听众	540 积分

升级 80%

TA的每日心情

	衰 2015-7-2 14:40

签到天数: 171 天

[LV.7]常住居民III

自我介绍: 一渣渣

群组: 国赛讨论

32^#

发表于 2014-11-19 16:33 |只看该作者 |招呼Ta 关注Ta |邮箱已经成功绑定

不忍直视=。=

我也说一句

发表

使用道具举报

残__泪

10 主题	14 听众	429 积分

升级 43%

TA的每日心情

	慵懒 2018-9-14 07:54

签到天数: 244 天

[LV.8]以坛为家I

群组: 2015SAS数据分析大赛

群组: Matlab讨论组

群组: 数学建模

群组: 第六届国赛赛前冲刺培

群组: 国赛讨论

33^#

发表于 2014-11-19 22:06 |只看该作者 |招呼Ta 关注Ta

哈哈，画面太美

我也说一句

发表

使用道具举报

小熊666

1 主题	13 听众	328 积分

升级 9.33%

TA的每日心情

	奋斗 2017-11-12 19:02

签到天数: 167 天

[LV.7]常住居民III

群组: 2016美赛交流群组

34^#

发表于 2014-11-19 22:56 |只看该作者 |招呼Ta 关注Ta

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

我也说一句

发表

使用道具举报

小熊666

1 主题	13 听众	328 积分

升级 9.33%

TA的每日心情

	奋斗 2017-11-12 19:02

签到天数: 167 天

[LV.7]常住居民III

群组: 2016美赛交流群组

35^#

发表于 2014-11-19 22:56 |只看该作者 |招呼Ta 关注Ta

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

我也说一句

发表

使用道具举报

方程equation

1 主题	8 听众	354 积分

升级 18%

TA的每日心情

	慵懒 2015-2-26 16:45

签到天数: 82 天

[LV.6]常住居民II

群组: 第六届国赛赛前冲刺培

36^#

发表于 2014-11-25 07:41 |只看该作者 |招呼Ta 关注Ta

用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
]