Mathematica：3D线框

Question

Mathematica是否支持hidden line removal线框图像？如果情况并非如此，那么有没有人遇到过这样的方法呢？让我们从这开始：

Plot3D[Sin[x+y^2], {x, -3, 3}, {y, -2, 2}, Boxed -> False]

要创建线框，我们可以这样做：

Plot3D[Sin[x+y^2], {x, -3, 3}, {y, -2, 2}, Boxed -> False, PlotStyle -> None]

我们可以做的一件事就是将所有表面着色为白色。然而，这是不希望的。原因是因为如果我们将这个隐藏的线框架模型导出为pdf，我们将拥有Mathematica用于渲染图像的所有白色多边形。我希望能够以pdf和/或eps格式获得隐藏线删除的线框。

---

UPDATE：

我已经发布了这个问题的解决方案。问题是代码运行速度很慢。在当前状态下，它无法在此问题中为图像生成线框。随意玩我的代码。我在帖子的末尾添加了一个链接。您还可以在此link

中找到代码

Answer 1

Answer 2

这不对，但有点有趣：

Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}, Boxed -> False, PlotStyle -> {EdgeForm[None], FaceForm[Red, None]}, Mesh -> False]

使用FaceForm为None时，不会渲染多边形。我不确定有没有办法用Mesh线做到这一点。