Re: Eliminating vertical lines in piecewise plot

• To: mathgroup at smc.vnet.net
• Subject: [mg110230] Re: Eliminating vertical lines in piecewise plot
• From: Helen Read <hpr at together.net>
• Date: Wed, 9 Jun 2010 07:21:18 -0400 (EDT)
• References: <hul8cf\$ig6\$1@smc.vnet.net>

```On 6/8/2010 7:09 AM, erkutsonmez wrote:
> Hi All,
>
> I am plotting a piecewise function. Mathematica is joining the step
> points with vertical lines. How can I get rid of these vertical lines
> which makes my plot ugly. I tried Exclusions option but did not help.
>
> To be more specific I have the following plot:
>
> Plot[Piecewise[{{1,
>      First[Max[EBProfit1server1years1per, EBProfit2server1years1per] -
> CONProfit1per]>  0}}, 0], {x, 0,
>    2}, PlotStyle ->  {{Black, Thickness[0.004]}},
>   AxesStyle ->  Directive[Thick, 24, Bold], AxesOrigin ->  {0, 0},
>   PlotPoints ->  10000, MaxRecursion ->  15, AspectRatio ->  Automatic]
>
> where EBProfit1server1years1per, EBProfit2server1years1per, and
> CONProfit1per are also predefined piecewise functions. When I run this
> plot I see that mathematica is joining the step points with vertical
> lines. How can I avoid these vertical lines.

It would help if you post a specific example that demonstrates the
behavior, that others can copy/paste into Mathematica and evaluate,
instead of having to try to come with their own example. I tried to
reproduce what you are talking about with Piecewise, and finally gave up.

Anyway, use Exclusions to exclude the step points.

f[x_] := Abs[x^2 - 4]/(x^2 - 4)

Plot[f[x], {x, -5, 5}]

Plot[f[x], {x, -5, 5}, Exclusions -> {-2, 2}]

--