RE: Plotting problem
- To: mathgroup at smc.vnet.net
- Subject: [mg35347] RE: Plotting problem
- From: David Turner <dturner at faulkner.edu>
- Date: Tue, 9 Jul 2002 06:48:04 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Steven,
The text "Preparing for Calculus Using Mathematica: A Laboratory Approach"
by Barry Cherkas contains a Mathematica graphing package which will graph
rational functions, including holes and asymptotes. The following code
produces a graph of the line 3x-2 with a hole at x=1:
RationalGraph[(3*x^2-5*x+2)/(x-1),{x,-1,2},Hole->{AbsolutePointSize[6]},
Rim->{AbsolutePointSize[8]}]
David
-----Original Message-----
From: Steven Hodgen
To: mathgroup at smc.vnet.net
Subject: [mg35347] Plotting problem
Hello,
I'm a total Mathematica newbie, and I'm trying to get it to plot a
simple
rational eq. in such a way that it indicates where missing points are.
Since I'm not sure how you'd prefer the eq. expressed, I've typed in in
the
parents so there can be no question of where the denominator is, as well
as
a cell expression.
(3 x^2 - 5 x + 2)/(x - 1)
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"3",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"5", "x"}], "+", "2"}],
RowBox[{"x", "-", "1"}]]], "Input"]
When I Plot[], this is just draws a straight line. There is no
indication
where the hole is. How can I get this "fully correct" graph?
Thanks
--Steven