pro batch_dqe dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.3Jun05\',temperature='160K',region=[100,900,400,900] dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.3Jun05\',temperature='160.0K',region=[100,900,400,900] dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.3Jun05\',temperature='180K',region=[100,900,400,900] dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.3Jun05\',temperature='140K',region=[100,900,400,900] dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.3Jun05\',temperature='200K',region=[100,900,400,900] dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.26May05\',temperature='160K',region=[100,900,400,900] dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.26May05\',temperature='160.0K',region=[100,900,400,900] dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.26May05\',temperature='180K',region=[100,900,400,900] dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.26May05\',temperature='140K',region=[100,900,400,900] dqe_reduce,testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.26May05\',temperature='200K',region=[100,900,400,900] ; make combined dqe plot with curves for many temperatures ; output device to frame buffer ; set plotting appearnace parameters ; set line and text characteristics for publication quality !P.CHARSIZE=8 !P.CHARTHICK=10. !X.THICK=20. !Y.THICK=20. !P.THICK=20. symsize=10. filenamecharsize=8. !P.TICKLEN=0.03 ; define forground and background colors white=255 black=0 set_plot, 'z' device, set_resolution=[4800,3200] device, set_font='Courier' testdir='\\rabbit\sipin\H1RG-022-SIPIN\cold1\dqe.3Jun05\' temperatures=['140K','160K','180K','200K'] files=testdir+'Results\'+'dqe_'+temperatures+'.txt' plot,[800,1200],[0,1],/nodata,ystyle=1,xtitle='Wavelength (nm)',ytitle='Normalized QE',background=white,color=black for i=0,n_elements(temperatures)-1 do begin readcol,files(i),wave,qe,nqe oplot,wave,nqe,psym=0,color=black xyouts,[(!x.crange(1)-!x.crange(0))*0.8+!x.crange],[(!y.crange(1)-!y.crange(0))*(0.8+0.05*i)+!y.crange],temperatures(i),color=black endfor jpgimg=tvrd() write_jpeg,testdir+'Results\dqe'+'_combined.jpg', congrid(jpgimg, 1280, 1024, /interp, /center), quality=100 end