       Re: How to remove, change the assymptotic lines?

• To: mathgroup at smc.vnet.net
• Subject: [mg28751] Re: [mg28733] How to remove, change the assymptotic lines?
• From: Maryvonne Teissier <my.teissier at cybercable.fr>
• Date: Fri, 11 May 2001 20:00:30 -0400 (EDT)
• References: <200105110738.DAA19476@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Bonjour,

Here is a solution,  not very elegant, but efficient.

eps=10^-6;g1=Plot[Tan[x],{x,-Pi,-Pi/2-eps}];
g2=Plot[Tan[x],{x,-Pi/2+eps,Pi/2-eps}];g3=Plot[Tan[x],{x,Pi/2+eps,Pi}];
Show[g1,g2,g3];

You can use DisplayFunction
in order to avoid the drawings of g1, g2, g3 one by one. That gives

eps=10^-6;g1=Plot[Tan[x],{x,-Pi,-Pi/2-eps},DisplayFunction->Identity];
g2=Plot[Tan[x],{x,-Pi/2+eps,Pi/2-eps},DisplayFunction->Identity];
g3=Plot[Tan[x],{x,Pi/2+eps,Pi},DisplayFunction->Identity];
Show[{g1,g2,g3},DisplayFunction->\$DisplayFunction];

Sincerely,
Maryvonne Teissier

Jose Capco a *crit :

> Dear NG,
>
> I wish to plot the tangent function, but when I use Plot[Tan[x],{x,-Pi,Pi}], I
> get the function with solid assymptotic line. Is there any way I could remove
> or change the assymptotic lines?
>
> Sincerely,
> Jose Capco

```

• Prev by Date: Converting {{a,b},{c,d}} to just {a,b},{c,d} (no enclosing parens) ?
• Next by Date: Re: How to make curved arrows?
• Previous by thread: How to remove, change the assymptotic lines?
• Next by thread: Re: How to remove, change the assymptotic lines?