1
$\begingroup$

I have shown some plots by using Show and Plot together. The problem is that an extra blue line is created in the output which I can not remove it. This is my code:

v = 2;
tr = -2;
ro = 2;    
both = Plot[{v x/(-4 tr)}, {x, -20, 0}, AxesOrigin -> {0, 0}, Filling -> ro tr - 1, FillingStyle -> {Directive[Opacity[0.55], Blue]}, GridLines -> {None, {0.5}}];
bothh = Plot[{v x/(-4 tr)}, {x, -20, -16}, AxesOrigin -> {0, 0}, Filling -> ro tr, FillingStyle -> {Directive[Opacity[0.55], Blue]},GridLines -> {None, {0.5}}];
Show[both, bothh, PlotRange -> All, Axes -> True,LabelStyle -> Directive[Large, Black]]

Could anyone help me?

*By extra line I mean the line which is created between two regions

$\endgroup$
  • $\begingroup$ Use PlotStyle -> None in both and bothh? $\endgroup$ – kglr Sep 28 '17 at 15:27
  • $\begingroup$ It creates white points :( @kglr $\endgroup$ – Albert Nestler Sep 28 '17 at 15:32
  • $\begingroup$ or try Show[both, bothh, PlotRange -> All, Axes -> True, LabelStyle -> Directive[Large, Black]] /. Line[x_] :> Sequence[] $\endgroup$ – kglr Sep 28 '17 at 15:41
  • $\begingroup$ It still creates white points @kglr $\endgroup$ – Albert Nestler Sep 28 '17 at 16:04
1
$\begingroup$
Plot[Max[ ro tr, v x/(-4 tr)], {x, -20, 0}, AxesOrigin -> {0, 0}, 
 Filling -> ro tr - 1, FillingStyle -> Opacity[0.55, Blue], 
 GridLines -> {None, {0.5}}, PlotRange -> All, Axes -> True, 
 LabelStyle -> Directive[Large, Black], Exclusions -> None]

enter image description here

|improve this answer|||||
$\endgroup$
  • $\begingroup$ There is still a white line. $\endgroup$ – Albert Nestler Sep 28 '17 at 16:19
  • $\begingroup$ @Albert, could you try the updated version with Exclusions->None? $\endgroup$ – kglr Sep 28 '17 at 16:21
  • $\begingroup$ It works perfectly. Great answer! Thank you $\endgroup$ – Albert Nestler Sep 28 '17 at 16:51

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.