✅作者简介：热爱科研的Matlab仿真开发者，修心和技术同步精进，matlab项目合作可私信。
🍎个人主页：Matlab科研工作室
🍊个人信条：格物致知。
更多Matlab仿真内容点击👇
⛄ 内容介绍
In this paper, an optical wireless communication system that uses white LEDs is described. Equalization is employed at the receiver to improve the data rate. Simulation shows a highly reliable communication channel with an SNR of up to 81 dB. Moreover, the data rate can be improved from 16 Mb/s to 32 Mb/s NRZ-OOK at a BER of 10-6.
论文部分复现
⛄ 部分代码
clear all; clc;
[length,width] = meshgrid(0.5:0.05:5);
height = 3;
q=1.602176487E-19;
Aroom = length.*width;
Arx = 50;%接收区域
d = 2.15;%墙高度
psi = 30;%
psic = 70;%半角功率
nLED = 4;%LED数量
phi_half = pi/3;
PLED = 0.02; %单LED功率
Rf = 0.15; %地面反射
Rc = 0.8; %天花板反射
Rw = 0.9; %墙面反射
Af = Aroom;%地面面积
Ac = Aroom;%天花板面积
Aw = length*height;%墙面面积
Ptotal= nLED*PLED; %总功率
g = 6;%光集中器增益
Tf = 1;%光滤波器传输系数
I2=0.562; %the noise-bandwidth factor
Rb =5120000;%data rate
R=0.55;%光电二极管的响应率
m=-log(2)./log(cos(phi_half));%the order of Lambertian emission
Ro=real(((m+1)./2*pi)*cos(phi_half*2)^m);%Lambertian radiant intensity
Ptx =PLED*Ro; %发射功率
%SNR
SNR = (R*Prx)^2./sigmatotal;%Signal-to-Noise Ratio
SNRdb = 10*log10(SNR);
figure
mesh(length,width,SNRdb)
xlabel('Roomlength');ylabel('Roomwidth');zlabel('SNRdb')
%BER
Q = (1/2)*erfc((sigmatotal./(R*Prx.^2)./sqrt(2)));% Error Function
BER = Q*sqrt(SNR);% Bit Error Rate
figure % Plot 3D
mesh(length,width,BER)
xlabel('Roomlength');ylabel('Roomwidth');zlabel('BER');
⛄ 运行结果
⛄ 参考文献
Improvement of data rate by using equalization in an indoor visible light communication system (2008)" by Lubin Zeng, Dominic O'Brien, Hoa Le-Minh, Kyungwoo Lee, Daekwang Jung, and Yunje Oh
