Hallo,
hm, das sieht aber sehr nach einer Hausaufgabe aus ...
wie wärs mit
data = Flatten[Table[(xx = x + 0.5*Random[]; yy = y +
0.5*Random[]; {x, y, xx + yy - 4}), {x, -10,
10, 5}, {y, -10, 10, 5}], 1];
FindFit[data, a*x + b*y - d, {a, b, d}, {x, y}]
und weil z==a*x + b*y + d
ist c-> -1
Gruss
Jens
Walter Snor wrote:
Ich möchte gerne eine Ausgleichsebene durch einen Satz von 3D-Punkten
(gegeben jeweils durch ihre x,y und z -Koordinaten) legen; d.h. ich
suche die Koeffizienten A,B,C und D der Ebenengleichung :
Ax + By + Cz=D
Da ich blutiger Mathematica Anfänger bin, ersuche ich um möglichst
genaue Anweisungen, wie diese Bestimmung durchzuführen ist.
Vielen Dank im Voraus!
Walter