Date: 12 September 2013

x

y

g

xmin = -1
xmax = 5
ymin = -1
ymax = 5
f(x) = (((0.7 * (x - 1)) * (x - 2)) * (x - 4)) + x
fxmin = -1.0E100
fxmax = 1.0E100
f1 = Function(f, fxmin, fxmax)
xsubscriptdisplayed = If(Length[xsubscript] > 0, "_{" + xsubscript + "}", "")
ysubscriptdisplayed = If(Length[ysubscript] > 0, "_{" + ysubscript + "}", "")
ylabeldisplayed: "" + (LaTeX[ylabel]) + "" + (LaTeX[ysubscriptdisplayed]) + ""
xlabeldisplayed: "" + (LaTeX[xlabel]) + "" + (LaTeX[xsubscriptdisplayed]) + ""
xlabelwithsub: "" + (LaTeX[xlabel]) + "" + (LaTeX[xsubscriptdisplayed]) + ""
fred = If(fcolor ≟ "r", 0.9, If[fcolor ≟ "m", 1, If[fcolor ≟ "o", 1, If[fcolor ≟ "y", 0.9, 0]]])
fgreen = If(fcolor ≟ "g", 0.6, If[fcolor ≟ "c", 0.6, If[fcolor ≟ "o", 0.6, If[fcolor ≟ "y", 0.9, 0]]])
fblue = If(fcolor ≟ "b", 0.8, If[fcolor ≟ "c", 0.6, If[fcolor ≟ "m", 0.5, 0]])
griddx = 1
griddy = 1
gridx = Sequence(x = (i * griddx), i, ceil(xmin / griddx), floor(xmax / griddx))
gridy = Sequence(y = (i * griddy), i, ceil(ymin / griddy), floor(ymax / griddy))
showgrid = false