summaryrefslogtreecommitdiff
path: root/2863/CH2/EX2.9/ex2_9.sce
diff options
context:
space:
mode:
Diffstat (limited to '2863/CH2/EX2.9/ex2_9.sce')
-rwxr-xr-x2863/CH2/EX2.9/ex2_9.sce12
1 files changed, 12 insertions, 0 deletions
diff --git a/2863/CH2/EX2.9/ex2_9.sce b/2863/CH2/EX2.9/ex2_9.sce
new file mode 100755
index 000000000..2a27c7906
--- /dev/null
+++ b/2863/CH2/EX2.9/ex2_9.sce
@@ -0,0 +1,12 @@
+//chapter 2
+//Etheta=60Im/r*(cos(pi/2cos(theta))/sin(theta));
+//theta=90
+//Pavg=Rrad*Irms^2;
+//Irms=Im/sqrt(2)
+printf("\n");
+Im=100*10^-3;
+r=100
+Etheta=(60*10^-3);
+H=(60*10^-3)/(120*(%pi));
+Pavg=73*(10^-1/sqrt(2))^2;//Rrad=73ohm for half wave dipole
+printf("the average power is %gW",Pavg);