Re: axes with arrows
- To: mathgroup at smc.vnet.net
- Subject: [mg17692] Re: axes with arrows
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Fri, 21 May 1999 23:59:05 -0400
- References: <7i33hi$bce@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Robert Markus Wisniewski <Robert.Wisniewski at de.bosch.com> wrote in message news:7i33hi$bce at smc.vnet.net... > I will have the axes on the pictures with arrows, but I can't find the > command for this. > > Can anybody tell me, how to do it, or is Mathematica able to do it ? > > Thanks for help > > Robert > Robert, Here's a starter <<Graphics`Arrow` ArrowedAxes[gr_]:= Module[{pr,ao}, {pr,ao}= FullOptions[gr, {PlotRange, AxesOrigin}]; Show[gr, Epilog->{{Arrow[ao, {pr[[1,2]],ao[[2]]}], Arrow[ao, {ao[[2]],pr[[2,2]]}]}}] ] (I use Epilog so as not to enlarge the plot range) gr=Plot[Sin[x],{x,0,Pi}] ArrowedAxes[gr] Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565