✅作者简介：热爱科研的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

⛄ Matlab代码关注

❤️部分理论引用网络文献，若有侵权联系博主删除

❤️ 关注我领取海量matlab电子书和数学建模资料