I want to place the equation on the plot. I make macros so it is easier to create plots. In this case y=x^3, with domain between [-5,5], and range between [-25, 25] The below script allows the user to enter the function and domain and range, and have the graph be generated automatically. This is just a small portion of the whole script.
The question is how to add a text version of the equation to the graph, and still use this template structure. I was able to do it with version 6, but not with version 7.
xL = -5
xR = 5
yT = 25
yB = -25
t = x^3
pp = Plot[Evaluate[t], {x, xL, xR}]
This is the complete script
clear[GraphSize]
clear[Tg]
clear[Te]
clear[Wg]
clear[We]
clear[Shifte]
clear[Sidee]
clear[xL]
clear[xR]
clear[yT]
clear[yB]
clear[t]
Null
Null
Null
Null
Null
Null
Null
Null
Null
Null
Null
Null
Null
GraphSize = 185
Tg = 6
Te = 6
Wg = Bold
We = Bold
Shifte = 0
Sidee = -1
Tope = 1
xL = -5`
xR = 5`
yT = 25
yB = -25
t = x^3
pp = Plot[Evaluate[t], {x, xL, xR},
BaseStyle -> {FontSize -> Tg, FontWeight -> Wg},
ImageSize -> {GraphSize, Automatic}, AspectRatio -> 1/1,
Ticks -> {{xL, xL + (xR - xL)/10, xL + 2 (xR - xL)/10,
xL + 3 (xR - xL)/10, xL + 4 (xR - xL)/10, xL + 5 (xR - xL)/10,
xL + 6 (xR - xL)/10, xL + 6 (xR - xL)/10, xL + 7 (xR - xL)/10,
xL + 8 (xR - xL)/10, xL + 9 (xR - xL)/10, xR}, {yB,
yB + (yT - yB)/10, yB + 2 (yT - yB)/10, yB + 3 (yT - yB)/10,
yB + 4 (yT - yB)/10, yB (yT - yB)/10, yB + 6 (yT - yB)/10,
yB + 7 (yT - yB)/10, yB + 8 (yT - yB)/10, yB (yT - yB)/10, yT}},
GridLines -> {{xL, xL + (xR - xL)/10, xL + 2 (xR - xL)/10,
xL + 3 (xR - xL)/10, xL + 4 (xR - xL)/10, xL + 5 (xR - xL)/10,
xL + 6 (xR - xL)/10, xL + 6 (xR - xL)/10, xL + 7 (xR - xL)/10,
xL + 8 (xR - xL)/10, xL + 9 (xR - xL)/10, xR}, {yB - yB/100,
yB + (yT - yB)/10, yB + 2 (yT - yB)/10, yB + 3 (yT - yB)/10,
yB + 4 (yT - yB)/10, yB + 5 (yT - yB)/10, yB + 6 (yT - yB)/10,
yB + 7 (yT - yB)/10, yB + 8 (yT - yB)/10, yB + 9 (yT - yB)/10,
yT}}, GridLinesStyle -> Directive[Gray, Thin],
AxesStyle -> Arrowheads[{-0.05, 0.05}], AxesLabel -> {"x", "y"},
AxesOrigin -> {0, 0}, PlotRange -> {yB, yT},
PlotStyle -> RGBColor[1, 0, 1]] /.
Line[x_] -> {Arrowheads[{-.05, .05}], Arrow[x]}
Export["F:\\OneEquation.eps", pp, "EPSTIFF"]