summaryrefslogtreecommitdiff
path: root/1736/CH3/EX3.5/Ch03Ex5.sce
diff options
context:
space:
mode:
Diffstat (limited to '1736/CH3/EX3.5/Ch03Ex5.sce')
-rwxr-xr-x1736/CH3/EX3.5/Ch03Ex5.sce10
1 files changed, 10 insertions, 0 deletions
diff --git a/1736/CH3/EX3.5/Ch03Ex5.sce b/1736/CH3/EX3.5/Ch03Ex5.sce
new file mode 100755
index 000000000..2d828dbf4
--- /dev/null
+++ b/1736/CH3/EX3.5/Ch03Ex5.sce
@@ -0,0 +1,10 @@
+// Scilab Code Ex3.5: Page-89 (2006)
+clc; clear;
+k = 1.38e-023; // Boltzmann constant, J/K
+theta_D = 1440; // Debye temperature for Be, K
+h = 6.626e-034; // Planck's constant, Js
+f_D = k*theta_D/h; // Debye cut off frequency of Be, Hz
+printf("\nThe Debye cut off frequency of Be = %g per sec", f_D);
+
+// Result
+// The Debye cut off frequency of Be = 2.99909e+013 per sec