diff options
Diffstat (limited to '2681/CH8/EX8.22/Ex8_22.sce')
| -rwxr-xr-x | 2681/CH8/EX8.22/Ex8_22.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/2681/CH8/EX8.22/Ex8_22.sce b/2681/CH8/EX8.22/Ex8_22.sce new file mode 100755 index 000000000..f4a22e343 --- /dev/null +++ b/2681/CH8/EX8.22/Ex8_22.sce @@ -0,0 +1,14 @@ +//directivity of half wave dipole
+//given
+clc
+Pr=1//watts
+r=1//as value of "r" do not effect the expression
+n0=120*%pi
+for(r!=0)
+I=sqrt(Pr/73)
+Emax=60*I/r
+si=r^2*Emax^2/n0
+gdmax=4*%pi*(si)/Pr
+gdmax=round(gdmax*1000)/1000///rounding off decimals
+end
+disp(gdmax,'the directivity expression for half wave dipole')
|