I = {0,1}
f(x,n) = 1 + sum [k = 1:n] ((I*x)**k)/k!

set macros
ALPH = '"ABCDEFGHIJKLMNOPQRSTUVWXYZ"'
alph = '"abcdefghijklmnopqrstuvwxyz"'

set term pslatex auxfile clip 10 size 4.8,3.6 
set out "fig_pslatex.tex"
unset key
set xrange [0:3*pi]
set yrange [-2:2]
set xlabel '\large 時間 [t]'
set ylabel '\large 強度関数 $f(x)$ [arb.]' off 1,0 
set label 1\
'$\frac{1}{\sqrt{\pi}}\int_0^{\infty}\frac{e^{-\beta{}t}}{1+t^2}\,dt$' at pi,1.5
set label 2 '\sffamily sffamily:'.@ALPH at 1,1
set label 3 '\sffamily sffamily:'.@alph at 1,0.8
set label 4 '\rmfamily rmfamily:'.@ALPH at 1,0.5
set label 5 '\rmfamily rmfamily:'.@alph at 1,0.3
set label 6 '\ttfamily ttfamily:'.@ALPH at 1,0.0
set label 7 '\ttfamily ttfamily:'.@alph at 1,-0.2
set label 8 '\bfseries bfseries:'.@ALPH at 1,-0.5
set label 9 '\bfseries bfseries:'.@alph at 1,-0.7
set label 10 '\Large\mcfamily 最後の夜だから　白いワインに' at 1,-1.1
set label 11 '\Large\gtfamily 紅いバラの花を浮かべて' at 1,-1.4

plot for [i = 1:5] j=5*i real(f(x,j)) lw 2
set out

! mkeps fig_pslatex.tex; gv fig_pslatex.eps
! convert -density 100 fig_pslatex.eps fig_pslatex.png