1 files changed, 22 insertions, 0 deletions
diff --git a/1784/CH37/EX37.6/example6.sce b/1784/CH37/EX37.6/example6.sce
new file mode 100755
index 000000000..1794036ce
--- /dev/null
+++ b/1784/CH37/EX37.6/example6.sce
@@ -0,0 +1,22 @@
+//chapter 37
+//example6
+clc
+//given
+n=10*10^2 //turns/m
+i=2 //in amp
+B=1.0 //in wb/m
+u0=4*%pi*10^-7 //in wb/amp-m
+//(A)
+H=n*i
+disp(H,"(A)  Magnetic field strength in amp/m is")
+//(B)
+M=(B-u0*H)/u0
+disp("(B)  Magnetisation is Zero when core is removed")
+disp(M,"  Magnetisation when th ecore is replaced in amp/m")
+//(C)
+disp("(C)  Effective magnetizing current i=i(M,0)=M*(2*%pi*r0/N0)=M/n")
+i=M/n
+disp(i,"  Effective magnetizing current in amp is")
+//D
+Km=B/(u0*H)
+disp(Km,"(D)  Permeability ")