summaryrefslogtreecommitdiff
path: root/1271/CH18/EX18.12
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1271/CH18/EX18.12
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1271/CH18/EX18.12')
-rwxr-xr-x1271/CH18/EX18.12/12.txt5
-rwxr-xr-x1271/CH18/EX18.12/example18_12.sce16
2 files changed, 21 insertions, 0 deletions
diff --git a/1271/CH18/EX18.12/12.txt b/1271/CH18/EX18.12/12.txt
new file mode 100755
index 000000000..5f6c06976
--- /dev/null
+++ b/1271/CH18/EX18.12/12.txt
@@ -0,0 +1,5 @@
+ # PROBLEM 12 #
+Standard formula used
+ Chi = mu_0*Z*e^2 *N*R^2 /(6*m)
+
+ Radius of atom is 0.887689 A.
diff --git a/1271/CH18/EX18.12/example18_12.sce b/1271/CH18/EX18.12/example18_12.sce
new file mode 100755
index 000000000..4af8139b3
--- /dev/null
+++ b/1271/CH18/EX18.12/example18_12.sce
@@ -0,0 +1,16 @@
+clc
+// Given that
+X = -5.6e-6 // magnetic susceptibility of material
+a = 2.55e-10 // lattice constant in m
+H = 1e4 // magnetic field in A/m
+mu_ = 4 * %pi * 1e-7 // magnetic permittivity of space
+m = 9.1e-31 // mass of electron in kg
+e = 1.6e-19 // charge in an electron in C
+// Sample Problem 12 on page no. 18.25
+printf("\n # PROBLEM 12 # \n")
+printf("Standard formula used \n ")
+printf(" Chi = mu_0*Z*e^2 *N*R^2 /(6*m) \n")
+N = 2 / a^3
+z = 1
+R = ((-X * 6 * m) / (mu_ * z * e^2 * N))^(1/2)
+printf("\n Radius of atom is %f A.",R * 1e10)