respaldo

clear all
clc

%SEÑAL PORTADORA (ALTA FRECUENCIA) P(t)

fp=10000; % Frecuencia de portadora
Tp=1/fp; Ts=0.1*Tp; fs=1/Ts;
t=[0:Ts:20*Tp];
p=cos(2*pi*fp*t);
subplot(2,1,1);
plot(t*(10^3),p);xlabel('tiempo (ms)')
ylabel('p(t)')
title('Señal Portadora')
grid on

[frec,XP] = transfourier(p,fs)
subplot(2,1,2)
plot(frec/1000,XP);
xlabel('frecuencia (kHz)')
ylabel('P(f)')
title('EspectroPortadora')
grid on

%Mensaje de voz

load('masc.mat');

figure(2)
subplot(2,1,1);
plot(x);
[frecx,XX] = transfourier(x,fs)
subplot(2,1,2)
plot(frecx/1000,XX);
xlabel('frecuencia (kHz)')
ylabel('M(f)')title('Espectro del Mensaje')
grid on

% MENSAJE m(t)
%
% fm=1000;
% m=sin(2*pi*fm*t);
%
% figure(2)
% subplot(2,1,1);
% plot(t*(10^3),m);
% xlabel('tiempo (ms)')
% ylabel('m(t)')
% title('Señal deMensaje')
% grid on
%
% [frecm,XM] = transfourier(m,fs)
% subplot(2,1,2)
% plot(frecm/1000,XM);
% xlabel('frecuencia (kHz)')
% ylabel('M(f)')
% title('Espectro del Mensaje')
% grid on

% Modulación[A+m(t)]c(t)

A=2;

y=p.*(A+m);

figure(3)
subplot(2,1,1);
plot(t*(10^3),y);
hold on
plot(t*(10^3),A+m,'r');
hold on
plot(t*(10^3),-1*m-A,'k');
xlabel('tiempo (ms)')
ylabel('y(t)')
title('SeñalModulada')
grid on

[frecy,XY] = transfourier(y,fs)
subplot(2,1,2)
plot(frecy/1000,XY);
xlabel('frecuencia (kHz)')
ylabel('Y(f)')
title('Espectro de la Señal Modulada')
grid on


%DEMODULACION[A+m(t)]p(t)

z=y.*p;

figure(4)
subplot(2,1,1);
plot(t*(10^3),z);
hold on
plot(t*(10^3),m+A,'r');
hold on
plot(t*(10^3),-m-A,'k');
xlabel('tiempo (ms)')
ylabel('z(t)')
title('Señal Demodulada')
grid on[frecy,XZ] = transfourier(z,fs)
subplot(2,1,2)
plot(frecy/1000,XZ);
xlabel('frecuencia (kHz)')
ylabel('Z(f)')
title('Espectro de la Señal Demodulada')
grid on

% %SEÑAL MODULADA y(t)
%
% y=m.*p;
%
%figure(3)
% subplot(2,1,1);
% plot(t*(10^3),y);
% hold on
% plot(t*(10^3),m,'r');
% hold on
% plot(t*(10^3),-1*m,'k');
% xlabel('tiempo (ms)')
% ylabel('y(t)')
% title('Señal Modulada')
% grid on
%
%...