Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2001

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

Search the Archive

Re: How to make 2D axis with arrows?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg28946] Re: How to make 2D axis with arrows?
  • From: drnews at NOSPAM--Scientificarts.com (David Reiss)
  • Date: Sat, 19 May 2001 22:28:05 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In article <9e024m$2v6 at smc.vnet.net>, Jose Capco
<jcapco at mathematik.uni-ulm.de> wrote:

> Dear NG,
> 
> I wish to know how one may able to plot a function, with arrows in the axis.
> Should I try the trick by the Graphics`Arrows` or is there some other way?
> (Also, how can I know what fonts are can/cannot be used .. is there any font
> list in Mathematica? I wish to try different fonts for AxesLabel and
> PlotLabel). Thanks in advance.
> 
> Sincerely,
> Jose Capco


The following is something I did for someone as a quick 
consulting project once.  Consider it as presented for 
free under the GNU public license...  Enjoy.



 Function definition: ToArrowAxes


The following, when executed will load the Graphics`Arrow` package and create 
the complete definition for the ToArrowAxes function




ClearAll[ToArrowAxes];

Needs["Graphics`Arrow`"];

Options[ToArrowAxes]=Options[Arrow];

ToArrowAxes::usage=
    "ToArrowAxes[graphic] takes the two-dimensional graphic given by \
\"graphic\" and places arrows at the ends of the axes. If the original \
graphic does not have axes then ToArrowAxes creates them. \n\n\
ToArrowAxes[graphic, fraction] makes the length of the arrows add to the \
length of the axes by the fraction \"fraction\" of graphic's original \
size.The default value of \"fraction\" is 1/20. \n\nToArrowAxes[graphic, \
fraction, opts] and ToArrowAxes[graphic, opts] pass the Arrow options to the \
arrows.";

ToArrowAxes::whoops=
    "The first argument to ToArrowAxes must be a two-dimensional graphic with \
the Head Graphics.";

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


Examples of use: ToArrowAxes




pl1 = Plot[x\^2\ Sin[x], {x, \(-2\), 4}, PlotRange \[Rule] All];
ToArrowAxes[pl1];
ToArrowAxes[pl1,1/4];
ToArrowAxes[pl1,1/4, HeadCenter\[Rule]0];
ToArrowAxes[pl1,1/4, HeadCenter\[Rule].5];

-- 
) 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]


  • Prev by Date: 3d Graphics problem
  • Next by Date: Re: Re: Creating graph with only a few data points
  • Previous by thread: How to make 2D axis with arrows?
  • Next by thread: ListPlot vs ListPlot3D