5 files changed, 80 insertions, 0 deletions
diff --git a/287/CH13/EX13.1/Exa13_1.sci b/287/CH13/EX13.1/Exa13_1.sci
new file mode 100755
index 000000000..1e3335041
--- /dev/null
+++ b/287/CH13/EX13.1/Exa13_1.sci
@@ -0,0 +1,17 @@
+//Determine level-crossing rate, avg. duration of fade for a cellular system and a vehicle speed.
+
+f = 900e+6;
+c = 3e+8;
+v = 6.67;
+rho = 0.3162;
+
+lambda = c/f;
+fm = v/lambda;
+ 
+n0 = sqrt(2*%pi)*fm;
+Tr = (1.105-1)/(n0*rho);
+Tr1 = (1/(3*v)) * (rho/sqrt(2*%pi));
+
+disp(n0, 'Level-crossing rate')
+disp(Tr, 'Avg. duration of fade (in s)')
+disp(Tr1, 'Avg. duration of fade, using appx. exp. (in s)')
+\ No newline at end of file
diff --git a/287/CH13/EX13.2/Exa13_2.sci b/287/CH13/EX13.2/Exa13_2.sci
new file mode 100755
index 000000000..656193958
--- /dev/null
+++ b/287/CH13/EX13.2/Exa13_2.sci
@@ -0,0 +1,20 @@
+//Determine received signal power at MS receiver and SNR of received signal
+
+lamda = 0.2;
+d = 8000;
+Gt = 8;
+L0 = 8;
+T0 = 1.38e-23;
+Bw = 0.2e+6;
+T = 1160+290;
+
+
+Lp = -20*log10(lamda/(4*%pi*d));
+Pr = Lp + Gt - L0;
+Pn1 = T0*T*Bw;
+Pn = 10*log10(Pn1);
+
+SNR = -Pr-Pn;
+
+disp(-Pr, 'Recieved Signal power (in dBW)')
+disp(SNR, 'SNR of received signal (in dB)')
+\ No newline at end of file
diff --git a/287/CH13/EX13.3/Exa13_3.sci b/287/CH13/EX13.3/Exa13_3.sci
new file mode 100755
index 000000000..e2df3b1eb
--- /dev/null
+++ b/287/CH13/EX13.3/Exa13_3.sci
@@ -0,0 +1,20 @@
+//Determine received signal power at MS receiver and SNR of received signal
+
+lamda = 30*3;
+d = 8000;
+Gt = 8;
+L0 = 8;
+T0 = 1.38e-23;
+Bw = 0.2e+6;
+T = 1160+290;
+
+
+Lp = -20*log10(lamda/(d^2));
+Pr = Lp + Gt - L0;
+Pn1 = T0*T*Bw;
+Pn = 10*log10(Pn1);
+
+SNR = -Pr-Pn;
+
+disp(-Pr, 'Recieved Signal power (in dBW)')
+disp(SNR, 'SNR of received signal (in dB)')
+\ No newline at end of file
diff --git a/287/CH13/EX13.4/Exa13_4.sci b/287/CH13/EX13.4/Exa13_4.sci
new file mode 100755
index 000000000..3052a71ed
--- /dev/null
+++ b/287/CH13/EX13.4/Exa13_4.sci
@@ -0,0 +1,8 @@
+//Determine the probability that the signal exceeds the receiver senstivity
+
+Smin = 100;
+Pr = -110;
+
+Ps =  0.5 - 0.5*((Pr + Smin)/(10*1.414));
+
+disp(Ps, 'Probability that the signal exceeds the receiver senstivity is')
+\ No newline at end of file
diff --git a/287/CH13/EX13.5/Exa13_5.sci b/287/CH13/EX13.5/Exa13_5.sci
new file mode 100755
index 000000000..51b03a4d7
--- /dev/null
+++ b/287/CH13/EX13.5/Exa13_5.sci
@@ -0,0 +1,15 @@
+//Determine mean path loss by two models
+
+Lr = 31.7;
+gamma1 = 5.22;
+gamma2 = 3.27;
+R = 30;
+R0 = 1;
+FAF = 24.4;
+
+
+Ls1 = Lr + 10*gamma1*log10(R/R0) ;
+Ls2 = Lr + 10*gamma1*log10(R/R0) + FAF ;
+
+disp(Ls1, 'Mean path loss by 1st model (in dB)')
+disp(Ls2, 'Mean path loss by 2nd model (in dB)')
+\ No newline at end of file