As it currently stands, this question is not a good fit for our Q&A format. We expect answers to be supported by facts, references, or expertise, but this question will likely solicit debate, arguments, polling, or extended discussion. If you feel that this question can be improved and possibly reopened, visit the help center 指导。
8年前关闭。
当
我想在 3d 图形上绘制数据并用 3d 曲面近似曲线并知道曲面的方程。
这会更容易在 R 或 Mathematica 上实现吗？
例如，我如何在 R 中做到这一点？
谢谢
数据(示例):
您可以轻松构建插值函数:
如果你需要一个显式函数模型，你可以提出一个并计算它的参数:
编辑
绘制漂亮的图形相当容易:
8年前关闭。
当
x 时，我有 y 和 z=z1, z=z2 and z=z3 的数据。我想在 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
最佳答案
在 Mathematica 中:
假设你有一组点 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]]]
编辑
绘制漂亮的图形相当容易:
关于r - 制作 3d 曲面，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/12280582/
10-12 23:31