diff options
Diffstat (limited to '3773/CH23/EX23.3/Ex23_3.sce')
| -rw-r--r-- | 3773/CH23/EX23.3/Ex23_3.sce | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/3773/CH23/EX23.3/Ex23_3.sce b/3773/CH23/EX23.3/Ex23_3.sce new file mode 100644 index 000000000..9517c2d74 --- /dev/null +++ b/3773/CH23/EX23.3/Ex23_3.sce @@ -0,0 +1,22 @@ +//Chapter 23: Ground Wave Propagation +//Example 23-2.2 +clc; + +//Variable Initialization +f = 10e6 //Frequency (Hz) +sigma = 5 //Standard deviation of surface irregularities (unitless) +theta1 = 30 //Angle of incidence as measured from normal angle (degrees) +theta2 = 45 //Angle of incidence as measured from normal angle (degrees) +theta3 = 60 //Angle of incidence as measured from normal angle (degrees) +c = 3e8 //Speed of light (m/s) + +//Calculations +wave_lt = c/f //Wavelength (m) +R1 = 4*%pi*sigma*sin(theta1*%pi/180)/wave_lt //Roughness factor for theta1 (unitless) +R2 = 4*%pi*sigma*sin(theta2*%pi/180)/wave_lt //Roughness factor for theta2 (unitless) +R3 = 4*%pi*sigma*sin(theta3*%pi/180)/wave_lt //Roughness factor for theta3 (unitless) + +//Result +mprintf( "The roughness factor for 30 degrees is %.4f", R1) +mprintf( "\nThe roughness factor for 45 degrees is %.3f", R2) +mprintf( "\nThe roughness factor for 60 degrees is %.4f", R3) |