Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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




  • Prev by Date: Re: Plotting problem
  • Next by Date: Re: Plotting problem
  • Previous by thread: Re: Plotting problem
  • Next by thread: Re: Plotting problem