Mathematica绘制求解结果 删除[“全局”*] a=0； 对于[z=0，z{0,0}]它计算解决方案列表，然后绘制它们绘图接受表达式列表，并在同一图形中绘制所有表达式。p只是用来告诉它你想在什么范围内进行绘图。AxesOrigin是可选的，如果忽略它，您可以看到绘图的不同之处。 Remove["Global`*"] func = z^2 + x == 10; sol = Solve[func, x]; Plot[x /. sol, {z, 0, 3}]

我是mathematica的新手，所以我正在试验它。问题的答案在每个循环中都会发生变化，所以我将它们存储在一个数组中。 我可以使用

Do[Print[Sol[a]]，{a，0，2}]查看数值结果但是我如何绘制我使用
plot[Sol[[a]]，{a，0，2}]
尝试过的结果，但是它不起作用

Remove["Global`*"]
a = 0;
For[z = 0, z < 3, z++, Sol[a] = x /. Solve[z^2 + x == 10, x]; 
 a = a + 1;]

尝试
Sol=Table[x/。求解[z^2+x==10，x]，{z，0,2}]；Plot[Sol，{p，0,5}，AxesOrigin->{0,0}]
它计算解决方案列表，然后绘制它们<代码>绘图

接受表达式列表，并在同一图形中绘制所有表达式。

p

只是用来告诉它你想在什么范围内进行绘图。

AxesOrigin

是可选的，如果忽略它，您可以看到绘图的不同之处。

Remove["Global`*"]
func = z^2 + x == 10;
sol = Solve[func, x];
Plot[x /. sol, {z, 0, 3}]