# csdms-contrib/slepian_alpha

Switch branches/tags
Nothing to show
Fetching contributors…
Cannot retrieve contributors at this time
87 lines (76 sloc) 2.01 KB
 function sdwconsum(L) % SDWCONSUM(L) % % Plots the eigenvalue-weighted sum of all Slepian functions localized to % all of the continents except Antarctica, as in: % Simons, Dahlen and Wieczorek (SIAM, 2006), Figure 6.4 % % INPUT: % % L Spherical harmonic degree of the bandwidth [default: 18] % % Last modified by fjsimons-at-alum.mit.edu, 03/25/2009 doms={'africa', 'eurasia', 'namerica', 'australia', 'greenland', ... 'samerica'}; sa=0; for index=1:length(doms) sa=sa+spharea(doms{index}); end defval('L',18); % Calculate the Shannon number N=(L+1)^2*sa; % Specify the truncation levels in the sum ens=ceil([N/4 N/2 N (L+1)^2]); legsi{1}=sprintf('1%s N/4','\rightarrow'); legsi{2}=sprintf('1%s N/2','\rightarrow'); legsi{3}=sprintf('1%s N','\rightarrow'); legsi{4}=sprintf('1%s (L+1)^2','\rightarrow'); clf [ah,ha]=krijetem(subnum(2,2)); for index=1:length(ens) axes(ah(index)) fnpl=sprintf('%s/SDWALLCONS-%i-%i.mat',... fullfile(getenv('IFILES'),'KERNELC'),L,ens(index)); if exist(fnpl,'file')==2 load(fnpl) else F=sdwallcons(doms,L,0); end F=scale(F,[0 1]); F(F