生成Haar小波变换矩阵的MatLab代码

生成Haar小波变换矩阵的MatLab代码如下：

function H = haarMatrix(n)
% 生成Haar小波变换矩阵
% 输入参数：n - 矩阵的大小
% 输出参数：H - Haar小波变换矩阵

if n == 1
    H = 1;
    return;
end

N = 2^n;
H = 1/sqrt(N) * ones(1, N);

% 生成Haar小波变换矩阵
for k = 1:n
    n_k = 2^k;
    n_k_1 = 2^(k-1);
    
    % 生成Dk矩阵
    Dk = zeros(n_k_1);
    for i = 1:n_k_1
        Dk(i, i) = 1;
    end
    
    % 生成Ak矩阵
    Ak = zeros(n_k_1);
    for i = 1:n_k_1
        Ak(i, 2*i-1) = 1;
        Ak(i, 2*i) = -1;
    end
    
    % 生成Vk矩阵
    Vk = kron(eye(n_k_1), H);
    
    % 生成Hk矩阵
    Hk = 1/sqrt(2) * [Ak; Vk];
    
    H = Hk * H;
end

这段代码定义了一个函数haarMatrix，它接受一个参数n，用来指定生成的Haar小波变换矩阵的大小。在函数内部，首先处理了特殊情况，当n为1时，直接返回大小为1的矩阵。接下来，利用循环逐步生成Haar小波变换矩阵。最后将生成的Haar小波变换矩阵返回。

此代码可以生成任意大小的Haar小波变换矩阵，并可以作为Haar小波变换的基础工具在图像处理和压缩等领域使用。