4 files changed, 38 insertions, 0 deletions
diff --git a/3850/CH37/EX37.1/Ex37_1.sce b/3850/CH37/EX37.1/Ex37_1.sce
new file mode 100644
index 000000000..5aa9dfa6a
--- /dev/null
+++ b/3850/CH37/EX37.1/Ex37_1.sce
@@ -0,0 +1,20 @@
+
+//To Calculate the Intensity of Magnetization of Bar Magnet
+
+//Example 37.1
+
+clear;
+
+clc;
+
+m=6.6*10^-3;//Mass of bar magnet (made of steel) in kg
+
+rho=7.9*10^3;//Density of steel in kg/m^3
+
+M=2.5;//Magnetic Moment of Bar Magnet in A-m^2
+
+V=m/rho;//Volume of bar magnet in m^3
+
+I=M/V;//Intensity of Magnetization in A/m
+
+printf("Intensity of magnetization of bar magnet = %.1f*10^6 A/m",I*10^-6);
diff --git a/3850/CH37/EX37.1/Ex37_1.txt b/3850/CH37/EX37.1/Ex37_1.txt
new file mode 100644
index 000000000..310e91f40
--- /dev/null
+++ b/3850/CH37/EX37.1/Ex37_1.txt
@@ -0,0 +1,2 @@
+
+ Intensity of magnetization of bar magnet = 3.0*10^6 A/m
+\ No newline at end of file
diff --git a/3850/CH37/EX37.3/Ex37_3.sce b/3850/CH37/EX37.3/Ex37_3.sce
new file mode 100644
index 000000000..69190e775
--- /dev/null
+++ b/3850/CH37/EX37.3/Ex37_3.sce
@@ -0,0 +1,14 @@
+
+//To Calculate the percentage increase in Magnetic Field
+
+//Example 37.3
+
+clear;
+
+clc;
+
+X=2.1*10^-5;//Susceptibility of Aluminium
+
+Bin=X*100;//Percentage increase in Magnetic Field
+
+printf("Percentage increase in the Magnetic Field = %.1f*10^-3",Bin*10^3);
diff --git a/3850/CH37/EX37.3/Ex37_3.txt b/3850/CH37/EX37.3/Ex37_3.txt
new file mode 100644
index 000000000..0eca107e6
--- /dev/null
+++ b/3850/CH37/EX37.3/Ex37_3.txt
@@ -0,0 +1,2 @@
+
+ Percentage increase in the Magnetic Field = 2.1*10^-3
+\ No newline at end of file