4 files changed, 52 insertions, 0 deletions
diff --git a/1784/CH37/EX37.2/example2.sce b/1784/CH37/EX37.2/example2.sce
new file mode 100755
index 000000000..df5b8ba65
--- /dev/null
+++ b/1784/CH37/EX37.2/example2.sce
@@ -0,0 +1,10 @@
+//chapter 37
+//example2
+clc
+//given
+e=1.6*10^-19 //in coul
+r=5.1*10^-11 //radius of hydrogen atom in meter
+m=9.1*10^-31// mass of electron in kg
+epsilon0=8.9*10^-12 //in coul2/nt-m2
+p=((e^2)/4)*sqrt(r/(%pi*epsilon0*m))
+disp(p,"Orbital dipole moment in amp-m2 is")
diff --git a/1784/CH37/EX37.4/example4.sce b/1784/CH37/EX37.4/example4.sce
new file mode 100755
index 000000000..44a123945
--- /dev/null
+++ b/1784/CH37/EX37.4/example4.sce
@@ -0,0 +1,11 @@
+//chapter 37
+//example4
+clc
+//given
+e=1.6*10^-19 //in coul
+r=5.1*10^-11 //radius of hydrogen atom in meter
+m=9.1*10^-31// mass of electron in kg
+epsilon0=8.9*10^-12 //in coul2/nt-m2
+B=2 //in wb/m2
+delta_p=(e^2*B*r^2)/(4*m)
+disp(delta_p,"Change in Orbital dipole moment in amp-m2 is + 0r -")
diff --git a/1784/CH37/EX37.5/example5.sce b/1784/CH37/EX37.5/example5.sce
new file mode 100755
index 000000000..83e37465b
--- /dev/null
+++ b/1784/CH37/EX37.5/example5.sce
@@ -0,0 +1,9 @@
+//chapter 37
+//example5
+clc
+//given
+u=1.4*10^-26 //in amp-m2
+B=0.50 //wb/m2
+Lp=0.53*10^-34 //in joule-sec
+fp=u*B/(2*%pi*Lp)
+disp(fp,"Precession frequency of phoyon in given magnetic field in cps is")
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 ")