bpsk.zip_bpsk

clc; clear all; close all; Ts = 1; fc = 10; N1 = 200; N2 = 1000; dt = Ts/N1; t = 0:dt:(N2*Ts-dt); d = sign(randn(1,N2)); st = rectpulse(d,N1); bp = st.*cos(2*pi*fc*t); figure; subplot(2,1,1); plot(t,bp); axis([0,4*Ts,-1,1]); clc; clear all; close all; Ts = 1; fc = 10; N1 = 200; N2 = 1000; delay = 10; dt = Ts/N1; t = 0:dt:(N2*Ts-dt)+2*delay; d = sign(randn(1,N2)); st = rcosflt(d,1/Ts,N1/Ts,'fir',1,delay); bp = st'.*cos(2*pi*fc*t); figure; subplot(2,1,1); plot(t,bp); axis([10,20,-1.1,1.1]); hold on xlabel('t'); ylabel('lc¡ª¡ªbpsk of time'); grid on NFFT = 2^16; window = boxcar(length(bp)); [p,f] = periodogram(bp,window,NFFT,1/dt); subplot(2,1,2) plot(f,[p,f]); axis([9,11,0,2]); hold on xlabel('t'); ylabel('lc¡ª¡ªbpsk'); grid on NFFT = 2^16; window = boxcar(length(bp)); [p,f] = periodogram(bp,window,NFFT,1/dt); subplot(2,1,2) plot(f,p); axis([7,13,0,2]); clc; clear all; close all; Ts = 1; fc = 10; N1 = 200; N2 = 1000; delay = 10; dt = Ts/N1; t = 0:dt:(N2*Ts-dt)+2*delay; d = sign(randn(1,N2)); st = rcosflt(d,1/Ts,N1/Ts,'fir',1,delay); bp = st'.*cos(2*pi*fc*t); figure; subplot(2,1,1); plot(t,bp); axis([10,20,-1.1,1.1]); hold on xlabel('t'); ylabel('lc¡ª¡ªbpsk of time'); grid on NFFT = 2^16; window = boxcar(length(bp)); [p,f] = periodogram(bp,window,NFFT,1/dt); subplot(2,1,2) plot(f,[p,f]); axis([9,11,0,2]); hold on xlabel('f'); ylabel('lc¡ª¡ªbpsk'); grid on