aidyadup.sci

小波分解源代码

function afine = AIDyadUp(beta,alfa,D,F,EF)
// AIDyadUp -- Average-Interpolating UpSampling Operator
//  Usage
//    afine = AIDyadUp(beta,alfa,D,F,EF)
//  Inputs
//    beta    coarse-scale block averages
//    alfa    detail corrections
//    D       degree of polynomial fit in average-interpolation
//    F       filter implementing average-interpolation
//    EF      edge filter of average-interpolation
//  Outputs
//    afine   fine-scale block averages
//
//  Description
//    Implements the Coarse-to-Fine phase of the average-interpolating
//    wavelet transform. Takes coarse scale block average and detail
//    corrections and synthesizes fine-scale block averages.
//
//  Copyright Aldo I Maalouf
 
	n = length2(beta);
	ahat = AIRefine(beta,D,F,EF);
	adif =  [(-alfa) ; alfa ]; adif = adif(:)';
	afine = ahat + adif;
	afine = afine ./sqrt(2);
endfunction