summaryrefslogtreecommitdiff
path: root/1004/CH2/EX2.1
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1004/CH2/EX2.1
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1004/CH2/EX2.1')
-rwxr-xr-x1004/CH2/EX2.1/Ch02Ex1.sci9
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