Re: Vertical Asymptote
- To: mathgroup at smc.vnet.net
- Subject: [mg29857] Re: [mg29831] Vertical Asymptote
- From: BobHanlon at aol.com
- Date: Sat, 14 Jul 2001 01:36:47 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2001/7/13 4:29:02 AM, Jan.Vuerinckx at Skynet.be writes:
>I am new to Mathematica and i try to plot the vertical asymptote at
>x=1/3 for
>Plot[{Sqrt[(x - 5)/(1 - 3x)], 1/3}, {x, 1/3, 5},
> PlotStyle -> {{RGBColor [0, 0, 0]}, {RGBColor [0, 0, 1]}}]
>
Needs["Graphics`Colors`"];
Plot[Sqrt[(x - 5)/(1 - 3x)], {x, 1/3, 5},
PlotStyle -> Red, PlotRange -> {-1/4, 8.75},
Epilog -> {Blue, AbsoluteDashing[{5, 5}], Line[{{1/3, 0}, {1/3, 8.75}}]}];
Bob Hanlon
Chantilly, VA USA