Stanley,

Something like this?

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

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

Hi Rohit,

Once again, just perfect. Thank you so much.

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,

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