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

```

• Prev by Date: Re: Importing binary files
• Next by Date: Re: Graphing Abnormalities of Functions
• Previous by thread: Re: Graphing Abnormalities of Functions
• Next by thread: RE: Re: Graphing Abnormalities of Functions