1 files changed, 17 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