1、【例1】2013年全国高中数学联赛
2、【Mathematica解法】代码如下:FunctionRange[{x, x - 4 Sqrt[y] == 2 Sqrt[x - y]}, y, x]
3、【例2】2012年全国高中数学联赛
4、【Mathematica解法】代码如下:MaxValue[{Sqrt[Abs[x - y]] + Sqrt[Abs[y - z]] + Sqrt[Abs[z - x]], 0 <= x <= 1, 0 <= y <= 1, 0 <= z <= 1}, {x, y, z}, Reals]