在给定点的多维表面壁橱上的点

Question

我有一个多维表面，其方程为y = a1x1 ^ 2 + b1x1 + a2x2 ^ 2 + b2x2 + ... + anxn ^ 2 + bnxn + c。

现在，我需要将这个表面壁橱上的点指向给定点。

我希望我的问题措辞不会让你们太困惑，并提前感谢你们。

期待回复。

Answer 1

尝试二维和三维示例，以显示在Mathematica中执行此操作的一种方法。

p = {7, 2};
f = {x1, 2 x1^2 + 3 x1};
sol = NMinimize[Norm[p - f], Most[f], Method->"RandomSearch"][[2]];
q = f /. sol;
Print[q];
Show[Graphics[Line[{q, p}]], Plot[Last[f], {x1, -1, 1}]]

p = {7, 3, 2};
f = {x1, x2, 2 x1^2 + 3 x1 + x2^2 - 4 x2};
sol = NMinimize[Norm[p - f], Most[f], Method->"RandomSearch"][[2]];
q = f /. sol;
Print[q];
Show[Graphics3D[Line[{q, p}]], Plot3D[Last[f], {x1, -2, 2}, {x2, 0, 7}]]

概括为n维。