压缩感知当中的图像去噪源代码

function ResIm = Image_Denoising_Global_Denoising（Im  trueIm）
% Denoise image by denoising its patches using a pre-determined dictionary.
% Patches are denoised WITHOUT overlap.
%
% Inputs : 
% Im      : image to denoise double [0 255]
% trueIm  : This is used （unfairly） to optimize the parameters for the algorithm
%
% Outputs :
% ResIm   : Result Image for the best parameter

%% Parameters
imLen = numel（Im）;

%% Create the dictionary - Haar
[HaarDict  atomNorms] = Generate_Haar_Matrix（size（Im）  2）;
atomNorms = atomNorms（:）;
invAtomNorms = 1 ./ atomNorms;
% Show_Haar_Dict（HaarDict  size（Im））;
nAtoms = size（HaarDict  2）; % = 1 + 3 * nLevels

%% Prepare the projections of the image onto the dictionary
projs = HaarDict‘ * Im（:）;
absProjs = abs（projs）;

%% Test