1 files changed, 19 insertions, 0 deletions
diff --git a/1026/CH9/EX9.4/Example9_4.sce b/1026/CH9/EX9.4/Example9_4.sce
new file mode 100755
index 000000000..03f3ba71f
--- /dev/null
+++ b/1026/CH9/EX9.4/Example9_4.sce
@@ -0,0 +1,19 @@
+//chapter9,Example9_4,pg 238
+
+d=2.81*10^-10
+
+theta=14*(%pi/180)//glancing angle
+
+lam=2*d*sin(theta)//min. wavelength
+
+e=1.6*10^-19
+
+V=9100
+
+c=3*10^8
+
+h=(lam*e*V)/c
+
+printf("plancks constant\n")
+
+disp(h)
+\ No newline at end of file