1 files changed, 9 insertions, 0 deletions
diff --git a/1004/CH2/EX2.1/Ch02Ex1.sci b/1004/CH2/EX2.1/Ch02Ex1.sci
new file mode 100755
index 000000000..573bd88dd
--- /dev/null
+++ b/1004/CH2/EX2.1/Ch02Ex1.sci
@@ -0,0 +1,9 @@
+// Scilab Code Ex2.1 Threshold wavelength of tungsten: Pg:4 (2008)
+phi = 4.5*1.6e-019;    // Work function for tungesten, joule
+h = 6.6e-034;    // Planck's constant, Js
+c = 3e+08;    // Speed of light, m/s
+// As phi = h*c/L0, solving for L0
+L0 = h*c/phi;    // Threshold wavelength of tungesten, m
+printf("\nThe threshold wavelength of tungesten = %4d angstrom", L0/1e-010);
+// Result 
+// The threshold wavelength of tungesten = 2750 angstrom 
+\ No newline at end of file