Plot3D[1/8 (3/2 Exp[-Exp[10] ((4y^2)/9+((2Abs[x])/3-1)^2)2]+Exp[-Exp[1] ((4y^2)/9+((2Abs[x])/3-1)^2)2]+8Exp[-(1/9)(4y2)-1/3 ((2y)/3+1/2)3-((2Abs[x])/3-1)2]+(5y)/3-(16x4)/81),{x,-2.5,2.5},{y,-2.5,2.5},Mesh->None,PlotPoints->60,MaxRecursion->3,PlotStyle->{RGBColor[0.85,0.7,0.8]},Axes->False,Lighting->Automatic ]

代码有误！！

Plot3D[ 1/8 (3/2 Exp[-Exp[10] ((4 y^2)/9+((2 Abs[x])/3-1)^2) ^2]+Exp[-Exp[1] ((4 y^2)/9+((2 Abs[x])/3-1)^2) ^2]+8 Exp[-(1/9) (4 y^2)-1/3 ((2 y)/3+1/2)^3-((2 Abs[x])/3-1)^2]+(5 y)/3-(16 x^4)/81),{x,-2.5,2.5},{y,-2.5,2.5},Mesh->None,PlotPoints->60,MaxRecursion->3,PlotStyle->{RGBColor[0.85,0.7,0.8]},Axes->False,Lighting->Automatic]

收藏

人才

可怕。。。

膜拜

土豪！10.0版花了多少大洋？

a = 1.2;
tu2 = Plot[a x^2 - 2 r/3, {x, -1.1, 1.1}];
tu3 = Plot[0.7 (x + 3.5 r)^2 - 0.8, {x, -2, 1}];
tu4 = Plot[0.7 (x - 3.5 r)^2 - 0.8, {x, 0, 2}];
r = 3/4;
tu1 = ParametricPlot[{{r Cos[t] - 1.2 r, r Sin[t]}, {r Cos[t] + 1.2 r,
r Sin[t]}}, {t, 0, 2 Pi}];
tu5 = Plot3D[0, {x, -2.2 r, 2.2 r}, {y, -0.8, 0},
RegionFunction ->
Function[{x, y,
z}, ((x + 1.2 r)^2 +
y^2 >= (r)^2) && (((x - 1.2 r)^2 + y^2 >= (r)^2)) && (y <
a x^2 - 2 r/3) && (y < 0.7 (x + 3.5 r)^2 - 0.8) && (y <
0.7 (x - 3.5 r)^2 - 0.8)], BoxRatios -> Automatic]; tu6 =
Plot3D[(-(x + 1.2 r)^2 - y^2 + (3/4)^2), {x, -2, 2}, {y, -1, 1},
RegionFunction ->
Function[{x, y,
z}, ((x + 1.2 r)^2 + y^2 <= (3/4)^2) && (y <=
a x^2 - 2 r/3) && (y <= 0.7 (x + 3.5 r)^2 - 0.8)],
BoxRatios -> Automatic];
tu7 = Plot3D[(-(x - 1.2 r)^2 - y^2 + (3/4)^2), {x, -2, 2}, {y, -1, 1},
RegionFunction ->
Function[{x, y,
z}, ((x - 1.2 r)^2 + y^2 <= (3/4)^2) && (y <=
a x^2 - 2 r/3) && (y <= 0.7 (x - 3.5 r)^2 - 0.8)],
BoxRatios -> Automatic];
tu8 = Show[tu5, tu6, tu7, PlotRange -> {{-3, 3}, {-2, 2}, {-1, 1}}];
tu9 = ParametricPlot3D[{{1.01 + r, 2 Cos[t],
0.8 Sin[t] - 0.75}, {-1.01 - r, 2 Cos[t],
0.8 Sin[t] - 0.75}}, {t, -3 Pi/5, 1.15 Pi/3}, {r, 0, 0.1},
Mesh -> False];
tu10 = ParametricPlot3D[{2 Cos[t], r, 1.1 Sin[t] - 0.6}, {t, 4.8 Pi/6,
Pi + 7.2 Pi/6}, {r, -0.8, -.2}];
Show[tu8, tu9, tu10, PlotRange -> {{-3, 3}, {-2, 2}, {-2, 1}}]

给楼主改成一个可调节的版本：
F[x_, y_, 罩杯_] :=
1/8 (罩杯/15 Exp[-Exp[10] ((4 y^2)/9 + ((2 Abs[x])/3 - 1)^2)^2] +
罩杯 Exp[-Exp[1] ((4 y^2)/9 + ((2 Abs[x])/3 - 1)^2)^2] +
罩杯 Exp[-(1/9) (4 y^2) -
1/3 ((2 y)/3 + 1/2)^3 - ((2 Abs[x])/3 - 1)^2] + (5 y)/
3 - (16 x^4)/81);
Manipulate[
Plot3D[F[x, y, 罩杯], {x, -3.5, 3.5}, {y, -3, 3}, Mesh -> None,
PlotPoints -> 60, MaxRecursion -> 3,
PlotStyle -> {RGBColor[0.85, 0.7, 0.8]}, Axes -> False,
Lighting -> Automatic], {{罩杯, 20}, 1, 200}]

本贴调出好多绅士。。。。。

我也来一个
f[x_] := Re[Sqrt[44^2 - x^2]/2];
g[x_, y_] := Re[Sqrt[44^2 - 4 ( x - 22)^2 - (y + 44)^2] (y/88)^2];
h[x_, y_] := Re[Sqrt[44^2 - 4 ( x + 22)^2 - (y + 44)^2] (y/88)^2];
k[x_, y_] :=
Re[Sqrt[30 - ( x - 22)^2 - (y + 74)^2] /5 +
Sqrt[10 - (x - 22)^2 - (y + 74)^2]];
l[x_, y_] :=
Re[Sqrt[30 - ( x + 22)^2 - (y + 74)^2] /5 +
Sqrt[10 - (x + 22)^2 - (y + 74)^2]];
z[x_, y_] := f[x] + g[x, y] + h[x, y] + k[x, y] + l[x, y];
Plot3D[z[x, y], {x, -44, 44}, {y, -95, 0}, PlotPoints -> 100,
ViewVertical -> {0, 1, 0}, ViewPoint -> {1.5, -2, 1.5},
Axes -> False, Boxed -> False]

。。。

人才太多
——枫林 东方の心绮楼欢迎各位萌新的加入。Q群165745906，这里是萌萌的⑨君≡￣﹏￣≡，快快交出节操来（雾）

@光热快更

果然很厉害，值得深入学习！