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

---
 539/CH20/EX20.1.b/Example_20_1_b.sce | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 539/CH20/EX20.1.b/Example_20_1_b.sce

(limited to '539/CH20/EX20.1.b')

diff --git a/539/CH20/EX20.1.b/Example_20_1_b.sce b/539/CH20/EX20.1.b/Example_20_1_b.sce
new file mode 100755
index 000000000..ccb7d8834
--- /dev/null
+++ b/539/CH20/EX20.1.b/Example_20_1_b.sce
@@ -0,0 +1,29 @@
+//Example 20.1 Calculation of saturation magnetisation and flux density for Nickel
+
+clear;
+clc;
+
+printf("Example 20.1\n");
+
+b_m=9.27*10^-24; //ampere*m^2  (Bohr Magneton)
+
+Na=6.023*10^23;  //atoms/mol  (Avogadro's No.)
+
+d=8.9*10^6;  //g/m^3   (density)
+
+uo=4*%pi*10^-7;  //Permitivity of free space
+
+A=58.71;  //g/mol  (Atomic weigth of Nickel)
+
+N=d*Na/A;  //No. of atoms per cubic meter
+
+// M is saturation magnetisation
+M=0.6*b_m*N;  //0.6= Bohr Magneton/atom
+
+
+//B = Saturation Flux Density
+B=uo*M;
+
+printf("\nSaturation Flux Density is : %f Tesla\n",B);
+
+// End
\ No newline at end of file
-- 
cgit