图1代码：
f[\[Alpha]_] = (2 - \[Alpha]^2)/(\[Alpha]*(2 - \[Alpha]));
g[\[Alpha]_] = (1 + \[Alpha] - \[Alpha]^2)/(
3*\[Alpha] - \[Alpha]^2 - 1); k[\[Alpha]_] = 1/(2*\[Alpha] - 1);
Quxian = Plot[f[\[Alpha]], {\[Alpha], 0.2, 1},
PlotStyle -> {AbsoluteThickness[3], Red}];
Quxian2 =
Plot[g[\[Alpha]], {\[Alpha], 0.2, 1},
PlotStyle -> {AbsoluteThickness[3], Blue}];
Quxian3 =
Plot[k[\[Alpha]], {\[Alpha], 0.2, 1},
PlotStyle -> {AbsoluteThickness[3], Yellow}];
Quyu31 = RegionPlot[
k[\[Alpha]] >= y >= f[\[Alpha]], {\[Alpha], 1/2, 1}, {y, 1, 5},
PlotStyle -> Blue];
Show[Quyu31, Axes -> Automatic, Frame -> True]
稍作变化，图2：
f[\[Alpha]_] = (2 - \[Alpha]^2)/(\[Alpha]*(2 - \[Alpha]));
g[\[Alpha]_] = (1 + \[Alpha] - \[Alpha]^2)/(
3*\[Alpha] - \[Alpha]^2 - 1); k[\[Alpha]_] = 1/(2*\[Alpha] - 1);
Quxian = Plot[f[\[Alpha]], {\[Alpha], 0.2, 1},
PlotStyle -> {AbsoluteThickness[3], Red}];
Quxian2 =
Plot[g[\[Alpha]], {\[Alpha], 0.2, 1},
PlotStyle -> {AbsoluteThickness[3], Blue}];
Quxian3 =
Plot[k[\[Alpha]], {\[Alpha], 0.2, 1},
PlotStyle -> {AbsoluteThickness[3], Yellow}];
Quyu31 = RegionPlot[k[\[Alpha]] >= y, {\[Alpha], 1/2, 1}, {y, 1, 5},
PlotStyle -> Blue];
Show[Quyu31, Axes -> Automatic, Frame -> True]
请问，图1中的蓝色部分后面的尾巴到哪里去了？谢谢！

你是来找茬的么得?
下限呢

这个问题其实还满常见的，主要出现在使用RegionPlot绘制带有尖角的区域的时候，解决方法嘛，传统上是增加MaxRecursion或者PlotPoints，此外版本10以后加了一大堆的有限元相关函数，应该可以有效改善这类问题的求解，不过我还在版本9，就不多说了。

f2[\[Alpha]_] = (-2 + \[Alpha]^2)/(-2 \[Alpha] + \[Alpha]^2);
f3[\[Alpha]_] = (-5 - 3 \[Alpha] + \[Alpha]^2 + \[Alpha]^3)/(-1 -
3 \[Alpha] - \[Alpha]^2 + \[Alpha]^3);
Quyu32se =
RegionPlot[(y <= f3[\[Alpha]] && y >= f2[\[Alpha]]), {\[Alpha], 0,
1}, {y, 1, 10}, PlotStyle -> Red];
f2 = Plot[f2[\[Alpha]], {\[Alpha], 0, 1}, PlotStyle -> Black];
f3 = Plot[f3[\[Alpha]], {\[Alpha], 0, 1}, PlotStyle -> Red];
Show[Quyu32se, f2, f3]
这个的结果中红色部分还有白色的，说明没有占满，也就是说画图不对。怎么办呢？是mathematica本身的问题，还是代码不对？我已经是mathematica 10.0了。谢谢！

这是RegionPlot采样率的问题, 增加采样点数即可
RegionPlot[(y <= f3[\[Alpha]] && y >= f2[\[Alpha]]), {\[Alpha], 0,
1}, {y, 1, 10}, PlotStyle -> Red, PlotPoints -> 50]
不要重复使用变量名

补原始问题及 @xzcry 的回答
这个其实和RegionPlot本身的采样算法有关
通常的线型图, 采样点基本是沿着一个轴向均匀分布的, 参见PlotPoints
Table[Plot[f[\[Alpha]], {\[Alpha], 1/2, 1}, PlotPoints -> n,
MaxRecursion -> 0], {n, 2, 10}]
g = Table[
Plot[f[\[Alpha]], {\[Alpha], 1/2, 1}, PlotPoints -> n,
MaxRecursion -> 0], {n, 2, 10}];
Cases[g, Line[a___] :> {a}, Infinity] /. {a_, b_} :> a //
MapIndexed[{First@
#2, Differences[#
1]} &, #, {2}] & //
Flatten[#, 1] & // TextGrid
基本是均匀采样
但是RegionPlot就不一样了
它的采样方式比较诡异
Table[RegionPlot[
k[\[Alpha]] >= y >= f[\[Alpha]], {\[Alpha], 1/2, 1}, {y, 1, 5},
PlotStyle -> Blue, PlotPoints -> n, MaxRecursion -> 0], {n, 2, 10}]
目测是遵循左上->右下的发展方向,大体保持一定的步长, 但是不同于Plot, 它不是对全区间均分(Plot可以发现步长在变短), 而是保持了稳定的步长逐渐扩展, 所以就出现了区间遗漏和破裂的情况