Re: Arrows on axes?

*To*: mathgroup at smc.vnet.net*Subject*: [mg27410] Re: Arrows on axes?*From*: vze295bp at verizon.net (David Reiss)*Date*: Sun, 25 Feb 2001 00:53:33 -0500 (EST)*Organization*: Scientific Arts*References*: <96ldi4$guc@smc.vnet.net> <96nv2k$jc7@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

In article <96nv2k$jc7 at smc.vnet.net>, "Allan Hayes" <hay at haystack.demon.co.uk> wrote: > Vitalij > Essentiall, find where the ends of the axes are and use the package > Graphics` Arrow` > > Here is an automation of this from my column How and Why in Mathematica in > Education and Research 8.4 > > Programming note: the package, Graphics`Arrow`, is loaded internally by the > function defined below, so we have to use the long name > Graphics`Arrow`Arrow .rather than just Arrow. This is because contexts are > assigned before evaluation, so Arrow would be given the current context, > usually "Global`", and would not access the package definitions (we would > get a message like when we enter Arrow before loading the package). > Options are passed on to Arrow. > > ArrowsOnAxes[gr_, opts___?OptionQ]:= > Module[{ox,oy,xmin, xmax,ymin,ymax, xst,yst}, > Needs["Graphics`Arrow`"]; > {{ox,oy},{{xmin, xmax},{ymin,ymax}},{xst,yst}}= > Last/@ > AbsoluteOptions[Graphics[gr], {AxesOrigin, PlotRange, AxesStyle}]; > Show[gr, > Prolog->{ > Append[xst, > Graphics`Arrow`Arrow[{xmin,oy}, {xmax,oy},opts]], > Append[yst, > Graphics`Arrow`Arrow[{ox,ymin}, {ox,ymax}, opts]]} > ] > ]; > > gr1=Plot[Sin[x],{x,0, 7}, > AxesStyle-> Hue[0]]; > > ArrowsOnAxes[gr1, HeadCenter\[Rule].7]; > > -- > 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 > > "Vitalij K. Lysoff" <lysov at paloma.spbu.ru> wrote in message > news:96ldi4$guc at smc.vnet.net... > > Hello, All! > > How to draw arrows at ends of axes? > > Also see my package ArrowExtended.m for a small generalization of the Mathematica package mentioned above. It is at: http://www.scientificarts.com/arrowextended.html --David -- ) Scientific Arts: http://www.scientificarts.com ) Creative Services and Consultation for the Applied ) and Pure Sciences:: David Reiss: dreiss at !SPAMscientificarts.com ) [Remove the !SPAM to send email]