BPSK

clc;
clear all;
close all;
fc=input('fc=');
fs=input('fs=');
bit=input('Bit sequence=');
L1=length(bit);
I=[];
for i=1:L1
    I=[I bit(i)*ones(1,fs)];
end
L2=length(I);
t=(10/L2):(10/L2):10;
subplot(5,1,1); plot(t,I);
xlabel('Time'); ylabel('Level'); title('Bit sequence');
I(I==0)=-1;
C=sin(2*pi*fc*t);
BPSK=I.*C;
DPSK=BPSK.*C;
L3=length(BPSK);
r=[];
for i=1:L3
    if DPSK(i)>0
        r=[r 1];
    else
        r=[r 0];
    end
end
subplot(5,1,2); plot(t,I);
xlabel('Time'); ylabel('Level'); title('Bit sequence');
subplot(5,1,3); plot(t,C);
xlabel('Time'); ylabel('Amplitude'); title('Carrier signal');
subplot(5,1,4); plot(t,BPSK);
xlabel('Time'); ylabel('Amplitude'); title('BPSK signal');
subplot(5,1,5); plot(t,r);
xlabel('Time'); ylabel('Level'); title('Original sequence');