Mathematica 训练课（9）-绘制分段函数曲线与填充图形

（1）对于分段函数的图形绘制，如下所示：

输入代码：

y = If[x >= 0, x - 1, x^2 + 5];
Plot[y, {x, -5, 5}]

得到如下图形：

（2)图形填充

增加一个函数，使得图形中呈现出空间区域：

（*定义一个函数*）
findArea[expr1_,expr2,x1_,x2_,d_,y0_]:=Block[{x3,y3,x4,y4}，Table[{x3,y3}=FindRoot[{expr1==