1 files changed, 11 insertions, 0 deletions
diff --git a/1535/CH15/EX15.3/Ch15Ex3.sci b/1535/CH15/EX15.3/Ch15Ex3.sci
new file mode 100755
index 000000000..c07746ea6
--- /dev/null
+++ b/1535/CH15/EX15.3/Ch15Ex3.sci
@@ -0,0 +1,11 @@
+// Scilab Code Ex15.3: Page-323 (2010)
+k = 1.38e-023;    // Boltzmann constant, J/K
+h = 6.626e-034;    // Planck's constant, Js
+theta_E = 1990;    // Einstein temperature of Cu, K
+f_E = k*theta_E/h;    // Einstein frequency for Cu, K
+printf("\nThe Einstein frequency for Cu = %4.2e Hz", f_E);
+printf("\nThe frequency falls in the near infrared region");
+
+// Result
+// The Einstein frequency for Cu = 4.14e+013 Hz
+// The frequency falls in the near infrared region 
+\ No newline at end of file