2 files changed, 32 insertions, 0 deletions
diff --git a/3717/CH11/EX11.1/Ex11_1.sce b/3717/CH11/EX11.1/Ex11_1.sce
new file mode 100644
index 000000000..c6cd31d0e
--- /dev/null
+++ b/3717/CH11/EX11.1/Ex11_1.sce
@@ -0,0 +1,16 @@
+// Ex11_1 Page:238 (2014)
+clc;clear;
+h = 6.626e-034;    // Planck's constant, Js
+k = 1.38e-023;    // Boltzmann constant, J/K
+// Case-I: For Cu
+theta_D = 350;    // Debye temperature for Cu, K
+nu_D = k*theta_D/h;    // The highest possible frequency for Cu, per sec
+printf("\nThe highest possible frequency for Cu = %6.3fe+011 per sec", nu_D/1e+011);
+// Case-II: For Si
+theta_D = 550;    // Debye temperature for Si, K
+nu_D = k*theta_D/h;    // The highest possible frequency for Si, per sec
+printf("\nThe highest possible frequency for Si = %6.2fe+011 per sec", nu_D/1e+011);
+
+// Result
+// The highest possible frequency for Cu = 72.895e+011 per sec
+// The highest possible frequency for Si = 114.55e+011 per sec
+\ No newline at end of file
diff --git a/3717/CH11/EX11.2/Ex11_2.sce b/3717/CH11/EX11.2/Ex11_2.sce
new file mode 100644
index 000000000..f82501ece
--- /dev/null
+++ b/3717/CH11/EX11.2/Ex11_2.sce
@@ -0,0 +1,16 @@
+// Ex11_2 Page:238 (2014)
+clc;clear;
+h = 6.626e-034;    // Planck's constant, Js
+N = 6.02e+026;    // Avogadro's number, per k-mol 
+k = 1.38e-023;    // Boltzmann constant, J/K
+T = 10;    // Temperature of Lead, K
+theta_D = 105;    // Debye temperature of lead, K
+C = 12/5*3.14^4*N*k*(T/theta_D)^3;    // Specific heat of Pb from Debye T-cube law, J/K/k-mol
+printf("\nThe specific heat of Pb = %6.1f J/K/k-mol", C);
+nu_D = k*theta_D/h;    // The highest possible frequency for Cu, per sec
+printf("\nThe highest frequency for lead = %5.2fe+011 per sec", nu_D/1e+011);
+
+// Result
+// The specific heat of Pb = 1674.3 J/K/k-mol
+// The highest frequency for lead = 21.87e+011 per sec
+// The answers vary due to round off error