1 files changed, 10 insertions, 0 deletions
diff --git a/3020/CH20/EX20.1/ex20_1.sce b/3020/CH20/EX20.1/ex20_1.sce
new file mode 100755
index 000000000..c29437d99
--- /dev/null
+++ b/3020/CH20/EX20.1/ex20_1.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+M=2300;//magnetization in A/m
+B=0.00314;//flux density in Wb/m^2
+u0=4*%pi*1e-7;//permiability of vacume
+H=(B/u0)-M;//magnetic force
+ur=(M/H)+1;//relative permiability
+disp('A/m',H,'magnetic force is:')
+disp('',ur,'relative permiability is:')
+