Hi Rohit,

OK. I finally got it to work. I have to say, however, Mathematica is a wonderful program, but they don't make doing this -- putting arrows at the ends of the curve -- very easy at all.

So thank you once again. You have been tremendously helpful to me.

Stanley

Hi Stanley,

Adding arrowheads to the ends of a function plot can also be done using Epilog. e.g.

f[x_] := x^2;

{min, max} = {-10, 10};

Plot[f[x], {x, min, max}, PlotRange -> All, GridLines -> Full, 
 AspectRatio -> 1, Frame -> True, FrameTicks -> None, Ticks -> None, 
 Epilog -> {Arrow[{{min, f[min]}, {min - 0.1, f[min - 0.1]}}], 
   Arrow[{{max, f[max]}, {max + 0.1, f[max + 0.1]}}]}]

If you want additional arrows for the axes as in the previous example, just add them to the Epilog list.

Hi Rohit,

Once again, just perfect. Thank you so much.

Stanley

Hi Rohit or anyone else,

I have a few brief followups, please:

• I don't want the numbers to show..

• I do want the axes to be shown in bold with arrows. I know that, to do this, the following code works: AxesStyle -> Arrowheads[0.05] But how do I get the axes to stick out a little farther so that the arrowheads stick out of the main portion of the graph?

• And finally, to print x and y, I know to do the following: AxesLabel -> {x, y} But how do I make those two letters show bolder?

Thank you.

Stanley

Stanley,

Something like this?

range = {-10, 10};
Plot[Null, {x, Sequence @@ range}, PlotRange -> {range, range}, GridLines -> Full, 
  AspectRatio -> 1, Frame -> True]