drpdrawfig06.m

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

function dRPDrawFig06(OpenNewWindow,HaveTitle,LoadData)

%% Plot digital FIO tiling


if nargin<3
    LoadData=0;
end

if nargin<2
    HaveTitle=1;
end

if nargin<1
    OpenNewWindow=1;
end

if OpenNewWindow
    figure
end


LoadData=0;



%% Plot digital FIO tiling
	
deep    = [5 6];
btree_ridge = MakeRPRidgeletBasis(deep);
btree_FIO = MakeRPFIOBasis(deep,deep(2)-4);
btree_Wave = BuildRPBasisTree2(deep,'Diadic1',[5]);

    
rax=[1 512 1 256];
x=[1 512 512  1   1];
y=[1 1   256  256 1];
    
subplot(1,3,1)
PlotRPPartition(btree_ridge,'b',rax,deep);axis off;
if HaveTitle
    title('Digital Ridgelet Tiling')
end
hold on; plot(x,y,'b');hold off;axis square
  

subplot(1,3,2)
PlotRPPartition(btree_FIO,'r',rax,deep);axis off;
if HaveTitle
    title('Digital FIO Tiling')
end
hold on; plot(x,y,'r');hold off;axis square

subplot(1,3,3)
PlotRPPartition(btree_Wave,'k',rax,deep);axis off;
if HaveTitle
    title('Digital Wavelet Tiling')
end
hold on; plot(x,y,'k');
plot([128 128],[1 256],'k')
plot([256 256 ],[1 256],'k')
plot([384 384],[1 256],'k')
hold off;axis square

   
 % Copyright (c) 2002 David Donoho and Ana Georgina Flesia

%
% 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]
%