Maximaでgnuplotを使って複数のグラフを重ねて書きその上epsファイルを出力する

最近自分のなかでMaxima熱が再炎した。

plot2d( [1/(x-1),1-log(x-1)], [x, 1.0, 5.5],
    [gnuplot_preamble, "set zeroaxis; 
                        set xrange [1.0:5.5];
                        set yrange [0:6]"],
    [gnuplot_curve_styles, ["w l lt 1 lw 3","w l lt 2 lw 1" ] ],
    [gnuplot_term,ps],
    [gnuplot_out_file,"C:\\tekitou.eps"])$