
mathematica如何将一个用Solve求的方程的解赋给一个变量 30
2个回答
展开全部
比如:
c = Solve[1 + 2 a - 2 a^2 + 2 a^3 == 100, a, Reals]
c = a /. c
Out[21]= {{a -> Root[-99 + 2 #1 - 2 #1^2 + 2 #1^3 &, 1]}}
Out[22]= {Root[-99 + 2 #1 - 2 #1^2 + 2 #1^3 &, 1]}
In[27]:= c = N[Solve[1 + 2 a - 2 a^2 + 2 a^3 == 100, a, Reals], 12]
c = N[a /. c , 12]
Out[27]= {{a -> 3.93799884805}}
Out[28]= {3.93799884805}
根比较多 就选[[x]]取代以后 你就可以用了
c = Solve[1 + 2 a - 2 a^2 + 2 a^3 == 100, a, Reals]
c = a /. c
Out[21]= {{a -> Root[-99 + 2 #1 - 2 #1^2 + 2 #1^3 &, 1]}}
Out[22]= {Root[-99 + 2 #1 - 2 #1^2 + 2 #1^3 &, 1]}
In[27]:= c = N[Solve[1 + 2 a - 2 a^2 + 2 a^3 == 100, a, Reals], 12]
c = N[a /. c , 12]
Out[27]= {{a -> 3.93799884805}}
Out[28]= {3.93799884805}
根比较多 就选[[x]]取代以后 你就可以用了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询