在matlab中使用beer-Lambert模型建立水下可见光通信信道信道，考虑多径效应的简单代码

下面是一个简单的 MATLAB 代码，用于建立考虑多径效应的水下可见光通信信道的 Beer-Lambert 模型:

% 清除工作区和命令窗口
clear all;
clc;

% 设置参数
a = 0.15;  % 海水吸收系数
c = 3e8;  % 光速
L = 10;   % 传输距离
h = 5;    % 发射机和接收机的高度

% 生成信号
N = 1000; % 采样点数
t = linspace(0, 1, N);
f = 1e6;  % 信号频率
s = sin(2*pi*f*t);

% 计算多径衰落
t_r = [0:0.1:2];   % 多径时间延迟
a_r = [1, 0.5, 0.3];  % 多径幅度
r = zeros(1, N);   % 初始化接收信号
for i = 1:length(t_r)
    r = r + a_r(i)*s.*exp(-a*(L+h)/c*t).*exp(-a_r(i)*(t-t_r(i)));
end

% 画图
figure;
subplot(2,1,1);
plot(t, s);
title('发送信号');
xlabel('时间');
ylabel('幅度');
subplot(2,1,2);
plot(t, r);
title('接收信号');
xlabel('时间');
ylabel('幅度');

这个代码生成一个频率为 1 MHz 的正弦信号，并使用 Beer-Lambert 模型计算光在水中传输时的多径衰落效应。通过绘制发送信号和接收信号的图形，可以看到多径效应对接收信号的影响。