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.4/CH09Exa4.sce | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 1970/CH9/EX9.4/CH09Exa4.sce

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

diff --git a/1970/CH9/EX9.4/CH09Exa4.sce b/1970/CH9/EX9.4/CH09Exa4.sce
new file mode 100755
index 000000000..c02d1a769
--- /dev/null
+++ b/1970/CH9/EX9.4/CH09Exa4.sce
@@ -0,0 +1,16 @@
+// Scilab code Exa9.4 : : Page-391 (2011)
+clc; clear;
+A = 77;        // Mass number of the isotopes
+Z = round (A/((0.015*A^(2/3))+2));    // Atomic number of stable isotope
+// Check the stability !!!!!
+  if Z == 34 then
+    printf("\nSe( %d,%d) is stable \nAs (%d,%d) and Br(%d,%d) are unstable", Z, A, Z-1, A, Z+1, A);
+  elseif Z == 33 then
+    printf("\nAs( %d,%d) is stable \nSe (%d,%d) and Br(%d,%d) are unstable", Z, A, Z+1, A, Z+2, A);
+   elseif Z == 35 then
+    printf("\nBr( %d,%d) is stable \nSe (%d,%d) and As(%d,%d) are unstable",Z,A,Z-2,A,Z-1,A);      
+end
+
+// Result
+// Se( 34,77) is stable 
+// As (33,77) and Br(35,77) are unstable 
\ No newline at end of file
-- 
cgit