Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2001

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

Search the Archive

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?