3 files changed, 44 insertions, 0 deletions
diff --git a/752/CH16/EX16.19.1/16_19_1.sce b/752/CH16/EX16.19.1/16_19_1.sce
new file mode 100755
index 000000000..50d34c43d
--- /dev/null
+++ b/752/CH16/EX16.19.1/16_19_1.sce
@@ -0,0 +1,17 @@
+clc;
+//prob no. 16.19.1
+// Paraboloida reflector antenna is given with
+D=6;//reflector diameter in m
+n=0.65;//illumination effeciency
+f=10^10;//frequency of operation in Hz
+c=3*10^8;//velo of light in m/s
+wl=c/f;
+A=(%pi*D^2)/4;
+A_eff=n*A;
+disp('m^2',A_eff,'Effective area is');
+D0=4*%pi*A_eff/wl^2;
+disp(D0,'The directivity is');
+BW_dB=70*wl/D;
+disp('degree',BW_dB,'The -3dB beamwidth is');
+BW_null=2*BW_dB;
+disp('degree',BW_null,'The null beamwidth is');
+\ No newline at end of file
diff --git a/752/CH16/EX16.7.2/16_7_2.sce b/752/CH16/EX16.7.2/16_7_2.sce
new file mode 100755
index 000000000..81aa8441c
--- /dev/null
+++ b/752/CH16/EX16.7.2/16_7_2.sce
@@ -0,0 +1,14 @@
+clc;
+//page no 590
+//prob no. 16.7.2
+//For the Hertzian dipole, the radiation pattern is described by g(x)=sin^2(x) and g(y)=1
+// Determination of -3dB beamwidth
+// from the polar diagram shown we have
+g_x=0.5;
+x=asind(sqrt(g_x));
+g_y=0.5;
+y1=asind(sqrt(g_y));
+y=y1+90;
+//Therefore
+z=y-x;
+disp('degree',z,'The -3dB beamwidth is');
+\ No newline at end of file
diff --git a/752/CH16/EX16.9.1/16_9_1.sce b/752/CH16/EX16.9.1/16_9_1.sce
new file mode 100755
index 000000000..00f21d498
--- /dev/null
+++ b/752/CH16/EX16.9.1/16_9_1.sce
@@ -0,0 +1,13 @@
+clc;
+//prob no. 16.9.1
+//Half dipole antenna is given with I=Io*cos(Bl) where l=0
+//The physical length of the antenna is wl/2
+//consider wl=unity and current Io=unity
+Io=1;
+wl=1;
+phy_length=wl/2;
+I_av=2*Io/%pi;
+//Thus area is given as 
+Area=I_av*phy_length;
+// From the above eq l_effective is given as
+disp('l_eff= wl/pi');
+\ No newline at end of file