水印的嵌入过程： （1）对载体图像做一级小波变换； （2）利用邻近值算法（P95），在HL1（或LH1）系数中嵌入水印数据（二值数据）； 邻近值算法的思想：设定步长a，对于数值，根据水印比特的取值0或1，修改的值。当要嵌入1时，取为最接近的偶数个a的值；当要嵌入0时，取为最接近的奇数个a的值。 （3）嵌入水印后，对系数做一级小波逆变换，得到含水印图像。 水印的提取过程： （1）对含水印图像做一级小波变换； （2）利用邻近值算法，从含水印图像一级小波变换的HL1（或LH1）系数中提取出水印信息，即： 当最接近偶数时，则水印信息为1； 当最接近奇数时，则水印信息为0。 要求：给出matlab代码

好的，以下是一个简单的 MATLAB 代码示例，演示了如何对载体图像嵌入水印并进行提取：

嵌入水印：

% 载入原始图像
I = imread('carrier_image.png');
% 载入水印图像
W = imread('watermark_image.png');
% 将水印图像二值化
W = imbinarize(W);
% 进行一级小波变换
[cA, cH, cV, cD] = dwt2(I, 'haar');
% 在HL1系数中嵌入水印数据
a = 5; % 步长
for i = 1:size(cH, 1)
    for j = 1:size(cH, 2)
        if W(i, j) == 1 % 嵌入1
            cH(i, j) = round(cH(i, j) / a) * a;
        else % 嵌入0
            cH(i, j) = round(cH(i, j) / a) * a + a;
        end
    end
end
% 进行一级小波逆变换
I_watermarked = idwt2(cA, cH, cV, cD, 'haar');
% 显示含水印图像
imshow(I_watermarked);
% 保存含水印图像
imwrite(I_watermarked, 'watermarked_image.png');

提取水印：

% 载入含水印图像
I_watermarked = imread('watermarked_image.png');
% 进行一级小波变换
[cA, cH, cV, cD] = dwt2(I_watermarked, 'haar');
% 提取水印数据
W_extracted = zeros(size(cH));
a = 5; % 步长
for i = 1:size(cH, 1)
    for j = 1:size(cH, 2)
        if mod(cH(i, j), 2*a) == 0 % 最接近偶数
            W_extracted(i, j) = 1;
        else % 最接近奇数
            W_extracted(i, j) = 0;
        end
    end
end
% 显示提取的水印图像
imshow(W_extracted);
% 保存提取的水印图像
imwrite(W_extracted, 'extracted_watermark_image.png');

请注意，这只是一个简单的示例代码，可能需要根据实际情况进行修改和优化。另外，代码中使用了 MATLAB 内置的小波变换和逆变换函数，但也可以使用其他第三方库或自己编写小波变换函数实现。