At_n

PURPOSE

Takes transpose of noiselet measurements.

SYNOPSIS

function x = At_n(y, N, OMEGA,P)

DESCRIPTION

 Takes transpose of noiselet measurements.
 Usage: x = At_n(y)
 x - N vector
 y - M vector 
 OMEGA - M-length vector denoting which noiselet coefficients to use
 P - Column permutation matrix

CROSS-REFERENCE INFORMATION

This function calls:

realnoiselet Real-valued Noiselet Transform

This function is called by:

genAmat

SOURCE CODE

0001 function x = At_n(y, N, OMEGA,P) 
0002 % Takes transpose of noiselet measurements.
0003 % Usage: x = At_n(y)
0004 % x - N vector
0005 % y - M vector
0006 % OMEGA - M-length vector denoting which noiselet coefficients to use
0007 % P - Column permutation matrix
0008 
0009 n = sqrt(N);
0010 
0011 x_noise = zeros(N,1);
0012 x_noise(OMEGA) = y;
0013 
0014 x_inoise = realnoiselet(x_noise)/n;
0015 
0016 x = zeros(N,1);
0017 x(P) = x_inoise(:);