Revisions to Background color depending on external function value on the same plot

deleted 33 characters in body

Source Link

edited Mar 20, 2023 at 2:34

84.1k
6
97
179

Plot.

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, Hue[g@x]]ColorData["TemperatureMap"][g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]

ListPlot+ Joined -> True

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
data = Table[{x, f[x]}, {x, 0, 2, .1}];
ListPlot[{data, data}, Joined -> True, 
 ColorFunction -> Function[{x, y}, Hue[g@x]]ColorData["TemperatureMap"][g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> ListPlot[data, PlotStyle -> White, Joined -> True][[1]]]

ListPlot+ Joined -> False

Plot.

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]

ListPlot+ Joined -> True

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
data = Table[{x, f[x]}, {x, 0, 2, .1}];
ListPlot[{data, data}, Joined -> True, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> ListPlot[data, PlotStyle -> White, Joined -> True][[1]]]

ListPlot+ Joined -> False

Plot.

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, ColorData["TemperatureMap"][g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]

ListPlot+ Joined -> True

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
data = Table[{x, f[x]}, {x, 0, 2, .1}];
ListPlot[{data, data}, Joined -> True, 
 ColorFunction -> Function[{x, y}, ColorData["TemperatureMap"][g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> ListPlot[data, PlotStyle -> White, Joined -> True][[1]]]

ListPlot+ Joined -> False

added 55 characters in body

Source Link

edited Mar 19, 2023 at 14:51

cvgmt

84.1k
6
97
179

Plot.

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]

ListPlot+ Joined -> True

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
data = Table[{x, f[x]}, {x, 0, 2, .1}];
ListPlot[{data, data}, Joined -> True, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> ListPlot[data, PlotStyle -> White, Joined -> True][[1]]]

ListPlot+ Joined -> False

Plot.

Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]

ListPlot+ Joined -> True

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
data = Table[{x, f[x]}, {x, 0, 2, .1}];
ListPlot[{data, data}, Joined -> True, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> ListPlot[data, PlotStyle -> White, Joined -> True][[1]]]

ListPlot+ Joined -> False

Plot.

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]

ListPlot+ Joined -> True

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
data = Table[{x, f[x]}, {x, 0, 2, .1}];
ListPlot[{data, data}, Joined -> True, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> ListPlot[data, PlotStyle -> White, Joined -> True][[1]]]

ListPlot+ Joined -> False

added 215 characters in body

Source Link

edited Mar 19, 2023 at 14:44

cvgmt

84.1k
6
97
179

Maybe similar with this.

Plot.

Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]

ListPlot+ Joined -> True

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
data = Table[{x, f[x]}, {x, 0, 2, .1}];
ListPlot[{data, data}, Joined -> True, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> ListPlot[data, PlotStyle -> White, Joined -> True][[1]]]

ListPlot+ Joined -> False

Maybe similar with this.

Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]

Plot.

Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]

ListPlot+ Joined -> True

f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
data = Table[{x, f[x]}, {x, 0, 2, .1}];
ListPlot[{data, data}, Joined -> True, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> ListPlot[data, PlotStyle -> White, Joined -> True][[1]]]

ListPlot+ Joined -> False

Source Link

created Mar 19, 2023 at 14:16

cvgmt

84.1k
6
97
179

Loading

Stack Exchange Network

Return to Answer