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