Return to Answer

added 120 characters in body

Source Link

edited Oct 18, 2014 at 13:07

64.9k
3
65
154

EDIT

Thank you for comment from ybeltukov: Exclusions->None:

fun[b_, x_] := 1/(2 b)*(Abs[x]^2 - Max[Abs[x] - b, 0]^2)
ParametricPlot[Legended[ParametricPlot[{u, fun[a, u]}, {u, -2, 2}, {a, 0, 1}, 
  ColorFunction -> {ColorData["Rainbow"][#4] &}, PlotPointsExclusions -> 60]None, 
  ImageSize -> 500], BarLegend["Rainbow"]]

enter image description here

Experts may be able to assist in removing artifact and definitely improve. enter image description here

fun[b_, x_] := 1/(2 b)*(Abs[x]^2 - Max[Abs[x] - b, 0]^2)
ParametricPlot[{u, fun[a, u]}, {u, -2, 2}, {a, 0, 1}, 
 ColorFunction -> {ColorData["Rainbow"][#4] &}, PlotPoints -> 60]

enter image description here

Experts may be able to assist in removing artifact and definitely improve.

EDIT

Thank you for comment from ybeltukov: Exclusions->None:

fun[b_, x_] := 1/(2 b)*(Abs[x]^2 - Max[Abs[x] - b, 0]^2)
Legended[ParametricPlot[{u, fun[a, u]}, {u, -2, 2}, {a, 0, 1}, 
  ColorFunction -> {ColorData["Rainbow"][#4] &}, Exclusions -> None, 
  ImageSize -> 500], BarLegend["Rainbow"]]

enter image description here

Source Link

created Oct 18, 2014 at 12:55

ubpdqn

64.9k
3
65
154

fun[b_, x_] := 1/(2 b)*(Abs[x]^2 - Max[Abs[x] - b, 0]^2)
ParametricPlot[{u, fun[a, u]}, {u, -2, 2}, {a, 0, 1}, 
 ColorFunction -> {ColorData["Rainbow"][#4] &}, PlotPoints -> 60]

enter image description here

Experts may be able to assist in removing artifact and definitely improve.