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