summaryrefslogtreecommitdiff
path: root/3717/CH11
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3717/CH11
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3717/CH11')
-rw-r--r--3717/CH11/EX11.1/Ex11_1.sce16
-rw-r--r--3717/CH11/EX11.2/Ex11_2.sce16
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