drpdrawfig04.m

beamlet变化的工具箱

function dRPDrawFig04(OpenNewWindow,HaveTitle,LoadData)

%% Plot digital Ridgelet,FIO tiling and wavelet like in Fourier domain

% 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

LoadData=0;
%% Plot digital Ridgelet,FIO tiling and wavelet like in Fourier domain
	
deep    = [5 6];
btree_ridge = MakeRPRidgeletBasis(deep);
btree_FIO = MakeRPFIOBasis(deep,deep(2)-4);
btree_Wave = BuildRPBasisTree2(deep,'Diadic1',[5]);


rax=[1 256 1 256];
subplot(1,3,1)
PlotRectoPolarRPPartition(btree_ridge,'b',rax,deep);axis off;
   
if HaveTitle
    title('Digital Ridgelet Tiling')
end
subplot(1,3,2)
PlotRectoPolarRPPartition(btree_FIO,'r',rax,deep);axis off;
if HaveTitle
    title('Digital FIO Tiling')
end
subplot(1,3,3)
PlotRectoPolarRPPartition(btree_Wave,'k',rax,deep);axis off;
if HaveTitle
    title('Digital Wavelet Tiling')
end
   
    
   % 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]
%