; IDL Version 8.1, Mac OS X (darwin x86_64 m64)
; Journal File for Bob@steinr.pa.msu.edu
; Working directory: /Volumes/d2/MHDV/mhd12v/Stokes
; Date: Fri Oct 28 15:00:51 2011
 
journ
i=0
plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.3,.35],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1
oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3
label,x=.6,y=.3,lin=2,'Raw'
label,lin=0,'Hinode'
ps
plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.3,.35],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1
oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3
label,x=.6,y=.3,lin=2,'Raw'
label,lin=0,'Hinode'
psend
x
$mv idl.ps Vspec_12vb_t342_17-129.ps
print,i,ib[i]
;       1(      17.0000,      129.000)
ws,0
xyouts,real_part(ib[i]),imaginary(ib[i]),'o',/device,alignment=0.5,chars=5
i=212
ws,2
@vb
;     213(      910.000,      420.000)
i=211
@vb
;     212(      909.000,      422.000)
@vb
;     213(      910.000,      420.000)
@vb
;     214(      910.000,      421.000)
@vb
;     215(      910.000,      422.000)
i=211
@vb
;     212(      909.000,      422.000)
@vb
;     213(      910.000,      420.000)
@vb
;     214(      910.000,      421.000)
@vb
;     215(      910.000,      422.000)
@vb
;     216(      910.000,      431.000)
i=211
@vb
;     212(      909.000,      422.000)
plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.15,.3],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1
oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3
label,x=.6,y=.8,lin=2,'Raw'
label,lin=0,'Hinode'
label,x=.55,y=.8,lin=2,'Raw'
label,lin=0,'Hinode'
ps
plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.15,.3],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1
; % No commands containing 'Vhi' exist in the command buffer.
oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3
label,x=.55,y=.8,lin=2,'Raw'
label,lin=0,'Hinode'
psend
x
print,i,ib[i]
;     212(      909.000,      422.000)
ps
plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.15,.3],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1
oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3
label,x=.55,y=.8,lin=2,'Raw'
label,lin=0,'Hinode'
psend
x
$mv idl.ps Vspec_12vb_t342_909-422.ps
xyouts,real_part(ib[i]),imaginary(ib[i]),'o',/device,alignment=0.5,chars=5
ws,0
xyouts,real_part(ib[i]),imaginary(ib[i]),'o',/device,alignment=0.5,chars=5
i=72
@vb
;      73(      442.000,      304.000)
i=40
@vr
;      41(      532.000,      731.000)
plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.3,.2],yst=1
plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.3,.3],yst=1
; % No commands containing 'fasd' exist in the command buffer.
plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.3,.2],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1
oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3
label,x=.55,y=.8,lin=2,'Raw'
label,lin=0,'Hinode'
ps
plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.3,.2],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1
oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3
label,x=.55,y=.8,lin=2,'Raw'
label,lin=0,'Hinode'
psend
print,i,ir[i]
;      41(      532.000,      731.000)
$mv idl.ps Vspec_12vb_t342_532-731.ps
xyouts,real_part(ir[i]),imaginary(ir[i]),'o',/device,alignment=0.5,chars=5
xyouts,real_part(ir[i]),imaginary(ir[i]),'o',/device,alignment=0.5,chars=5
print,i,ir[i]
;      41(      532.000,      731.000)
ws,0
; % WSET: Routine is not defined for current graphics device.
x
ws,0
xyouts,real_part(ir[i]),imaginary(ir[i]),'o',/device,alignment=0.5,chars=5
; % Variable is undefined: IR.
retall
xyouts,real_part(ir[i]),imaginary(ir[i]),'o',/device,alignment=0.5,chars=5
ws,2
ps
psend
x
i=69
@vr
;      70(      811.000,      610.000)
@vr
;      71(      812.000,      610.000)
@vr
;      72(      812.000,      611.000)
i=71
i=72
plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.35,.3],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1
oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3
label,x=.55,y=.8,lin=2,'Raw'
label,lin=0,'Hinode'
ps
plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=3,yr=[-.35,.3],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1
oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3
label,x=.55,y=.8,lin=2,'Raw'
label,lin=0,'Hinode'
psend
x
print,i,ir[i]
;      72(      812.000,      611.000)
$mv idl.ps Vspec_12vb_t342_812-611.ps
ws,0
xyouts,real_part(ir[i]),imaginary(ir[i]),'o',/device,alignment=0.5,chars=5