(*
	sample-20161122.nb
	2016/11/22
    Mathematica で計算した式を TeX 形式でファイルに保存する
		ファイルへの式の出力は Put を利用する
		出力するときに、TeX の形式にするために、TeXFrom を利用する
    Mathematica で描画した図を epsf 形式でファイルに保存する
		ファイルへの式の出力は Export を利用する
	保存されたファイルは、「ドキュメント」の下に保存される
		このファイルは、C:/usr/tex/20161122/sample-20161122 に移動する必要がある
*)

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]

Put[TeXForm[v1],"expr.tex"]

Export["graph.eps",v2]

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

f[x]

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

TeXForm[%]

Put[TeXForm[%%],"expr.tex"]

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

Export["graph.eps",%]