drpdrawfig02.m

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

function dRPDrawFig01(OpenNewWindow,HaveTitle,LoadData)

% DrawFig2: Inspect some Ridgelets and FIO basic functions

% 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

% DrawFig2: Inspect some Ridgelets and FIO basic functions



n=256; 

% 3. DrawRidgeGrid: Depict subband layout of ridgelet coefficients

parlist = [5 16 2 2 1;6 32 3 4 1;7 64 3 4 1;8 128 3 4 1];
theta = zeros(2*n,2*n);
theta_display = zeros(2*n,2*n);

if LoadData
    im=imread('dRPDrawFig02.tif');
    imagesc(im);axis image;axis off;
else
    for k=1:4
        par = parlist(k,:)
        theta(2^par(1)+par(2)+1,(2^par(3)+par(4)+1)+(par(5)-1)*n) = 1;
        %%Transforms
    
        R2=Inv_FastOrthoRidgeletTrans(theta);
    
        subplot(2,4,k)
        imagesc(abs(R2));axis image;set (gca,'XTick',[]);
        set (gca,'YTick',[]);colormap(1-gray)
        R3=Inv_DFIOT_RWW(theta);
    
        subplot(2,4 ,4+k)
        imagesc(abs(R3));colormap(1-gray)
        axis image;set (gca,'XTick',[]);
        set (gca,'YTick',[]);
        theta=zeros(2*n,2*n);
    end
end


    

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