Wolfram Mathematica 如何把多個方程的每個方程任一組解代入到多項式求值?例如實數方程：NSolve[x^2 + y^2 - 10 - 3*m == 0 && 2 x + y == 2,{x,y},Reals,2]若令m={

$Wolfram Mathematica 如何把多個方程的每個方程任一組解代入到多項式求值?例如實數方程：NSolve[x^2 + y^2 - 10 - 3*m == 0 && 2 x + y == 2,{x,y},Reals,2]若令m={,第1張$

Wolfram Mathematica 如何把多個方程的每個方程任一組解代入到多項式求值?
例如實數方程：
NSolve[x^2 y^2 - 10 - 3*m == 0 && 2 x y == 2,{x,y},Reals,2]
若令m={2,3,4},表示上述是3個不相關的方程,得到它們的解
{{{x -> 2.5,y -> -3.1},{x -> -0.94,y -> 3.9}}
{{x -> 2.7,y -> -3.4},{x -> -1.1,y -> 4.2}}
{{x -> 2.9,y -> -3.7},{x -> -1.3,y -> 4.5}}
再從每行中任意取一組解組成一個表,如
{x,y}={{ 2.5,-3.1},{2.7,-3.4},{2.9,-3.7}}
如何得到這個表?
再把這3組解代入另一個關於x,y的多項式得到另一個表,如代入到x y中,即
x y={-0.6,-0.7,-0.8}
這個表又如何得到?

網友廻答：

$Wolfram Mathematica 如何把多個方程的每個方程任一組解代入到多項式求值?例如實數方程：NSolve[x^2 + y^2 - 10 - 3*m == 0 && 2 x + y == 2,{x,y},Reals,2]若令m={,第2張$
匿名網友

……學會使用Mathematica的列表操作啊.縂之這樣：
sol = NSolve[x^2 y^2 - 10 - 3*# == 0 && 2 x y == 2, {x, y}, Reals, 2] & /@ {2, 3, 4}
{x, y} /. Tuples@sol
x y /. Tuples@sol

db標簽