From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1271/CH18/EX18.14/14.txt           |  5 +++++
 1271/CH18/EX18.14/example18_14.sce | 18 ++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100755 1271/CH18/EX18.14/14.txt
 create mode 100755 1271/CH18/EX18.14/example18_14.sce

(limited to '1271/CH18/EX18.14')

diff --git a/1271/CH18/EX18.14/14.txt b/1271/CH18/EX18.14/14.txt
new file mode 100755
index 000000000..c5c870453
--- /dev/null
+++ b/1271/CH18/EX18.14/14.txt
@@ -0,0 +1,5 @@
+ # PROBLEM 14 # 
+Standard formula used 
+   Chi = mu_0*N*M^2 /(3*k*t) 
+
+ Magnetisation is 107.894727 A/m
diff --git a/1271/CH18/EX18.14/example18_14.sce b/1271/CH18/EX18.14/example18_14.sce
new file mode 100755
index 000000000..069460d0b
--- /dev/null
+++ b/1271/CH18/EX18.14/example18_14.sce
@@ -0,0 +1,18 @@
+clc 
+// Given that 
+w = 168.5 // molecular weight 
+d = 4370 // density of material in kg/m^3
+H = 2e5 // magnetic field in A/m
+T = 300 // room temperature in K
+mu_ = 4 * %pi * 1e-7 // magnetic permittivity of space]
+NA = 6.02e26 // Avogadro no. in per kg
+mu_b = 9.24e-24 // Bohr magnetons in Am^2
+k = 1.38e-23 // Boltzmann's constant in J/K
+// Sample Problem 14 on page no. 18.26
+printf("\n # PROBLEM 14 # \n")
+printf("Standard formula used \n ")
+printf("  Chi = mu_0*N*M^2 /(3*k*t) \n")
+N = d * NA / w
+X = (mu_ * N * (2 * mu_b)^2) / (3 * k * T)
+I = X * H
+printf("\n Magnetisation is %f A/m",I)
-- 
cgit