wolfram-mathematica - 在多个点评估函数

Question

我想在 (1,-2) 点评估 f[x,y]=-4 x + x^2 - 4 y - y^2; (2,-3); (3,-2); (2,-1)。

我尝试使用Outer但由于某种原因它没有给我实际值。帮助。

Answer 1

请记住，Mathematica 有一种定义函数的特定方式。在你的情况下，它会是f[x_,y_]:=-4 x + x^2 - 4 y - y^2. 然后你可以简单地使用f[1,-2]等。

Answer 2

也许考虑使用“纯”功能。例如：

-4 #1 + #1^2 - 4*#2 - #2^2 & @@@ {{1, -2}, {2, -3}, {3, -2}, {2, -1}}

给

{1, -1, 1, -1}

Answer 3

以下是主题的一些变化：

Clear[f]

f[{x_, y_}] := -4 x + x^2 - 4 y - y^2
points = {{1, -2}, {2, -3}, {3, -2}, {2, -1}};
Map[f, points]

{1, -1, 1, -1}

f[x_, y_] := -4 x + x^2 - 4 y - y^2
f[1, -2]

1

f = Function[{x, y}, -4 x + x^2 - 4 y - y^2];
f[1, -2]

1

Answer 4

您可以使用 和 之类Apply的Map函数来评估点列表中的函数，例如

f[x_, y_] := -4 x + x^2 - 4 y - y^2 

pts =  {{1, -2}, {2, -3}, {3, -2}, {2, -1}};

Apply[f, pts, {1}]

(* out: {1, -1, 1, -1} *)

或@@@用作简写Apply[ ...., {1}]

f @@@ pts