summaryrefslogtreecommitdiff
path: root/1997/CH9/EX9.22/example22.sce
diff options
context:
space:
mode:
Diffstat (limited to '1997/CH9/EX9.22/example22.sce')
-rwxr-xr-x1997/CH9/EX9.22/example22.sce18
1 files changed, 18 insertions, 0 deletions
diff --git a/1997/CH9/EX9.22/example22.sce b/1997/CH9/EX9.22/example22.sce
new file mode 100755
index 000000000..9c3d63add
--- /dev/null
+++ b/1997/CH9/EX9.22/example22.sce
@@ -0,0 +1,18 @@
+//Chapter-9 example 22
+//=============================================================================
+clc;
+clear;
+disp('For half wave dipole Emax = 60I/r')
+disp('But Pr = 73 I^2 Watts');
+disp('For Pr = 1 W');
+disp('I = 1/sqrt(73)');
+disp('Emax = (60/r)*I');
+disp('Gdmax = (4*pi*phi)/Pr'),disp('as Pr =1 and phi = (r^2)*(E^2)/no')
+disp('Gdmax = 4*pi*(r^2)*(E^2)/no');
+disp(' = (4*pi*(r^2)*60*60)/(no*r*r*73)' );
+disp(' = (4*pi*60*60)/(120*pi*73)');
+Gdmax = 120/73;
+
+mprintf('Directivity of half wave dipole is %3.2f',Gdmax );
+//=============end of program===================================================
+