Lab Telecominucaciones.

Laboratorio de Telecomunicaciones

Titulo de la práctica: Modulación

Fecha: 13 de Abril 2016

Lugar: Laboratorio de Telecomunicaciones

Objetivo: Una vez realizada la práctica, el estudiante simulara una modulación en Angulo variando sus parámetros fundamentales.

Equipos del laboratorio: PC con MATLAB

Procedimiento en el laboratorio:

1. Implemente los siguiente script y analice los resultados

% ===================================================

% Script para graficar la Modulación en Angulo % ===================================================

clf; clc; clear all; close all;        

fc=input('frecuencia de la portadora(en Hz) :');

Ac=input('Amplitud de la señal portadora(en Volts) :');

fm=input('frecuencia de la señal de información(en Hz) :');

Am=input('Amplitud de la señal de información(en Volts) :');

tm=linspace(0,3/fm,1000);

tc=linspace(0,50/fc,1000);

wc=2*pi*fc*tc;   %cálculo de la frecuencia angular

wm=2*pi*fm*tm;

Fc=Ac*cos(wc);  %Señal portadora

Fm=Am*cos(wm);  %Señal de información

FmFM=Am*sin(wm);

FoutPM=Ac*sin(wc+Fm); %Señal modulada

FoutFM=Ac*sin(wc+FmFM);

subplot(4,1,1),plot(tm,Fm,'k','LineWidth',3),grid;

title('Señal de información');

ylabel('Am cos\omega_m t'),

subplot(4,1,2),plot(tc,Fc,'k','LineWidth',3),grid;

title('Señal Portadora');

ylabel('Ac cos\omega_c t');

subplot(4,1,3),plot(tm,FoutPM,'k','LineWidth',3),grid;

title('Señal Modulada PM');

ylabel('FM(t)_{out} '),

subplot(4,1,4),plot(tm,FoutFM,'k','LineWidth',3),grid;

title('Señal Modulada FM');

ylabel('PM(t)_{out} '),

% ===================================================

% Script para graficar función de Bessel

% ===================================================

clf; clc; clear all; close all;        

BETA=input('Indice de módulación: ');

n=input('Orden: ');

variacion_BETA=0:0.01:BETA;

    for i=1:n

    fb=besselj(i-1,variacion_BETA);

    plot(variacion_BETA,fb,'k'); hold on; grid on;

    end;

title('Función Bessel de primera clase y orden n');

ylabel('J_n (\beta)'),

xlabel('Índice de Modulación (\beta)'),

hold off;

% ===================================================

% Script para calcular el ancho de banda de FM

% ===================================================

clf; clc; clear all; close all;        

%inicialización de parámetros para el cálculo

BETA=input('Beta: ');

FM=input('Frecuencia máxima del mensaje: ');

FC=input('Frecuencia de la portadora: ');

AC=input('Amplitud de la portadora: ');

BESSEL=besselj(0:BETA+9,BETA);

n=1;bg=[];fg1=[];fg2=[];

if BETA < 1 % bucle para el caso de banda angosta

    BW=2*FM;

    formatSpec = 'Banda angosta de: %d Hz\n';

    fprintf(formatSpec,BW)

    while n<=2

    bg(n)= AC*BESSEL(n);

...