; IDL Version 7.1, Mac OS X (darwin x86_64 m64)
; Journal File for Bob@bob-computer.local
; Working directory: /Volumes/WD864/mhd48-5
; Date: Thu Mar 25 06:34:26 2010
 
journ
f=findfile('*.save')
print,f
;bb_h5_000.save bb_h5_485.save bb_h5_555.save bb_h5_643.save bb_h5_733.save bb_h5_788.save bb_h5_908.save bb_h5_948.save
;int_h5_000.save int_h5_485.save int_h5_555.save int_h5_643.save int_h5_733.save int_h5_788.save int_h5_908.save
;int_h5_948.save means48h5.save rho_h5_000.save rho_h5_485.save rho_h5_555.save rho_h5_643.save rho_h5_733.save
;rho_h5_788.save rho_h5_908.save rho_h5_948.save vv_h5_000.save vv_h5_485.save vv_h5_555.save vv_h5_643.save
;vv_h5_733.save vv_h5_788.save vv_h5_908.save
help,f
f=findfile('*908.save')
print,f
;bb_h5_908.save int_h5_908.save rho_h5_908.save vv_h5_908.save
restore,f[0]
restore,/ver,f[0]
restore,/ver,f[1]
restore,/ver,f[3]
help,timet
f2=findfile('/Volumes/HINODE-3/Hinode_data/Hinode_SP_maps/*.save')
print,f2
;/Volumes/HINODE-3/Hinode_data/Hinode_SP_maps/ar_20061229.save
;/Volumes/HINODE-3/Hinode_data/Hinode_SP_maps/ar_20070116.save
;/Volumes/HINODE-3/Hinode_data/Hinode_SP_maps/ar_20071211.save
;/Volumes/HINODE-3/Hinode_data/Hinode_SP_maps/ar_20071213.save
;/Volumes/HINODE-3/Hinode_data/Hinode_SP_maps/qs_20070310.save
restore,/ver,f[0]
restore,/ver,f2[0]
tvscl,conti
help,conti
blapp0=blapp
btapp0=btapp
conti0=conti
vel_630150=vel_63015
vel_630250=vel_63025
restore,/ver,f2[4]
blapp`=blapp
; % Illegal character in program text.
blapp1=blapp
btapp1=btapp
conti1=conti
vel_630151=vel_63015
vel_630251=vel_63025
help,conti
window,xs=1024,ys=850
tvscl,congrid(conti,1024,512)
ploghist,int/aver(int),/prob,yr=[1.e-6,.1],xtit='!6I/<I>',chars=2,ytit='!6Fraction'
ploghist,seeing(int/aver(int),size=48,ap=50,d1=0),/prob,oplt=1
;     0.140557    0.0459410
!p.charthick=2
!p.charsize=2
ploghist,conti0/aver(conti0),/prob,oplt=2
ploghist,conti1/aver(conti1),/prob,oplt=2
ps
ploghist,int/aver(int),/prob,yr=[1.e-6,.1],xtit='!6I/<I>',chars=2,ytit='!6Fraction'
ploghist,seeing(int/aver(int),size=48,ap=50,d1=0),/prob,oplt=1
;     0.140557    0.0459410
ploghist,conti0/aver(conti0),/prob,oplt=2
ploghist,conti1/aver(conti1),/prob,oplt=2
label,x=.7,y=.82,lin=0,'!5Simulation',chars=1
label,lin=2,'!5Hinode',chars=1
label,lin=1,'!5Simulation+mtf',chars=1
psend
x
ps
ploghist,int/aver(int),/prob,yr=[1.e-6,.1],xtit='!6I/<I>',chars=2,ytit='!6Fraction'
ploghist,seeing(int/aver(int),size=48,ap=50,d1=0),/prob,oplt=1
;     0.140557    0.0459410
ploghist,conti0/aver(conti0),/prob,oplt=2
ploghist,conti1/aver(conti1),/prob,oplt=2
label,x=.5,y=.45,lin=0,'!5Simulation',chars=1
label,lin=2,'!5Hinode',chars=1
label,lin=1,'!5Simulation+mtf',chars=1
psend
x
!p.thick=3
ps
ploghist,int/aver(int),/prob,yr=[1.e-6,.1],xtit='!6I/<I>',chars=2,ytit='!6Fraction'
ploghist,seeing(int/aver(int),size=48,ap=50,d1=0),/prob,oplt=1
;     0.140557    0.0459410
ploghist,conti0/aver(conti0),/prob,oplt=2
ploghist,conti1/aver(conti1),/prob,oplt=2
label,x=.5,y=.45,lin=0,'!5Simulation',chars=1
label,lin=2,'!5Hinode',chars=1
label,lin=1,'!5Simulation+mtf',chars=1
psend
x
$mv idl.ps I_QS_hinode_sim.ps
plothist,by001,/prob,yr=[1.e-6,1],xtit='!6B (kG), !7s!6=0.01',ytit='!6Fraction',chars=2
ploghist,by001,/prob,yr=[1.e-6,1],xtit='!6B (kG), !7s!6=0.01',ytit='!6Fraction',chars=2
ploghist,seeing(by001,size=48,ap=50,d1=0),/prob,oplt=1
;   0.00353543   0.00188139
ploghist,blapp0*1.e-3,/prob,oplt=2
ploghist,blapp1*1.e-3,/prob,oplt=2
ploghist,by01,lin=4
; % PLOT_IO: Warning: Infinite plot range.
ploghist,blapp1*1.e-3,/prob,oplt=2
ploghist,by01/prob,lin=4
; % Variable is undefined: PROB.
ploghist,by01,/prob,lin=4
; % PLOT_IO: Warning: Infinite plot range.
ploghist,blapp1*1.e-3,/prob,oplt=2
stat,blapp1
;aver =        1.461
;rms  =        31.35     rms/aver =        21.45
;min  =       -783.4     min/aver =       -536.1       15841019
;max  =        787.1     max/aver =        538.5        743 822
stat,blapp0
;aver =       -11.96
;rms  =        110.4     rms/aver =       -9.232
;min  =       -953.7     min/aver =        79.75        471 213
;max  =        965.1     max/ave