1 files changed, 20 insertions, 0 deletions
diff --git a/2219/CH13/EX13.12/Ex13_12.sce b/2219/CH13/EX13.12/Ex13_12.sce
new file mode 100755
index 000000000..fb55616ae
--- /dev/null
+++ b/2219/CH13/EX13.12/Ex13_12.sce
@@ -0,0 +1,20 @@
+//Chapter 13 example 12
+//------------------------------------------------------------------------------
+clc;
+clear;
+// Given data
+f       = 23;               // operating freq. of microwave link in Ghz
+D       = 10;               // single hop path length in miles
+a       = 1;                // topographic factor
+b       = 0.5;              // climatic factor
+DFM     = 40;               // dispersive fade margin
+FFM     = 30;               // flat fade margin
+
+// Calculations
+CFM     = -10*log10(10^(-FFM/10) + 10^(-DFM/10));  // composite fade margin
+U       = a*b*2.5*10^-6 *f*D^3 *10^(-CFM/10);     // unavailability factor 
+U1      = U*525600;                               // outrage time in min per year
+
+// Output
+mprintf('Outrage time = %3.2f minutes per year',U1);
+//------------------------------------------------------------------------------