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/CH10/EX10.8/CH10Exa8.sce | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 1970/CH10/EX10.8/CH10Exa8.sce

(limited to '1970/CH10/EX10.8')

diff --git a/1970/CH10/EX10.8/CH10Exa8.sce b/1970/CH10/EX10.8/CH10Exa8.sce
new file mode 100755
index 000000000..c633371aa
--- /dev/null
+++ b/1970/CH10/EX10.8/CH10Exa8.sce
@@ -0,0 +1,18 @@
+// Scilab code Exa10.8 : : Page-457 (2011)
+clc; clear;
+N_0 = 6.02252e+026;        // Avogadro's constant 
+rho = 8.9*10^3;            // Nuclear density of Co-59, Kg per cubic metre
+M = 59;                    // Mass number
+sigma = 30e-028;             // Cross section, per square metre
+phi = 10^16;              // Neutron flux, neutrons per square metre per sec
+d = 0.04e-02;                // Thickness of Co-59 sheet, metre
+t = 3*60*60;                // Total reaction time, sec
+t_half = 5.2*365*86400;        // Half life of Co-60, sec 
+lambda = 0.693/t_half;        // Disintegration constant, per sec
+N_nuclei = round(N_0*rho/M*sigma*phi*d*t);        // Number of nuclei of Co-60 produced
+Init_activity = lambda*N_nuclei;        // Initial activity, decays per sec
+printf("\nThe number of nuclei of Co60 produced = %5.2e \nThe initial activity per Sq. metre = %1.0g decays per sec", N_nuclei, Init_activity);
+
+// Result
+// The number of nuclei of Co60 produced = 1.18e+019 
+// The initial activity per Sq. metre = 5e+010 decays per sec 
\ No newline at end of file
-- 
cgit