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

---
 1535/CH15/EX15.4/Ch15Ex4.sci | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 1535/CH15/EX15.4/Ch15Ex4.sci

(limited to '1535/CH15/EX15.4/Ch15Ex4.sci')

diff --git a/1535/CH15/EX15.4/Ch15Ex4.sci b/1535/CH15/EX15.4/Ch15Ex4.sci
new file mode 100755
index 000000000..0d2a6a57e
--- /dev/null
+++ b/1535/CH15/EX15.4/Ch15Ex4.sci
@@ -0,0 +1,16 @@
+// Scilab Code Ex15.4: Page-323 (2010)
+e = 1.6e-019;   // Energy equivalent of 1 eV, J/eV
+N = 6.02e+023;    // Avogadro's number, per mol
+T = 0.05;    // Temperature of Cu, K
+E_F = 7;    // Fermi energy of Cu, eV
+k = 1.38e-023;    // Boltzmann constant, J/K
+h = 6.626e-034;    // Planck's constant, Js
+theta_D = 348;    // Debye temperature of Cu, K
+C_e = %pi^2*N*k^2*T/(2*E_F*e);    // Electronic heat capacity of Cu, J/mol/K
+C_V = 12/5*%pi^4*N*k*(T/theta_D)^3; // Lattice heat capacity of Cu, J/mol/K
+printf("\nThe electronic heat capacity of Cu = %4.2e J/mol/K", C_e);
+printf("\nThe lattice heat capacity of Cu = %4.2e J/mol/K", C_V);
+
+// Result
+// The electronic heat capacity of Cu = 2.53e-005 J/mol/K
+// The lattice heat capacity of Cu = 5.76e-009 J/mol/K 
-- 
cgit