[情報] 使用數個參數分別畫圖

看板Mathematica作者bonus1123 (bonus)時間10年前 (2014/07/30 15:42)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

不好意思又要麻煩各位先進，一陣子沒用 MATHEMATICA 真的生疏到一個不像話境界... 目前在從事的工作是這樣的，將方程式代不同的參數值然後畫圖出來；我的問題是橫坐標的設定問題，因為我的橫坐標有效的參數範圍是計算出來的。簡單來說，整個流程大概是這樣: 參數代入--> 數個方程式求值--> 畫出目標函數，橫軸參數有效範圍由兩個方程式決定。現在碰到的問題是，我如果直接用方程式當成橫軸的上下界， MATHEMATICA 會說：Plot::plln: ".....省略" is not a machine-size real number 這是要我把橫軸上下界改成固定數的意思吧....可是我如果一次只設定一個參數的話，橫軸的上下界一樣打上方程式，這個圖是可以畫的。另外的問題是因為我代入五組參數值，所以我希望看到五個圖；但如果我把橫坐標區間改成固定的值的話，我會得到一個上面有五條線的圖... 不好意思麻煩各位，請問能不能給點提示呢？謝謝! 以下是我目前打出來的東西。 Clear["Global`*"] f[ta_] := ta data = {f[#]} & /@ Range[1.7, 2.2, 0.1] {\[Alpha], \[Rho], \[Phi], \[Mu], a, ta, tm} = {0.7, 0.5, 0.5, 0.05, 0.4, data, 2.2} h = a (1 - \[Phi]) (ta*tm)^(\[Alpha]) + (1 - a)*\[Phi]*(1 - \[Mu])* ta - 1 h/(2 h + 1) i = \[Alpha] (1 - \[Rho])/(1 - \[Alpha] (1 - \[Rho])) \[Beta] = 1 - \[Alpha] \[Sigma] = 1/(1 - \[Rho]) T = ((tm)^(\[Alpha] + \[Sigma] - 1))/((ta)^(\[Beta] + \[Sigma] - 1)) Plot [{0.5 (1/k - 1/h)*((T - 1) ((ta - 1)*i + ta (1 - \[Phi] + \[Phi]*\[Mu])) - ((1 - \[Mu])*\[Phi]*ta - 1) ((tm)^(2 (\[Sigma] - 1)) - T)), ((tm)^(2 (\[Sigma] - 1)) - T - (T - 1) (ta + i (ta + 1)))}, {k, h/(2 h + 1), h}, Axes -> True, AxesLabel -> {"k", "f(k), g(k)"}] 再次感謝各位願意閱讀此文章。 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.109.122.132 ※ 文章網址: http://www.ptt.cc/bbs/Mathematica/M.1406706131.A.9A8.html ※ 編輯: bonus1123 (140.109.122.132), 07/30/2014 16:13:52