1 files changed, 9 insertions, 0 deletions
diff --git a/3020/CH20/EX20.4/ex20_4.sce b/3020/CH20/EX20.4/ex20_4.sce
new file mode 100755
index 000000000..714bbcb55
--- /dev/null
+++ b/3020/CH20/EX20.4/ex20_4.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+H=1800;//magnetizing field intensity in A/m
+phy=3e-5;//magnetic flux in Wb
+A=0.2e-4;//cross section area
+B=phy/A;//flux density
+u=B/H;//permiability
+disp('Wb/m^2',B,'flux density is')
+disp('H/m',u,'permiability is:')