免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 发帖

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}]
分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
$\href{https://kuingggg.github.io/}{\text{About Me}}$

回复 5# kuing


    还换个方向 。。。。。

TOP

再来一波,这个效果貌似更好些:
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}]

TOP

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

TOP

1blog png图片.png
2015-1-23 23:49
妙不可言,不明其妙,不着一字,各释其妙!

TOP

回复 1# kuing

TOP

返回列表 回复 发帖