1 files changed, 9 insertions, 0 deletions
diff --git a/3020/CH20/EX20.2/ex20_2.sce b/3020/CH20/EX20.2/ex20_2.sce
new file mode 100755
index 000000000..ef6b60b96
--- /dev/null
+++ b/3020/CH20/EX20.2/ex20_2.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+H=1E4;//magnetic field intensity in A/m
+X=3.7E-3;//susceptibility
+u0 = 4e-7*%pi;
+M=X*H;//magnetization in A/m
+B=u0*(M+H);//flux density in Wb/m^2;
+disp('A/m',M,'magnetization is:')
+disp('Wb/m^2',B,'flux density is:')