不好意思,我是刚使用mathematica的新手,
我在计算以下问题时
sol := Solve[(1 - p)*p/(1 - t)*1/(w - ((p*\[Beta])/(1 - t))) ==
p*(1 - p/(1 - t))*1/(
w - (p*\[Beta])/(1 - t) + \[Beta] - d), \[Beta]]
sol2 := Solve[sol] /. {w -> 300, d -> 100, p -> 0.2}
sol3 := Solve[sol2] /.
t -> {0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9}
Solve[sol3]到了这一式时出现以下
Solve::naqs: {\[Beta]->-(((-1+t) (-d+d p+t w))/(-1+p+t))} is not a quantified system of equations and inequalities. >>
Solve::naqs: {\[Beta]->-(((-1+t) (-80.+300 t))/(-0.8+t))} is not a quantified system of equations and inequalities. >>
eneral::stop:
Power::infy: "Infinite expression 1/0. encountered."
可以请问大家一下如何解决这个?请问这是一个错误吗?
那个Infinite可以让它转成一个数字吗?
还有我想用求出来的Beta和t画一个图出来,看书跟网站都画不出来,不知道怎么设定,
不好意思写得很乱,麻烦大家帮我解答>"<,谢谢!