Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Axes with arrowheads !?

• To: mathgroup at smc.vnet.net
• Subject: [mg65598] Re: Axes with arrowheads !?
• From: Peter Breitfeld <phbrf at t-online.de>
• Date: Mon, 10 Apr 2006 02:31:18 -0400 (EDT)
• References: <e1ah86$1q0$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

luis.riegger at gmail.com schrieb:
> how can i do that !?!
>

I don't know, if this is good code, but it works:

Needs["Graphics`Arrow"]

Options[PfeileAnAchsen]=Options[Arrow];

SetOptions[PfeileAnAchsen,HeadCenter->0.7,HeadWidth->0.32];

PfeileAnAchsen::whoops=
"First argument of \"PfeileAnAchsen\" must have Head Graphics."

PfeileAnAchsen[pl_,(frac:(_?NumberQ):1/15),opts___?OptionQ]/;
      Head[pl]===Graphics||Message[PfeileAnAchsen::whoops]:=
Module[{x0,y0,xi,xf,yi,yf,xdelta,ydelta,xfarrow,yfarrow,prim,gopts,hcopt},
  hcopt=HeadCenter/.{opts}/.Options[PfeileAnAchsen];
  {{xi,xf},{yi,yf}}=PlotRange/.AbsoluteOptions[pl,PlotRange];
  {x0,y0}=AxesOrigin/.AbsoluteOptions[pl,AxesOrigin];
  xdelta=(xf-xi)frac;
  ydelta=(yf-yi)frac;;
  xfarrow=Arrow[{xf,y0}, {xf+xdelta,y0},HeadCenter->hcopt,opts];
  yfarrow=Arrow[{x0,yf}, {x0,yf+ydelta},HeadCenter->hcopt,opts];
  Show[
     Graphics[{xfarrow,yfarrow},
        PlotRange->{{xi,xf+xdelta},{yi,yf+ydelta}}],
        FullGraphics[pl /.Graphics[prim:{___},gopts_]:>
              Graphics[prim,Axes->True,gopts]],
        DisplayFunction->$DisplayFunction]
];

Now you may call it like this:

gr=Plot[Sin[x],{x,-Pi,2Pi}];
PfeileAnAchsen[gr]

or even

PfeileAnAchsen[Plot[Sin[x],{x,-Pi,2Pi},DisplayFunction->Identity]]


Gruss Peter
-- 
==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-==
Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de