initial commit / add all books

1 files changed, 16 insertions, 0 deletions

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