Ich habe Daten für x
und y
wann z=z1, z=z2 and z=z3
. Ich möchte die Daten auf einer 3D-Grafik darstellen undapproximiere die Kurven mit einer 3d Oberfläche und kenne die Gleichung der Oberfläche. Wird dies auf R oder Mathematica einfacher zu implementieren sein? Zum Beispiel wie kann ich es in R machen? Vielen Dank
Daten (Beispiel):
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
Antworten:
5 für die Antwort № 1In Mathematica:
Angenommen, Sie haben eine Menge von Punkten qt:
ListPointPlot3D[qt]
Sie könnten leicht eine Interpolationsfunktion erstellen:
Plot3D[Interpolation[qt][x, y], {x, -2, 2}, {y, -2, 2}, Ealuated -> True]
Wenn Sie ein explizites Funktionsmodell benötigen, können Sie eines vorschlagen und seine Parameter berechnen:
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]]]
Bearbeiten
Und es ist ziemlich einfach, schöne Graphen zu zeichnen: