波

kuing

Plot3D[11 x Log10[x] Abs[y] (Abs[y] - 1) + Exp[-((25 x - 25/E)^2 + (25 Abs[y] - 25/2)^2)^3]/25, {x, 0, 1}, {y, -1, 1}, Mesh -> None, BoxRatios -> Automatic, ViewPoint -> {1, 1, 1}, ViewVertical -> {1, 0, 0}]

其妙

回复 1# kuing

其妙

kuing

还以为会没人理，没想到会有人去试……

kuing

再来一波，这个效果貌似更好些：
ParametricPlot3D[{3 (y^(1/(-0.15 Exp[-t/2.5] Sin[2 Pi/2.5 t] + 1)) Log[y]) Exp[-1.3 Abs[(1/4 Sqrt[1 + 16 (z)^2] - 1)]^2 ]
    - Exp[-4 ((18 y (-0.15 Exp[-t/2.5] Sin[2 Pi/2.5 t] + 1) - 18/E)^2 + (9 (1/4 Sqrt[1 + 16 (z)^2] - 1))^2)^2]/12 , z, y} /. t -> 0,
{y, 0, 1}, {z, -2, 2},
BoxRatios -> {1, 3.4, 1.7}, Boxed -> False, Axes -> None, Mesh -> None,
ColorFunction -> RGBColor[249/256, 202/256, 194/256 ],
PlotStyle -> Directive[RGBColor[249/256, 202/256, 194/256 ], Opacity[1],
Specularity[White, 20]], PerformanceGoal -> "Quality", PlotPoints -> 50, ViewPoint -> {-1, -1.7, .3}]

isee

回复 5# kuing


    还换个方向 。。。。。

hbghlyj

知乎—你写过哪些比较酷的十行以内的 Mathematica 代码？@AlephAlpha 的回答

1. Plot3D[15 x*Log10[x] y (y - 1) +
2.   Exp[-((25 x - 25/E)^2 + (25 y - 25/2)^2)^3]/25, {x, 0, 1}, {y, 0,
3.   1}, Mesh -> None, BoxRatios -> Automatic, ViewPoint -> {1, 1, 1},
4. ViewVertical -> {1, 0, 0}]

Copy the Code

Aluminiumor

🥰