# Preventing an unwanted vertical line from appearing my plot

How can I eliminate (remove) the unwanted vertical line x = 1 when I make the plot shown below.

p3 =
Plot[
{0.5/(-0.1 x + 0.1),
0.04/(-0.004 x + 0.004),
1.359/(-0.08 x + 0.08),
Abs[0.5/(-0.1 x + 0.1)],
Abs[0.04/(-0.004 x + 0.004)],
Abs[1.359/(-0.08 x + 0.08)]},
{x, 0, 2},
PlotRange -> {{0, 2}, {0, 100}}] • I don't see any green line in V11.1.1
– Kuba
Jun 16 '17 at 12:56
• Look up Exclusions and/or search for same on this site. Jun 16 '17 at 13:00
• With Version 10 use Exclusions -> {x == 1}
– eldo
Jun 16 '17 at 13:06
• Exclusions -> 1 should do the trick. Jun 16 '17 at 13:07
• Before above users comments, I myself separated the one line for plot into two lines one with PlotRange from [0,0.9] other one with [1.1,2] after that used Show. But this trick is not as good as above suggested tricks by professional Mathematica developers Jun 16 '17 at 13:11

I can duplicate your problem with V10.4.0 but not with V11.1.1, so I think this is a bug that has been corrected.

Plot[
{0.5/(-0.1 x + 0.1),
0.04/(-0.004 x + 0.004),
1.359/(-0.08 x + 0.08),
Abs[0.5/(-0.1 x + 0.1)],
Abs[0.04/(-0.004 x + 0.004)],
Abs[1.359/(-0.08 x + 0.08)]},
{x, 0, 2},
PlotLegends -> "Expressions",
PlotRange -> {{0, 2}, {0, 100}}]


Gives with V10.4.0 and with V11.1.1