mathematicaで区分関数をプロットする

Question

mathematicaで区分関数をプロットする必要があります。私は、次のコードを使用：

をしかし、ブランクプロットになってしまいました。どこが間違っていますか？

Answer 1

変数ε0を指定する必要があります。現在：

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

は、あなたが任意の値の関数p [R]を算出することができます使用して

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}] 

ので、[イプシロン] 0。この例では1のためです。