1 files changed, 15 insertions, 0 deletions
diff --git a/2863/CH2/EX2.41/ex2_41.sce b/2863/CH2/EX2.41/ex2_41.sce
new file mode 100755
index 000000000..d6cb30b59
--- /dev/null
+++ b/2863/CH2/EX2.41/ex2_41.sce
@@ -0,0 +1,15 @@
+//chapter 2
+//Etheta=n0Im/2pir*cos(pi/2 cos(theta)/sin(theta))
+printf("\n");
+Pin=100;
+n=0.5;
+r=500;
+Prad=n*Pin;
+printf("the radiated power is %gW",Prad);
+Rrad=73;//for half wave dipole
+Im=sqrt((2*Prad)/Rrad);
+n0=120*(%pi);
+Etheta=(cos((%pi/2)*cos(%pi/3))/sin(%pi/3))*n0*(Im/(2*(%pi)*r));
+printf("\nthe electric field is given by %gV/m",Etheta);
+Pavg=(0.5*(Etheta)^2)/(n0);
+printf("\nthe average power is %gW",Pavg);