summaryrefslogtreecommitdiff
path: root/2381/CH17/EX17.4/ex_4.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2381/CH17/EX17.4/ex_4.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '2381/CH17/EX17.4/ex_4.sce')
-rwxr-xr-x2381/CH17/EX17.4/ex_4.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/2381/CH17/EX17.4/ex_4.sce b/2381/CH17/EX17.4/ex_4.sce
new file mode 100755
index 000000000..ecda2b89c
--- /dev/null
+++ b/2381/CH17/EX17.4/ex_4.sce
@@ -0,0 +1,14 @@
+//Example 4 // electric and magnetic field
+clc;
+clear;
+close;
+//given data :
+r=2;// in m
+mu0=4*%pi*10^-7;
+epsilon0=8.85*10^-12;
+EbyH=sqrt(mu0/epsilon0);
+EH=1000/(4*r^2*%pi^2);// in W/m^2
+E=sqrt(EH*EbyH);
+H=(EH/E);
+disp(E,"Intensities of electric,E(V/m) = ")
+disp(H,"Magnetic field of radiation,H(Amp-turn/m) = ")