水印的嵌入过程: (1)对载体图像做一级小波变换; (2)利用邻近值算法(P95),在HL1(或LH1)系数中嵌入水印数据(二值数据); 邻近值算法的思想:设定步长a,对于数值,根据水印比特的取值0或1,修改的值，求matlab代码

以下是利用邻近值算法(P95)在HL1(或LH1)系数中嵌入水印数据的Matlab代码示例：

% 载入原始图像
img = imread('lena.png');

% 将图像转换为灰度图像
img = rgb2gray(img);

% 进行一级小波变换
[LL, LH, HL, HH] = dwt2(img, 'haar');

% 设定步长a
a = 10;

% 水印比特串
watermark = [1 0 1 0 1 1 0 0 1 0 1 1 0 1 0 0];

% 将水印比特串转换为-1或1
watermark(watermark == 0) = -1;

% 将HL1系数中的水印比特串嵌入
HL1 = HL(1:size(HL,1)/2, 1:size(HL,2)/2);
HL1 = double(HL1);
idx = 1;
for i = 1:size(HL1,1)
    for j = 1:size(HL1,2)
        if abs(HL1(i,j) - a*watermark(idx)) < a
            HL1(i,j) = HL1(i,j) + a*watermark(idx);
        else
            HL1(i,j) = HL1(i,j) - a*watermark(idx);
        end
        idx = idx + 1;
        if idx > length(watermark)
            break;
        end
    end
    if idx > length(watermark)
        break;
    end
end

% 将HL1系数替换回HL
HL(1:size(HL,1)/2, 1:size(HL,2)/2) = HL1;

% 进行一级小波反变换
img_watermarked = idwt2(LL, HL, LH, HH, 'haar');

% 显示原始图像和嵌入水印后的图像
figure;
subplot(1,2,1);
imshow(img);
title('原始图像');
subplot(1,2,2);
imshow(img_watermarked, []);
title('嵌入水印后的图像');

请注意，这只是一个简单的示例代码，实际使用时需要根据具体情况进行修改和优化。