From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1970/CH9/EX9.16/CH09Exa16.sce | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 1970/CH9/EX9.16/CH09Exa16.sce

(limited to '1970/CH9/EX9.16')

diff --git a/1970/CH9/EX9.16/CH09Exa16.sce b/1970/CH9/EX9.16/CH09Exa16.sce
new file mode 100755
index 000000000..6984d39e6
--- /dev/null
+++ b/1970/CH9/EX9.16/CH09Exa16.sce
@@ -0,0 +1,16 @@
+// Scilab code Exa9.16 : : Page-398 (2011)
+clc; clear;
+h_cut_sqr_upon_2f = 0.01667;        // A constant value, joule square per sec cube
+for I = 4:6
+    if I == 4 then
+        E = I*(I+1)*h_cut_sqr_upon_2f;
+       printf("\nThe energy for 4+ tungsten state = %5.3f MeV", E);
+    elseif I == 6 then
+        E = I*(I+1)*h_cut_sqr_upon_2f; 
+      printf("\nThe energy for 6+ tungsten state = %5.3f MeV", E); 
+    end
+end
+
+// Result
+// The energy for 4+ tungsten state = 0.333 MeV
+// The energy for 6+ tungsten state = 0.700 MeV  
\ No newline at end of file
-- 
cgit