airefine2d.m

function [beta,alfa] = AIDyadDown(afine,D,F,EF) ％ AIDyadDown -- Average-Interpolating DownSampling

function r = AIRefine2d(a,L,D,Fil,Efil)
% AIRefine2d -- 2-d Refinement based on Average-Interpolation
%  Usage
%    fine  = AIRefine2d(coarse,L,D,Filter,Efil)
%  Inputs
%    coarse    2-d image at a coarse scale: length(coarse)=n
%    L         integer >=1. number of generations to refine by
%    D         D degree of polynomials used for interpolation
%    Filter    interpolating filter from MakeAIFilter(D)
%    EFil      Boundary filter from MakeAIBdryFilter(D)
%  Outputs
%    fine      2-d image at a fine scale: size(fine) = 2^L * size(coarse)
%
%  Description
%    Average-Interpolating Refinement scheme is used to refine
%    boxcar averages on a grid of n*n points, imputing averages
%    on a finer grid of 2^L n * 2^L n points.
%
%  See Also
%    AIRefine
%
	sa = size(a);
	r = zeros(2^L * sa(1), 2^L * sa(2));
	r(1:sa(1),1:sa(2)) = a;
	for h=1:L,
		for i=1:sa(2),
			 b = reshape(r(1:sa(1),i),1,sa(1));
			 c = AIRefine(b,D,Fil,Efil);
			 r(1:(2*sa(1)),i) = reshape(c,2*sa(1),1);
		end
		for j=1:(2*sa(1)),
			 b = reshape(r(j,1:sa(2)),1,sa(2));
			 c = AIRefine(b,D,Fil,Efil);
			 r(j,1:(2*sa(2))) = reshape(c,1,2*sa(2));
		end
		sa = 2 .* sa;
	end
    
    
%
% For Article "Smooth Wavelet Decompositions with Blocky Coefficient Kernels"
% Copyright (c) 1993. David L. Donoho
%

    
    
%   
% Part of WaveLab Version 802
% Built Sunday, October 3, 1999 8:52:27 AM
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%