Matlab Program for Phase Shift Keying (PSK) Generation

Phase Shift Keying - Matlab Program:

clc
clear all;
close all;
N=10;%No.of Data
x=randint(1,N);
k=1;
for t=0.01:0.01:10
    c(k)=2*sin(2*pi*t);
    k=k+1;
end
for j=1:1:N
    if x(j)==0
        for i=(((j-1)*100)+1):1:(j*100)
            y(i)=0;
            tr(i)=-c(i);
        end
    else
        for i=(((j-1)*100)+1):1:(j*100)
            y(i)=1;
            tr(i)=c(i);
        end
    end
end
for i=1:1:1000
    re(i)=tr(i)*c(i);
end
for j=1:1:N
    d=0;
    for i=(((j-1)*100)+1):1:(j*100)
        d=d+re(i)
    end
    if d>=0
        det(j)=1;
    else
        det(j)=0;
    end
end

for j=1:1:N
    if det(j)==0
        for i=(((j-1)*100)+1):1:(j*100)
            det(i)=0;
        end
    end
    if x(j)==1
        for i=(((j-1)*100)+1):1:(j*100)
           det(i)=1;
        end
    end
end
subplot(5,1,1);
plot(y);
title('Message Signal');

subplot(5,1,2);
plot(c);
title('Carrier Signal');

subplot(5,1,3);
plot(tr);
title('Transmitted Signal');

subplot(5,1,4);
plot(re);
title('Received Signal');

subplot(5,1,5);
plot(det);
title('Detected Signal');

Phase Shift Keying Generation:

clc
clear all;
close all;
N=10;%No.of Data
x=randint(1,N);
k=1;
for t=0.01:0.01:10
    c(k)=2*sin(2*pi*t);
    k=k+1;
end
for j=1:1:N
    if x(j)==0
        for i=(((j-1)*100)+1):1:(j*100)
            y(i)=0;
            tr(i)=-c(i);
        end
    else
        for i=(((j-1)*100)+1):1:(j*100)
            y(i)=1;
            tr(i)=c(i);
        end
    end
end
for i=1:1:1000
    re(i)=tr(i)*c(i);
end
for j=1:1:N
    d=0;
    for i=(((j-1)*100)+1):1:(j*100)
        d=d+re(i)
    end
    if d>=0
        det(j)=1;
    else
        det(j)=0;
    end
end

for j=1:1:N
    if det(j)==0
        for i=(((j-1)*100)+1):1:(j*100)
            det(i)=0;
        end
    end
    i
        for i=(((j-1)*100)+1):1:(j*100)
            y(i)=1;
            tr(i)=c(i);
        end
    end
end

x%Transmitted Data Sequence
r%Detected Data Sequence
figure(1);
subplot(3,1,1);
plot(y);
title('Binary Input');
xlabel('Time in ms');
ylabel('Amplitude');
subplot(3,1,2);
plot(c);
title('Carrier Signal');
xlabel('Time in ms');
ylabel('Amplitude');
subplot(3,1,3);
plot(R);
title('Phase Shift Keying');
xlabel('Time in ms');
ylabel('Amplitude');