Example of Fig 4.2
Three independent maps
function example42 flon = [ 0 360];lonbox=flon; flat = [ -90 90];latbox=flat; vlat = [ 34 60 30]; vlon = [ 210 220 280]; ilat = [ 34 41 33]; ilon = [ 56 59 75]; k = 3 % Only threee independent vectors s = [96 48]; lnorm = 'full'; tit = ' Z500 Geopotential Heights'; [zt,ind,fcos]=readz500(latbox,lonbox,'season','jfm','scaling','yes'); [zold,sdz]=anomaly(zt,lnorm); if k ~= 34 ibase=ceil(linspace(1,34,k)), size(zold) zbase=zold(:,ibase); size(zbase) zcof=2*rand(k,34)-1;size(zcof) z = zbase*zcof; size(z) else z=zold; end clear zold; clf;axis on; % Choose grid % % if s(1) == 96 && s(2) == 48 llat = [ -87.16 -83.48 -79.78 -76.07 -72.36 -68.65 ... -64.94 -61.23 -57.52 -53.81 -50.10 -46.39 ... -42.68 -38.97 -35.26 -31.54 -27.83 -24.12 ... -20.41 -16.70 -12.99 -9.28 -5.57 -1.86 ... 1.86 5.57 9.28 12.99 16.70 20.41 ... 24.12 27.83 31.54 35.26 38.97 42.68 ... 46.39 50.10 53.81 57.52 61.23 64.94 ... 68.65 72.36 76.07 79.78 83.48 87.16 ]'; llon = 0:3.75:(359.+3.76)'; elseif s(1) == 72 && s(2) == 16 llat = 15:5:90'; llon = 0:5:(359.+5)'; elseif s(1) == 128 && s(2) == 64 llat = [ -87.86380 -85.09653 -82.31291 -79.52560 ... -76.73690 -73.94751 -71.15775 -68.36775 -65.57760 ... -62.78735 -59.99701 -57.20662 -54.41619 -51.62573 ... -48.83523 -46.04472 -43.25418 -40.46364 -37.67308 ... -34.88251 -32.09193 -29.30135 -26.51076 -23.72016 ... -20.92956 -18.13896 -15.34835 -12.55774 -9.76713 ... -6.97652 -4.18590 -1.39529 1.39529 4.18590 ... 6.97652 9.76713 12.55774 15.34835 18.13896 ... 20.92956 23.72016 26.51076 29.30135 32.09193 ... 34.88251 37.67308 40.46364 43.25418 46.04472 ... 48.83523 51.62573 54.41619 57.20662 59.99701 ... 62.78735 65.57760 68.36775 71.15775 73.94751 ... 76.73690 79.52560 82.31291 85.09653 87.86380 ]'; llon = 0:2.8125:(359.+2.82)'; end % Coast load coast; if lonbox(2) - lonbox(1) < 80; dmerid= []; else dmerid=60; end if latbox(2) - latbox(1) < 40; dpar= []; else dpar=30; end [u,lam,v,proj]=eoffast(z,ind,15,1); subplot(311) bigtit{1}= ['Case in which there are only ' num2str(k) ' independent maps']; bigtit{2}= ['EOF 1']; sdz=expand(u(:,1),ind,[96 48]); llmap(sdz,flat,flon,[-0.5:0.01:0.05],bigtit,'shading','off'); subplot(312) bigtit{1}= ['']; bigtit{2}= ['EOF 2']; sdz=expand(u(:,2),ind,[96 48]); llmap(sdz,flat,flon,[-0.5:0.01:0.05],bigtit,'shading','off'); subplot(313) lam=lam/sum(lam); %plot(1:length(lam),lam,'*','markersize',5); bar(1:length(lam),lam); axis([ 0 length(lam)+1 -0.2 1]); title('Eigenvalues of the Covariance Matrix'); orient tall; print('-dpdf','-painters','example03.pdf'); return;
k = 3 Normalization full ibase = 1 18 34 ans = 4608 34 ans = 4608 3 ans = 3 34 ans = 4608 34 Expanded Field Shading is off Reshaping for T30 Gaussian grid Contouring from a minimum -0.5000 Contouring to a maximum 0.0500 Contouring interval is 0.0100 Contour values are: -0.5000 -0.4900 -0.4800 -0.4700 -0.4600 -0.4500 -0.4400 -0.4300 -0.4200 -0.4100 -0.4000 -0.3900 -0.3800 -0.3700 -0.3600 -0.3500 -0.3400 -0.3300 -0.3200 -0.3100 -0.3000 -0.2900 -0.2800 -0.2700 -0.2600 -0.2500 -0.2400 -0.2300 -0.2200 -0.2100 -0.2000 -0.1900 -0.1800 -0.1700 -0.1600 -0.1500 -0.1400 -0.1300 -0.1200 -0.1100 -0.1000 -0.0900 -0.0800 -0.0700 -0.0600 -0.0500 -0.0400 -0.0300 -0.0200 -0.0100 0.0000 0.0100 0.0200 0.0300 0.0400 0.0500 Maximum field value 0.0370 Minimum field value -0.0329 Shading is off Reshaping for T30 Gaussian grid Contouring from a minimum -0.5000 Contouring to a maximum 0.0500 Contouring interval is 0.0100 Contour values are: -0.5000 -0.4900 -0.4800 -0.4700 -0.4600 -0.4500 -0.4400 -0.4300 -0.4200 -0.4100 -0.4000 -0.3900 -0.3800 -0.3700 -0.3600 -0.3500 -0.3400 -0.3300 -0.3200 -0.3100 -0.3000 -0.2900 -0.2800 -0.2700 -0.2600 -0.2500 -0.2400 -0.2300 -0.2200 -0.2100 -0.2000 -0.1900 -0.1800 -0.1700 -0.1600 -0.1500 -0.1400 -0.1300 -0.1200 -0.1100 -0.1000 -0.0900 -0.0800 -0.0700 -0.0600 -0.0500 -0.0400 -0.0300 -0.0200 -0.0100 0.0000 0.0100 0.0200 0.0300 0.0400 0.0500 Maximum field value 0.0464 Minimum field value -0.0501
