clear
close

load wn_dat;
size(wn_dat)
load qxzr_dat;
load vxzr_dat;
load wxzr_dat;
load qzzr_dat;
load wzzr_dat;
load qxzi_dat;
load vxzi_dat;
load wxzi_dat;
load qzzi_dat;
load wzzi_dat;

subplot(3,2,1)
plot(wn_dat,qxzr_dat,'-',wn_dat,qxzi_dat,'--')
xlabel('Wavenumber')
ylabel('Qx,z')
title('Solid Lines: Real Parts')

subplot(3,2,2)
plot(wn_dat,wxzr_dat,'-',wn_dat,wxzi_dat,'--')
xlabel('Wavenumber')
ylabel('Wx,z')
title('Dashed Lines: Imaginary Parts')

subplot(3,2,3)
plot(wn_dat,vxzr_dat,'-',wn_dat,vxzi_dat,'--')
xlabel('Wavenumber')
ylabel('Vx,z')

subplot(3,2,5)
plot(wn_dat,qzzr_dat,'-',wn_dat,qzzi_dat,'--')
xlabel('Wavenumber')
ylabel('Qz,z')

subplot(3,2,6)
plot(wn_dat,wzzr_dat,'-',wn_dat,wzzi_dat,'--')
xlabel('Wavenumber')
ylabel('Wz,z')

print integz.ps




