Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: Plot a number line

  • To: mathgroup at smc.vnet.net
  • Subject: [mg79753] Re: Plot a number line
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Fri, 3 Aug 2007 06:33:23 -0400 (EDT)
  • Organization: The Open University, Milton Keynes, UK
  • References: <f8s1tv$1l$1@smc.vnet.net>

Diana wrote:
> Math folks,
> 
> I am trying to plot just an x axis number line with varying end
> points.
> 
> For example, I would like a number line with starting and ending
> arrows pointing to negative and positive infinity, with the numbers
> -10, -9, ..., 8, 9, 10 printed on the line. I would like just the tick
> marks at integer markings. This is meant to be a template for students
> to graph the solution set to an inequality on it.
> 
> Can someone help?
> 
> Thanks,
> 
> Diana M.
> 
> 

The following should help you started:

<< "Graphics`Arrow`"
Plot[0, {x, -11, 11}, Axes -> {Automatic, None},
   PlotRange -> {{-12, 12}, Automatic},
   Ticks -> {Range[-10, 10], None}, ImageSize -> 400,
   Epilog -> {Arrow[{11, 0}, {12, 0}],
     Arrow[{-11, 0}, {-12, 0}]}]

Regards,
Jean-Marc


  • Prev by Date: Integration with non-numeric parameters
  • Next by Date: Re: Ploting solution sets to compound inequalites
  • Previous by thread: Re: Plot a number line
  • Next by thread: Re: Mathematica And OpenOffice Calc