Fill to the left of the y-axis only

up vote
3
down vote

favorite

I have the following code that produces a plot of a Normal distribution:

Plot[Table[PDF[NormalDistribution[ÃŽÂ¼, 3], x], ÃŽÂ¼, 4] // Evaluate, x, -15, 15, 
 Filling -> None, Axes -> True, True, Ticks -> None, 
 PlotStyle -> RGBColor[0.368417, 0.506779, 0.709798],
 RGBColor[0.880722, 0.611041, 0.142051]]

How do I fill to the left of the y-axis only?

edited 4 mins ago

kglr

168k8189392

asked 3 hours ago

user120911

46118

add a commentÂ |Â

up vote
3
down vote

favorite

I have the following code that produces a plot of a Normal distribution:

Plot[Table[PDF[NormalDistribution[ÃŽÂ¼, 3], x], ÃŽÂ¼, 4] // Evaluate, x, -15, 15, 
 Filling -> None, Axes -> True, True, Ticks -> None, 
 PlotStyle -> RGBColor[0.368417, 0.506779, 0.709798],
 RGBColor[0.880722, 0.611041, 0.142051]]

How do I fill to the left of the y-axis only?

edited 4 mins ago

kglr

168k8189392

asked 3 hours ago

user120911

46118

add a commentÂ |Â

up vote
3
down vote

favorite

I have the following code that produces a plot of a Normal distribution:

Plot[Table[PDF[NormalDistribution[ÃŽÂ¼, 3], x], ÃŽÂ¼, 4] // Evaluate, x, -15, 15, 
 Filling -> None, Axes -> True, True, Ticks -> None, 
 PlotStyle -> RGBColor[0.368417, 0.506779, 0.709798],
 RGBColor[0.880722, 0.611041, 0.142051]]

How do I fill to the left of the y-axis only?

edited 4 mins ago

kglr

168k8189392

asked 3 hours ago

user120911

46118

I have the following code that produces a plot of a Normal distribution:

Plot[Table[PDF[NormalDistribution[ÃŽÂ¼, 3], x], ÃŽÂ¼, 4] // Evaluate, x, -15, 15, 
 Filling -> None, Axes -> True, True, Ticks -> None, 
 PlotStyle -> RGBColor[0.368417, 0.506779, 0.709798],
 RGBColor[0.880722, 0.611041, 0.142051]]

How do I fill to the left of the y-axis only?

filling

edited 4 mins ago

kglr

168k8189392

asked 3 hours ago

user120911

46118

edited 4 mins ago

kglr

168k8189392

asked 3 hours ago

user120911

46118

edited 4 mins ago

kglr

168k8189392

edited 4 mins ago

kglr

168k8189392

edited 4 mins ago

kglr

168k8189392

asked 3 hours ago

user120911

46118

asked 3 hours ago

user120911

46118

asked 3 hours ago

user120911

46118

add a commentÂ |Â

2 Answers
2

active

oldest

votes

up vote
4
down vote

How about this:

 f[x_] := PDF[NormalDistribution[4, 3], x]

Show[Plot[f[x], x, -15, 15, Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051]], 
 Plot[f[x], x, -15, 0, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], 
 PlotRange -> All, Filling -> Axis]]

enter image description here

edited 1 hour ago

answered 2 hours ago

Okkes Dulgerci

3,3761616

add a commentÂ |Â

up vote
1
down vote

ConditionalExpression combined with the option Filling:

Plot[PDF[NormalDistribution[4, 3], x], ConditionalExpression[0, x <= 0], x, -15, 15, 
 Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], None, 
 Filling -> 1 -> 2]

enter image description here

Plot[Evaluate @ Append[Table[PDF[NormalDistribution[ÃŽÂ¼, 3], x], ÃŽÂ¼, 3, 4, 5],
 ConditionalExpression[0, x <= 0]] , x, -15, 15, 
 Filling -> 1 -> 4, 2 -> 4, 3 -> 4,
 Ticks -> None, 
 PlotStyle -> Append[ColorData[97] /@ 1, 2, 3, None], 
 PlotLegends -> ("[Mu] = " <> # & /@ "3", "4", "5")]

enter image description here

answered 9 mins ago

kglr

168k8189392

add a commentÂ |Â

Your Answer

StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\$","\$"]]);
);
);
, "mathjax-editing");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
convertImagesToLinks: false,
noModals: false,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);

);

draft saved

draft discarded

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f184688%2ffill-to-the-left-of-the-y-axis-only%23new-answer', 'question_page');

);

Post as a guest

Name

2 Answers
2

active

oldest

votes

2 Answers
2

active

oldest

votes

up vote
4
down vote

How about this:

 f[x_] := PDF[NormalDistribution[4, 3], x]

Show[Plot[f[x], x, -15, 15, Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051]], 
 Plot[f[x], x, -15, 0, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], 
 PlotRange -> All, Filling -> Axis]]

enter image description here

edited 1 hour ago

answered 2 hours ago

Okkes Dulgerci

3,3761616

add a commentÂ |Â

up vote
4
down vote

How about this:

 f[x_] := PDF[NormalDistribution[4, 3], x]

