Perhaps this is what you are looking for.
minSin[x_] := Sin[x] /; Sin[x] < Cos[x]
minCos[x_] := Cos[x]Sin[x]
minCos[x_] /; Sin[x] > Cos[x]
maxSin[x_] := Sin[x]Cos[x]
maxSin[x_] /; Sin[x] > Cos[x]
maxCos[x_] := Cos[x]Sin[x]
maxCos[x_] /; Sin[x] < Cos[x] := Cos[x]
Plot[{minSin[x], maxSin[x], minCos[x], maxCos[x]}, {x, 0, 2 \[Pi]π},
PlotStyle ->
{{Blue, Thickness[0.02]}, {Blue, Thickness[0.01]},
{Red, Thickness[0.02]}, {Red, Thickness[0.01]}}]
Perhaps this is what you are looking for.
minSin[x_] := Sin[x] /; Sin[x] < Cos[x]
minCos[x_] := Cos[x] /; Sin[x] > Cos[x]
maxSin[x_] := Sin[x] /; Sin[x] > Cos[x]
maxCos[x_] := Cos[x] /; Sin[x] < Cos[x]
Plot[{minSin[x], maxSin[x], minCos[x], maxCos[x]}, {x, 0, 2 \[Pi]},
PlotStyle ->
{{Blue, Thickness[0.02]}, {Blue, Thickness[0.01]},
{Red, Thickness[0.02]}, {Red, Thickness[0.01]}}]
Perhaps this is what you are looking for.
minSin[x_] /; Sin[x] < Cos[x] := Sin[x]
minCos[x_] /; Sin[x] > Cos[x] := Cos[x]
maxSin[x_] /; Sin[x] > Cos[x] := Sin[x]
maxCos[x_] /; Sin[x] < Cos[x] := Cos[x]
Plot[{minSin[x], maxSin[x], minCos[x], maxCos[x]}, {x, 0, 2 π},
PlotStyle ->
{{Blue, Thickness[0.02]}, {Blue, Thickness[0.01]},
{Red, Thickness[0.02]}, {Red, Thickness[0.01]}}]
This will workPerhaps this is what you are looking for.
Plot[{minSin[x_] := Sin[x], /; Sin[x] < Cos[x]},
minCos[x_] {x,:= 0,Cos[x] 2/; π},Sin[x] > Cos[x]
maxSin[x_] := PlotStyleSin[x] ->/; {Thickness[0.01],Sin[x] Thickness[0.02]},> Cos[x]
maxCos[x_] := ColorFunctionCos[x] ->/; (ColorData[97][1]Sin[x] &)]< Cos[x]
and so will this
Plot[{Sin[x]minSin[x], Cos[x]maxSin[x], minCos[x], maxCos[x]}, {x, 0, 2 π\[Pi]},
PlotStyle ->
{{ColorData[97][1]Blue, Thickness[0.02]}, {Blue, Thickness[0.01]},
{ColorData[97][1]Red, Thickness[0.02]}, {Red, Thickness[0.01]}}]
Both produce
I chose the coloring to be the default coloring for a plot with one curve. You can choose any color you like.
This will work
Plot[{Sin[x], Cos[x]}, {x, 0, 2 π},
PlotStyle -> {Thickness[0.01], Thickness[0.02]},
ColorFunction -> (ColorData[97][1] &)]
and so will this
Plot[{Sin[x], Cos[x]}, {x, 0, 2 π},
PlotStyle ->
{{ColorData[97][1], Thickness[0.01]}, {ColorData[97][1], Thickness[0.02]}}]
Both produce
I chose the coloring to be the default coloring for a plot with one curve. You can choose any color you like.
Perhaps this is what you are looking for.
minSin[x_] := Sin[x] /; Sin[x] < Cos[x]
minCos[x_] := Cos[x] /; Sin[x] > Cos[x]
maxSin[x_] := Sin[x] /; Sin[x] > Cos[x]
maxCos[x_] := Cos[x] /; Sin[x] < Cos[x]
Plot[{minSin[x], maxSin[x], minCos[x], maxCos[x]}, {x, 0, 2 \[Pi]},
PlotStyle ->
{{Blue, Thickness[0.02]}, {Blue, Thickness[0.01]},
{Red, Thickness[0.02]}, {Red, Thickness[0.01]}}]
This will work.
Plot[{Sin[x], Cos[x]}, {x, 0, 2 π},
PlotStyle -> {Thickness[0.01], Thickness[0.02]},
ColorFunction -> (ColorData[97][1] &)]
and so will this
Plot[{Sin[x], Cos[x]}, {x, 0, 2 π},
PlotStyle ->
{{ColorData[97][1], Thickness[0.01]}, {ColorData[97][1], Thickness[0.02]}}]
Both produce
I chose the color functioncoloring to usebe the default coloring for a single curve plot with one curve. You can choose any color you like.
This will work.
Plot[{Sin[x], Cos[x]}, {x, 0, 2 π},
PlotStyle -> {Thickness[0.01], Thickness[0.02]},
ColorFunction -> (ColorData[97][1] &)]
I chose the color function to use the default coloring for a single curve plot. You can choose any color you like.
This will work
Plot[{Sin[x], Cos[x]}, {x, 0, 2 π},
PlotStyle -> {Thickness[0.01], Thickness[0.02]},
ColorFunction -> (ColorData[97][1] &)]
and so will this
Plot[{Sin[x], Cos[x]}, {x, 0, 2 π},
PlotStyle ->
{{ColorData[97][1], Thickness[0.01]}, {ColorData[97][1], Thickness[0.02]}}]
Both produce
I chose the coloring to be the default coloring for a plot with one curve. You can choose any color you like.