Wolfram mathematica Mathematica：如何获得3Dplot命令绘制的数据点？

我一直在使用几年前发布的关于如何从2D函数获取数据点的命令：

f = Sin[t];
plot = Plot[f, {t, 0, 10}]
points = Cases[
   Cases[InputForm[plot], Line[___], 
    Infinity], {_?NumericQ, _?NumericQ}, Infinity]; 

并将其导出到数据文件：

Export["data2/name_"<>ToString[N[index]]<>"&"<>ToString[N[a]]<>".dat",points1,"Table","FieldSeparators"->" "];

Export[“data2/name_u34; ToString[N[index]]”和“ToString[N[a]]”.dat”、points1、“Table”、“fieldseparator”->”；

然而，现在我必须将这个命令推广到3Dplot案例中，我试图查看有关案例和List3Dplot命令的文档，但不幸的是，我还没有弄清楚它。有人有什么建议吗？

---

我会非常感激的。谢谢

使用

案例

：

Flatten[Cases[
   InputForm@Normal@Plot3D[Sin[x y], {x, -1, 1}, {y, -1, 1}]  , 
   Polygon[x_, ___] -> x, Infinity], 1] // Union

使用

评估监视器

：

Reap[Plot3D[z = Sin[x y], {x, -1, 1}, {y, -1, 1}, 
   EvaluationMonitor :> Sow[{x, y, z}]]][[2, 1]];

此答案：二维问题的答案适用于

Plot3D

。（请注意我对此的评论）