[問題] 新手畫圖以及一個小問題詢問
不好意思,我是剛使用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畫一個圖出來,看書跟網站都畫不出來,不知道怎麼設定,
不好意思寫得很亂,麻煩大家幫我解答>"<,謝謝!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.134.18.163