写出文档中图的mathematica程序

根据文档的内容，图1展示了劳动力储备 \( m \) 与收费水平 \( p(m) \)、工资水平 \( w(m) \) 和固定佣金比率 \( \alpha(m) \) 之间的关系。以下是这些关系的具体公式：

\[
p(m) = \frac{2 + 2m}{3 + 2m}
\]

\[
\alpha(m) = \frac{m^2 - 1}{3m + m^2}
\]

\[
w(m) = \frac{(m + 3)(3m + 1)}{(3m + m^2)(2 + 2m)}
\]

下面是一个使用 Mathematica 绘制这些关系的程序：

(* 定义函数 *)
p[m_] := (2 + 2*m)/(3 + 2*m)
alpha[m_] := (m^2 - 1)/(3*m + m^2)
w[m_] := (m + 3)*(3*m + 1)/((3*m + m^2)*(2 + 2*m))

(* 设置绘图范围 *)
mRange = {m, 1, 10};

(* 绘制收费水平 p(m) *)
pPlot = Plot[p[m], Evaluate@mRange, PlotStyle -> Blue, AxesLabel -> {"m", "p(m)"}, PlotLegends -> {"p(m)"}, PlotLabel -> "收费水平 vs. 劳动力储备"];

(* 绘制固定佣金比率 alpha(m) *)
alphaPlot = Plot[alpha[m], Evaluate@mRange, PlotStyle -> Red, AxesLabel -> {"m", "\[Alpha](m)"}, PlotLegends -> {"\[Alpha](m)"}, PlotLabel -> "固定佣金比率 vs. 劳动力储备"];

(* 绘制工资水平 w(m) *)
wPlot = Plot[w[m], Evaluate@mRange, PlotStyle -> Green, AxesLabel -> {"m", "w(m)"}, PlotLegends -> {"w(m)"}, PlotLabel -> "工资水平 vs. 劳动力储备"];

(* 将三个图合并 *)
combinedPlot = Show[pPlot, alphaPlot, wPlot, PlotRange -> All, ImageSize -> Large];

(* 显示合并后的图 *)
combinedPlot

这个程序首先定义了 \( p(m) \), \( \alpha(m) \), 和 \( w(m) \) 的函数，然后分别绘制了它们与 \( m \) 的关系图，并最后将这三个图合并在一起显示。你可以根据需要调整 `mRange` 来改变绘图的范围。