func[x_] := x^3-x+9999

func[x]

TeXForm[%] >> "expr.tex"

Plot[func[x],{x,-1,1}]

Export["graph.eps",%]