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