Зробіть 3D поверхню [closed] - r, 3d, wolfram-mathematica, геометричній поверхні

У мене є дані для x і y коли z=z1, z=z2 and z=z3. Я хотів би побудувати дані на 3-му графіку танаблизити криві з 3-ма поверхнею і знати рівняння поверхні. Чи буде це легше реалізовуватись на 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

Відповіді:

У математиці:

Припустимо, що у вас є набір точок 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]]]

Редагувати

І це досить легко скласти приємні графіки: