%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% MSKscript.m
% Archivo para simulacion de MSK
% Generando grafica de constelacion binaria
% Generando grafica de BER vs Eb/No
% MSK con constelación Binaria, a base de senal NRZ aleatoria.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear all; close all;
find_system('Name','MSK');
open_system('MSK');
Pe =[];
format long;
% Defino el tiempo inicial de simulación y el incremento de EbNo
t=input('Numero de bits a mandar => ');
incre = input('Da el incremento => ');
ebeini = input('Da el EbNo inicial => ');
ebefin = input('Da el EbNo final => ');
tiempo = input('Da el tiempo de espera de simulacion => ');
%incre =.25;
% Genero un lazo para correr la simulación del modelo con diferentes
% valores de Eb/No
for i=ebeini:incre:ebefin
EbNo = i;
v=num2str(EbNo);
% Seteo el EbNo para ambos canales
set_param('MSK/AWGN Channel','EbNodB',v);
tt=num2str(t);
set_param(gcs,'StopTime',tt)
% Inicio la simulación
set_param(gcs,'SimulationCommand','Start');
% Calculo de la probabilidad de error
pause(tiempo)
Pe =[Pe; EbNo, (mean(berr(:,1)))/2];
end
% Muestro la curva de Pb Simulada dada por el bloque Error Rate Calc
semilogy(Pe(:,1),Pe(:,2),'r*')
hold on
legend('QPSK Sim Binario');
title ('Comparación de la Pb para un sistema MSK');
xlabel ('Eb/No (dB)');
ylabel ('Pb');
grid on
Pe
berteoricoMSK
MSK.zip_MATLAB msk_msk simulink_msk simulink_msk simulink_run
版权申诉
5星 · 超过95%的资源 116 浏览量
2022-09-24
15:49:38
上传
评论
收藏 8KB ZIP 举报
JonSco
- 粉丝: 75
- 资源: 1万+