From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3773/CH23/EX23.2/Ex23_2.sce | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 3773/CH23/EX23.2/Ex23_2.sce

(limited to '3773/CH23/EX23.2/Ex23_2.sce')

diff --git a/3773/CH23/EX23.2/Ex23_2.sce b/3773/CH23/EX23.2/Ex23_2.sce
new file mode 100644
index 000000000..4374b85e1
--- /dev/null
+++ b/3773/CH23/EX23.2/Ex23_2.sce
@@ -0,0 +1,16 @@
+//Chapter 23: Ground Wave Propagation
+//Example 23-2.1
+clc;
+
+//Variable Initialization
+f = 3e6     //Frequency (Hz)
+sigma = 0.5     //Standard deviation of surface irregularities (unitless)
+theta = 30      //Angle of incidence as measured from normal angle (degrees)
+c = 3e8     //Speed of light (m/s)
+
+//Calculations
+wave_lt = c/f   //Wavelength (m)
+R = 4*%pi*sigma*sin(theta*%pi/180)/wave_lt      //Roughness factor (unitless)
+
+//Result
+mprintf("The roughness factor is %.6f",R)
-- 
cgit