1 files changed, 17 insertions, 0 deletions
diff --git a/2681/CH8/EX8.21/Ex8_21.sce b/2681/CH8/EX8.21/Ex8_21.sce
new file mode 100755
index 000000000..5042380f7
--- /dev/null
+++ b/2681/CH8/EX8.21/Ex8_21.sce
@@ -0,0 +1,17 @@
+//radiation resistance of hertzian dipole
+//given
+clc
+lemda=1//as the radiation resistance is independent  of lemda
+function[Rr]=rad_resistance(dl)
+ for(lemda!=0)
+     Rr=80*%pi^2*(dl/lemda)^2
+     Rr=round(Rr*1000)/1000///rounding off decimals
+     end
+ endfunction
+dl=lemda/20
+[Rr1]=rad_resistance(dl)
+dl=lemda/30
+[Rr2]=rad_resistance(dl)
+dl=lemda/40
+[Rr3]=rad_resistance(dl)
+disp(Rr3,Rr2,Rr1,'the radiation resistance of hertzian dipole')