请用matlab帮助我写一个程序，程序要求，在距离海面十米深的地方垂直向海面发射单频脉冲信号，接收到来自海面的回波

好的，这是一个基本的声呐信号处理程序，下面是代码实现：

% 参数设置
f = 50e3; % 发射频率50kHz
c = 1500; % 声速1500m/s
d = 10; % 发射和接收距离为10m
t = 2*d/c; % 信号传播时间

% 生成脉冲信号
t_pulse = 0:1/f:0.02; % 20ms的脉冲信号
pulse = sin(2*pi*f*t_pulse);

% 发射信号
tx_signal = [zeros(1, round(t*f)), pulse, zeros(1, round((t_pulse(end)+t)*f))];
rx_signal = tx_signal; % 接收到的信号与发射信号一致

% 海面回波信号
t_echo = 2*d/c + 2*rand(1)*d/c; % 随机回波时间
rx_signal(round(t_echo*f):end) = rx_signal(round(t_echo*f):end) + pulse;

% 信号处理
fft_size = 1024; % 傅里叶变换点数
tx_fft = fft(tx_signal, fft_size);
rx_fft = fft(rx_signal, fft_size);
freq = (0:fft_size-1)*(f/fft_size); % 频率轴

% 画图
figure;
subplot(2,1,1);
plot((0:length(tx_signal)-1)/f, tx_signal, 'b', (0:length(rx_signal)-1)/f, rx_signal, 'r');
xlabel('时间 (s)');
ylabel('幅值');
legend('发射信号', '接收信号');
title('声呐信号');

subplot(2,1,2);
plot(freq, abs(tx_fft), 'b', freq, abs(rx_fft), 'r');
xlim([0 f/2]);
xlabel('频率 (kHz)');
ylabel('幅值');
legend('发射信号', '接收信号');
title('信号频谱');

程序的基本流程是生成单个脉冲信号，然后在距离为10米的位置发射，在随机时间接收回波信号，然后进行傅里叶变换并画出图形。