1 files changed, 16 insertions, 0 deletions
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)