(*     ファイルの入出力の練習                    *)  
  (*     FileName: "ExMultiListPlot.nb"         *)  
  (*     Date:  2005/08/12        aito           *)  

<<Graphics`MultipleListPlot`

lst1 = Table[Sin[2 * Pi * t/10], {t, 0, 20, 0.5}] ;

lst2 = Table[Cos[2 * Pi * t/10], {t, 0, 20, 0.5}] ;

MultipleListPlot[{lst1, lst2}, PlotJoined -> True]

[Graphics:HTMLFiles/ExMultiListPlot_5.gif]

- Graphics -

(* 注意 : あくまでリストプロットなので, 二つのx軸は同じでなければならない . *)

Created by Mathematica  (August 16, 2005) Valid XHTML 1.1!