1 files changed, 23 insertions, 0 deletions
diff --git a/1997/CH9/EX9.17/example17.sce b/1997/CH9/EX9.17/example17.sce
new file mode 100755
index 000000000..4d3f2ccb3
--- /dev/null
+++ b/1997/CH9/EX9.17/example17.sce
@@ -0,0 +1,23 @@
+//Chapter-9 example 17
+//=============================================================================
+clc;
+clear;
+//input data
+F     = 8*10^9;//radar operating frequency in hz
+Vo    = 3*10^10;//velocity of EM wave in cm/s
+D     = 9;//pyramida horn  diameter in cm
+W     = 4;//pyramida horn  width in cm
+//Calculations
+lamda = Vo/F//wavelength in cm
+HPBW_E = 56*(lamda/D)//halfpower beamwidth in E-plane;
+HPBW_H = 67*(lamda/W)//halfpower beamwidth in H-plane;
+Gp     = (4.5*W*D)/(lamda*lamda);//power gain
+G      = 10*log10(Gp);//power gain in dB
+Di     =(7.5*W*D)/(lamda*lamda);//directivity
+
+
+//Output
+mprintf('Halfpower beamwidth ib E-plane is %3.2f degrees\n Halfpower beamwidth iN H-plane is %3.2f degrees\n Powergain is %3.2f dB\n Directivity is %3.2f',HPBW_E,HPBW_H,G,Di);
+
+
+//=============end of the program==============================================