Re: Arrows on axes?
- To: mathgroup at smc.vnet.net
- Subject: [mg27273] Re: [mg27278] Arrows on axes?
- From: BobHanlon at aol.com
- Date: Sun, 18 Feb 2001 02:52:09 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`Arrow`"];
Show[{Plot[Sin[x], {x, 0, 2Pi}, DisplayFunction -> Identity],
Graphics[{Arrow[{2Pi, 0}, {2.15Pi, 0}], Arrow[{0, 1.2}, {0, 1.3}]}]},
DisplayFunction -> $DisplayFunction];
DisplayTogether[Plot[Sin[x], {x, 0, 2Pi}],
Graphics[{Arrow[{2Pi, 0}, {2.15Pi, 0}], Arrow[{0, 1.2}, {0, 1.3}]}]];
Plot[Sin[x], {x, 0, 2Pi},
Epilog -> {Arrow[{2Pi, 0}, {2.15Pi, 0}], Arrow[{0., 1.2}, {0., 1.3}]},
PlotRange -> {{-0.15, 2.15Pi}, {-1.07, 1.3}}];
Bob Hanlon
In a message dated 2001/2/17 3:49:34 AM, lysov at paloma.spbu.ru writes:
>How to draw arrows at ends of axes?
>