v1=Expand[(x+y)^3]

v2=Plot[{x,x^2,x^3},{x,-1,1}]

v1>>"v1out.txt"

<<"v1out.txt"

x=2

<<"v1out.txt"

y=1

<<"v1out.txt"

Clear[x]

<<"v1out.txt"

y=u+v+w

<<"v1out.txt"

Clear[y]

<<"v1out.txt"

TeXForm[v1]

TeXForm[v1]>>"expr.tex"

Export["graph.eps",v2]

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

f[x]

StringForm["f(x)=``",f[x]]

TeXForm[%]

TeXForm[%%]>>"expr.tex"

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

Export["graph.eps",%]