summaryrefslogtreecommitdiff
path: root/3161/CH6/EX6.1/Ex6_1.sce
blob: 683b13416204bee685768c19f0017fa8503dd76d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
clc;
//page 341
//problem 6.1

//Given messages signal m = [1,0,1,1,0,1]
m = [1,0,1,1,0,1];

//Logical 0 corrsponds to pi i.e %pi and Logical 1 corresponds to 0

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//For BPSK, from the above deduction let the carrier phase be Carrier_Phase_BPSK
for i = 1:5
    if m(i)==1 then
        Carrier_Phase_BPSK(i) = 0;
    else
        Carrier_Phase_BPSK(i) = %pi;
    end
end

disp(Carrier_Phase_BPSK,'The Phase of the carrier signal for BPSK varies as ');

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//For DPSK
//Let b represent the input to balance modulator

//If the initial value of b be 0
b = 0;

for i = 2:5
    b(i) = bitxor(m(i),b(i-1))    
end

//Now the carrier phase, Carrier_Phase_DPSK
for i = 1:5
    if b(i)==1 then
        Carrier_Phase_DPSK(i) = 0;
    else
        Carrier_Phase_DPSK(i) = %pi;
    end
end

//Now the carrier amplitude, Carrier_Amplitude_DPSK
for i = 1:5
    Carrier_Amplitude_DPSK(i) = cos(Carrier_Phase_DPSK(i));
end

disp(Carrier_Phase_DPSK,'The Phase of the carrier signal for DPSK varies as follows, '+'when the initial value of b is 1');
disp(Carrier_Amplitude_DPSK,'The Amplitude of the carrier signal for DPSK varies as follows, '+'when the initial value of b is 1');

//If the initial value of b be 1
b = 1;

for i = 2:5
    b(i) = bitxor(m(i),b(i-1))    
end

//Now the carrier phase, Carrier_Phase_DPSK
for i = 1:5
    if b(i)==1 then
        Carrier_Phase_DPSK(i) = 0;
    else
        Carrier_Phase_DPSK(i) = %pi;
    end
end

//Now the carrier amplitude, Carrier_Amplitude_DPSK
for i = 1:5
    Carrier_Amplitude_DPSK(i) = cos(Carrier_Phase_DPSK(i));
end

disp(Carrier_Phase_DPSK,'The Phase of the carrier signal for DPSK varies as follows, '+'when the initial value of b is 0');
disp(Carrier_Amplitude_DPSK,'The Amplitude of the carrier signal for DPSK varies as follows, '+'when the initial value of b is 0');

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//For DEPSK
//The DEPSK transmitter output is same as that of DPSK

//If the initial value of b be 0
b = 0;

for i = 2:5
    b(i) = bitxor(m(i),b(i-1))    
end

//Now the carrier phase, Carrier_Phase_DPSK
for i = 1:5
    if b(i)==1 then
        Carrier_Phase_DEPSK(i) = 0;
    else
        Carrier_Phase_DEPSK(i) = %pi;
    end
end

disp(Carrier_Phase_DEPSK,'The Phase of the carrier signal for DEPSK varies as follows, '+'when the initial value of b is 1');

//If the initial value of b be 1
b = 1;

for i = 2:5
    b(i) = bitxor(m(i),b(i-1))    
end

//Now the carrier phase, Carrier_Phase_DPSK
for i = 1:5
    if b(i)==1 then
        Carrier_Phase_DEPSK(i) = 0;
    else
        Carrier_Phase_DEPSK(i) = %pi;
    end
end

disp(Carrier_Phase_DEPSK,'The Phase of the carrier signal for DEPSK  varies as, '+'when the initial value of b is 0');