Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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

• References:
  • How to remove, change the assymptotic lines?
    • From: Jose Capco <jcapco@mathematik.uni-ulm.de>