Mathematica 绘图求解结果
Mathematica Plotting Solve Results
Remove["Global`*"]
a = 0;
For[z = 0, z < 3, z++, Sol[a] = x /. Solve[z^2 + x == 10, x];
a = a + 1;]
我是 Mathematica 的新手，所以我正在试验每个循环中的 it.Answer 问题变化，所以我将它们存储在一个数组中。
我可以使用 Do[Print[Sol[a]], {a, 0, 2}]; 查看数字结果，但是我如何绘制我尝试使用 Plot[Sol[[a]], {a, 0, 2}] 但没有用的结果。
Remove["Global`*"]
func = z^2 + x == 10;
sol = Solve[func, x];
Plot[x /. sol, {z, 0, 3}]
Remove["Global`*"]
a = 0;
For[z = 0, z < 3, z++, Sol[a] = x /. Solve[z^2 + x == 10, x];
a = a + 1;]
我是 Mathematica 的新手，所以我正在试验每个循环中的 it.Answer 问题变化，所以我将它们存储在一个数组中。
我可以使用 Do[Print[Sol[a]], {a, 0, 2}]; 查看数字结果，但是我如何绘制我尝试使用 Plot[Sol[[a]], {a, 0, 2}] 但没有用的结果。
Remove["Global`*"]
func = z^2 + x == 10;
sol = Solve[func, x];
Plot[x /. sol, {z, 0, 3}]