Show[Plot[f[x], x, -15, 15, Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051]], 
 Plot[f[x], x, -15, 0, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], 
 PlotRange -> All, Filling -> Axis]]

enter image description here

edited 1 hour ago

answered 2 hours ago

Okkes Dulgerci

3,3761616

add a commentÂ |Â

up vote
4
down vote

How about this:

 f[x_] := PDF[NormalDistribution[4, 3], x]

Show[Plot[f[x], x, -15, 15, Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051]], 
 Plot[f[x], x, -15, 0, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], 
 PlotRange -> All, Filling -> Axis]]

enter image description here

edited 1 hour ago

answered 2 hours ago

Okkes Dulgerci

3,3761616

How about this:

 f[x_] := PDF[NormalDistribution[4, 3], x]

Show[Plot[f[x], x, -15, 15, Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051]], 
 Plot[f[x], x, -15, 0, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], 
 PlotRange -> All, Filling -> Axis]]

enter image description here

edited 1 hour ago

answered 2 hours ago

Okkes Dulgerci

3,3761616

edited 1 hour ago

answered 2 hours ago

Okkes Dulgerci

3,3761616

answered 2 hours ago

Okkes Dulgerci

3,3761616

answered 2 hours ago

Okkes Dulgerci

3,3761616

add a commentÂ |Â

up vote
1
down vote

ConditionalExpression combined with the option Filling:

Plot[PDF[NormalDistribution[4, 3], x], ConditionalExpression[0, x <= 0], x, -15, 15, 
 Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], None, 
 Filling -> 1 -> 2]

enter image description here

Plot[Evaluate @ Append[Table[PDF[NormalDistribution[ÃŽÂ¼, 3], x], ÃŽÂ¼, 3, 4, 5],
 ConditionalExpression[0, x <= 0]] , x, -15, 15, 
 Filling -> 1 -> 4, 2 -> 4, 3 -> 4,
 Ticks -> None, 
 PlotStyle -> Append[ColorData[97] /@ 1, 2, 3, None], 
 PlotLegends -> ("[Mu] = " <> # & /@ "3", "4", "5")]

enter image description here

answered 9 mins ago

kglr

168k8189392

add a commentÂ |Â

up vote
1
down vote

ConditionalExpression combined with the option Filling:

Plot[PDF[NormalDistribution[4, 3], x], ConditionalExpression[0, x <= 0], x, -15, 15, 
 Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], None, 
 Filling -> 1 -> 2]

enter image description here

Plot[Evaluate @ Append[Table[PDF[NormalDistribution[ÃŽÂ¼, 3], x], ÃŽÂ¼, 3, 4, 5],
 ConditionalExpression[0, x <= 0]] , x, -15, 15, 
 Filling -> 1 -> 4, 2 -> 4, 3 -> 4,
 Ticks -> None, 
 PlotStyle -> Append[ColorData[97] /@ 1, 2, 3, None], 
 PlotLegends -> ("[Mu] = " <> # & /@ "3", "4", "5")]

enter image description here

answered 9 mins ago

kglr

168k8189392

add a commentÂ |Â

up vote
1
down vote

ConditionalExpression combined with the option Filling:

Plot[PDF[NormalDistribution[4, 3], x], ConditionalExpression[0, x <= 0], x, -15, 15, 
 Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], None, 
 Filling -> 1 -> 2]

enter image description here

Plot[Evaluate @ Append[Table[PDF[NormalDistribution[ÃŽÂ¼, 3], x], ÃŽÂ¼, 3, 4, 5],
 ConditionalExpression[0, x <= 0]] , x, -15, 15, 
 Filling -> 1 -> 4, 2 -> 4, 3 -> 4,
 Ticks -> None, 
 PlotStyle -> Append[ColorData[97] /@ 1, 2, 3, None], 
 PlotLegends -> ("[Mu] = " <> # & /@ "3", "4", "5")]

enter image description here

answered 9 mins ago

kglr

168k8189392

ConditionalExpression combined with the option Filling:

Plot[PDF[NormalDistribution[4, 3], x], ConditionalExpression[0, x <= 0], x, -15, 15, 
 Ticks -> None, 
 PlotStyle -> RGBColor[0.880722, 0.611041, 0.142051], None, 
 Filling -> 1 -> 2]

enter image description here

Plot[Evaluate @ Append[Table[PDF[NormalDistribution[ÃŽÂ¼, 3], x], ÃŽÂ¼, 3, 4, 5],
 ConditionalExpression[0, x <= 0]] , x, -15, 15, 
 Filling -> 1 -> 4, 2 -> 4, 3 -> 4,
 Ticks -> None, 
 PlotStyle -> Append[ColorData[97] /@ 1, 2, 3, None], 
 PlotLegends -> ("[Mu] = " <> # & /@ "3", "4", "5")]

enter image description here

answered 9 mins ago

kglr

168k8189392

answered 9 mins ago

kglr

168k8189392

answered 9 mins ago

kglr

168k8189392

answered 9 mins ago

kglr

168k8189392

add a commentÂ |Â

draft saved

draft discarded

draft saved

draft discarded

Post as a guest

Name

搜尋此網誌

mjhjmtu