drdrawfig04.m

来自「beamlet变化的工具箱」· M 代码 · 共 68 行

function dRDrawFig04(OpenNewWindow,HaveTitle,LoadData)
% DrawFig4: Inspect two Dual Ridgelets
% Figures 1a and 1b give examples
% Figure 1a: $\l =(1,4,8,2,6)$; a narrow
% ridgelet under the center of the picture\\ 
% Figure 1b: $\l=(2,4,8,2,0)$. The parameters
% $s$ and $\ell$ have changed,(as $k=8=2^j/2$
% and $\ell =2$ is small)
% 
% if you don't want to process it, set LoadData=1

if nargin<3
    LoadData=0;
end

if nargin<2
    HaveTitle=1;
end

if nargin<1
    OpenNewWindow=1;
end

if OpenNewWindow
    figure
end


parlist = [ 4  8 2  6 1 ; ...
			4  8 2  0 2 ];

%figure;
fignum = 11;
n=64;
npar = 2;
str = 'abcdfegijk';
for pp = 1:npar,
	par = parlist(pp,:);
	theta = zeros(2*n,2*n);
	theta(dyad2ix(par(1),par(2)),dyad2ix(par(3),par(4))+(par(5)-1)*n) =1;
   
    ridgelet=Adj_FastRidgeletTransform(theta); 
    
	subplot(1,2,pp)
	imagesc(abs(ridgelet));
	axis('square');axis off
	colormap(1-gray(256)) 
	title(sprintf('(%s): Dual Ridgelet s=%i;(j,k)=(%i,%i);(i,l)=(%i,%i)',...
		str(pp),par(5),par(1),par(2),par(3),par(4)));
	fignum = fignum+1;
end
%print -deps RawFig4.eps
	

%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%