Re: Graphing Abnormalities of Functions
- To: mathgroup at smc.vnet.net
- Subject: [mg29513] Re: [mg29499] Graphing Abnormalities of Functions
- From: BobHanlon at aol.com
- Date: Sat, 23 Jun 2001 01:46:54 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2001/6/22 2:32:00 AM, rrosario11 at my-deja.com writes:
>I am new to Mathematica 4.1 Student Edition. I am taking calculus and
>I noticed that many of the graphs in my textbook are credited to
>Mathematica. These graphs display holes in graphs as well as dotted
>lines for asymptotes.
>
>I have learned how to plot a function, but how can I also display
>abnormalities such as asymptotes and holes?
>
Needs["Graphics`Graphics`"];
Needs["Graphics`Colors`"];
Plot[1/(1-x), {x, 0, 2},
PlotRange -> {-101, 101},
PlotStyle -> Red];
DisplayTogether[
Plot[1/(1-x), {x, 0, 1},
PlotRange -> {-101, 101},
PlotStyle -> Red],
Plot[1/(1-x), {x, 1, 2},
PlotRange -> {-101, 101},
PlotStyle -> Red],
Graphics[{Blue,AbsoluteDashing[{5,10}],
Line[{{1, -100}, {1, 100}}]}]];
Plot[Tan[x], {x, 0, 4Pi},
Ticks -> {PiScale, Automatic},
PlotStyle -> Red];
DisplayTogether[
Table[
Plot[Tan[x],{x,n*Pi/2,(n+1)*Pi/2},
Ticks -> {PiScale, Automatic},
PlotRange -> {-33, 33},
PlotStyle -> Red],
{n, 0, 7}],
Graphics[{Blue,AbsoluteDashing[{5,10}],
Table[
Line[{{Pi/2+n*Pi,-33},{Pi/2+n*Pi,33}}],
{n, 0, 3}]}]];
Bob Hanlon
Chantilly, VA USA