如何在mathematica中爲多個圖添加圖例？

我有代碼看起來像這樣如何在mathematica中爲多個圖添加圖例？

gx = n * k0 * (1 - ((n/a)^ beta) 
    Show[ 
    Plot[gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, {n, 0, 12}, PlotRange -> {{0, 12}, {0, 5}}, PlotLabels -> {"r0 = 0.5"}], 
    Plot[gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}, {n, 0, 12}, PlotRange -> {{0, 12}, {0, 5}}, PlotLabels -> {"r0 = 0.8"}] 
     ]

不過，我得到了一個標籤在另一個上面，並沒有明顯的標記。

或者，我試着用傳說

Show[ 
Plot[gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, {n, 0, 12}, PlotRange -> {{0, 12}, {0, 5}}], 
Plot[gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}, {n, 0, 12}, PlotRange -> {{0, 12}, {0, 5}}], 
PlotLegends -> {"beta = 5", "beta=0.5"} 
    ]

因我所得到，說不能在顯示

我如何能對這些工作有什麼建議，結合圖形對象的錯誤？

來源

2017-09-26 Ash

這裏顯示了三種變化。

gx = n*k0*(1 - ((n/a)^beta)); 

Show[ 
Plot[gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, {n, 0, 12}, 
    PlotRange -> {{0, 12}, Automatic}, PlotLabels -> {"beta = 5"}], 
Plot[gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}, {n, 0, 12}, 
    PlotRange -> {{0, 12}, Automatic}, PlotLabels -> {"beta=0.5"}]]

Plot[ 
{gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, 
    gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}}, 
{n, 0, 12}, PlotRange -> {{0, 12}, Automatic}, 
PlotLegends -> {"beta = 5", "beta=0.5"}]

Legended[Show[ 
    Plot[gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, {n, 0, 12}, 
    PlotStyle -> ColorData[97][1], PlotRange -> {{0, 12}, Automatic}], 
    Plot[gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}, {n, 0, 12}, 
    PlotStyle -> ColorData[97][2], PlotRange -> {{0, 12}, Automatic}]], 
LineLegend[ColorData[97] /@ {1, 2}, {"beta = 5", "beta=0.5"}]]

來源

2017-09-27 08:15:28

如何在mathematica中爲多個圖添加圖例？

回答

相關問題