1 files changed, 23 insertions, 0 deletions
diff --git a/1997/CH9/EX9.16/example16.sce b/1997/CH9/EX9.16/example16.sce
new file mode 100755
index 000000000..f8669ce03
--- /dev/null
+++ b/1997/CH9/EX9.16/example16.sce
@@ -0,0 +1,23 @@
+//Chapter-9 example 16
+//=============================================================================
+clc;
+clear;
+//input data
+//Da = 7*lamda; diameter of antenna
+
+//Calculations
+//HPBW = 70*(lamda/Da)
+//HPBW = 70*(lamda/(7*lamda));
+HPBW   = 70/7;//half power beamwidth
+NNBW   = 2*HPBW;//null to null beamwidth
+//Gp  = 6.4*(Da/lamda)^2; //power gain 
+
+//Gp  = 6.4*((7*lamda)/lamda)^2 ;  power gain of parabolic reflector
+Gp    =6.4*(7)^2;
+G     = 10*log10(Gp)//gain in dB
+
+
+//Output
+mprintf('Gain of parabolic reflector is %3.1f \n HPBW of Antenna is %3.1f degrees\n NNBW of Antenna is %3.1f degrees  ',Gp,HPBW,NNBW);
+
+//=============end of the program==============================================