製作3d表面

我有數據x和y當z=z1, z=z2 and z=z3。我想在三維圖上繪製數據並用三維曲面近似曲線，並瞭解曲面方程。這會更容易在R或Mathematica上實現嗎？例如，我怎麼能在R？感謝製作3d表面

數據（例如）：

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

來源

2012-09-05 jpcgandre

所以沒有真正建立起來回答「哪個更好/更容易/快/冷卻/大/做強」式的問題......因爲他們是天生充滿意見並可能隨時間而改變。例如，我每天都使用R，所以在R中這樣做幾乎肯定會對我更容易*。您是否可以修改您的問題以包含一些數據點並徵求他們在3D中的繪圖建議？然後，如果使用R或數學更容易，您可以爲自己的目的做出決定。 – Chase

編輯該問題並添加數據。 – jpcgandre

太棒了，祝你好運！ [這個問題]（http://stackoverflow.com/questions/1896419/plotting-a-3d-surface-plot-with-contour-map-overlay-using-r）對你來說可能是一個有用的起點，因爲它涉及到R. – Chase

在數學：

假設你有一個點集QT：

ListPointPlot3D[qt]

Mathematica graphics

你可以很容易地建立插值函數：

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

Mathematica graphics

如果你需要一個明確的功能模型，你可以提出一個並計算其參數：

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]]]

Mathematica graphics

編輯

它是f airly容易積漂亮的圖表：

Mathematica graphics

來源

2012-09-05 13:04:15

+1漂亮的圖形 –

@AlexBrown [發信至@Heike]（http://mathematica.stackexchange.com/a/4155/193） –

回答

相關問題