在mathematica中绘制分段函数

Question

我想在mathematica中绘制分段函数。我使用了以下代码：

但结果是一片空白。我哪里错了？

Answer 1

您需要声明变量epsilon0。目前：

p[r_] := Piecewise[{{2/(\[Epsilon]0*r) + (3 r^2)/\[Epsilon]0, 
0 <= r <= 1}, {4 r/\[Epsilon]0, 1 <= r <= 2}, {16/(\[Epsilon]0*r),
 r >= 2}}]
Plot[p[r] /. \[Epsilon]0 -> 1, {r, 0, 4}, ExclusionsStyle -> {{Red, Dashed}, Blue}]

所以，使用

p[r] /. \[Epsilon]0 -> 1

您可以为[0]的任何值计算函数p [r]。在此示例中为1。