帮我编写一段matlab程序，实现音频数字水印的嵌入和提取

以下是一个简单的音频数字水印嵌入和提取的 Matlab 程序示例，您可以根据自己的需求进行修改：

% 音频数字水印嵌入和提取的 Matlab 程序示例
clc; clear all; close all;

%% 1. 加载音频文件
audio_file = 'test_audio.wav'; % 待嵌入数字水印的音频文件
[data, fs] = audioread(audio_file); % 读取音频数据和采样率

%% 2. 数字水印嵌入
watermark = '0123456789'; % 数字水印
% 将字符串数字水印转换为二进制数字水印
bin_watermark = dec2bin(watermark);
bin_watermark = bin_watermark(:) - '0'; % 转换为列向量
len_watermark = length(bin_watermark); % 数字水印长度
% 将二进制数字水印嵌入音频文件中
alpha = 0.1; % 嵌入强度
data_wm = data + alpha * bin_watermark; % 嵌入数字水印

%% 3. 数字水印提取
% 从音频文件中提取数字水印
extracted_wm = (data_wm - data) / alpha; % 提取数字水印
extracted_wm = extracted_wm(1:len_watermark); % 截取数字水印部分
extracted_wm = round(extracted_wm); % 四舍五入
extracted_wm = char(bin2dec(reshape(num2str(extracted_wm), [], 8))); % 转换为字符串数字水印
disp(['提取的数字水印为：', extracted_wm]);

%% 4. 保存带有数字水印的音频文件
audio_file_wm = 'test_audio_wm.wav'; % 带有数字水印的音频文件
audiowrite(audio_file_wm, data_wm, fs); % 保存带有数字水印的音频文件

上述程序简单地实现了将数字水印嵌入到音频文件中，然后从带有数字水印的音频文件中提取数字水印。实际应用中，为了保证水印的鲁棒性，需要进行更复杂的处理，例如添加纠错码、加密等。