要点：

1、一个窗口，/current；

2、多个曲线的排列布局，layout关键字，参数[行，列，当前图索引]

直接上代码和效果图：

pro test_multi_plot_fun

 ;

 a = sin(findgen(200)/10)

 b = cos(findgen(200)/10)

 ;

 w = WINDOW(WINDOW_TITLE="Multi Show Window")

 for i=0,3L do begin

   for j=0,3L do begin

     if j Mod 2 then c = a else c =b      

     p = plot(c,/current,$

       layout=[4,4,i*4+j+1], $

       color = byte([randomu(e,/long),randomu(f,/long),randomu(g,/long)]))

   endfor    

 endfor

 w.save,'c:tempd.png'

end