制作3d表面[关闭]答案

【问题标题】：Make 3d surface [closed]制作3d表面[关闭]
【发布时间】：2012-08-30 02:56:16
【问题描述】：

当z=z1, z=z2 and z=z3 时，我有x 和y 的数据。我想在 3d 图表上绘制数据并用 3d 曲面近似曲线并了解曲面方程。这会更容易在 R 或 Mathematica 上实现吗？例如，我怎样才能在 R 中做到这一点？谢谢

数据（示例）：

For z=0
y   0.00    1.50    1.92    2.24
x   0.0000  0.0537  0.0979  0.2492

For z=2
y   0.00    2.21    2.83    3.07
x   0.0000  0.0173  0.0332  0.0655

For z=5
y   0.00    0.29    2.49    3.56
x   0.0000  0.0052  0.0188  0.0380

【问题讨论】：

SO 并没有真正设置来回答“哪个更好/更容易/更快/更酷/更大/更强”类型的问题......因为它们本质上充满了意见并且可能会随着时间而改变。例如，我每天整天都在使用 R，所以在 R 中执行此操作几乎肯定会对我而言更容易。您能否修改您的问题以包含一些数据点并就在 3D 中绘制它们征求意见？然后，您可以根据自己的目的决定使用 R 还是数学更容易。
编辑问题并添加数据。
太好了，祝你好运！ This question 可能对您来说是一个有用的起点，因为它与 R 相关。

标签： r 3d wolfram-mathematica geometry-surface

【解决方案1】：

在数学中：

假设你有一组点 qt：

ListPointPlot3D[qt]

您可以轻松构建插值函数：

Plot3D[Interpolation[qt][x, y], {x, -2, 2}, {y, -2, 2}, Ealuated -> True]

如果你需要一个显式的函数模型，你可以提出一个并计算它的参数：

model = a x^2 + b y^2;
fit = FindFit[qt, model, {a, b}, {x, y}];
Show[Plot3D[model /. fit, {x, -2, 2}, {y, -2, 2}, PlotRange -> All], 
     ListPointPlot3D[qt, PlotStyle -> Directive[PointSize[Medium], Red]]]

编辑

绘制漂亮的图表相当容易：

【讨论】：

@AlexBrown Credit to @Heike