initial commit / add all books

3 files changed, 28 insertions, 0 deletions

diff --git a/1970/CH16/EX16.1/CH16Exa1.sce b/1970/CH16/EX16.1/CH16Exa1.sce
new file mode 100755
index 000000000..98c44d0c9
--- /dev/null
+++ b/1970/CH16/EX16.1/CH16Exa1.sce
@@ -0,0 +1,9 @@
+// Scilab code Exa16.1 : : Page-672 (2011)
+clc; clear;
+R_d = 25;        // Radiation dose, milli rad
+R_c_gy = 25e-03; // Dose in centigray
+R_Sv = 25*10^-2  // Dose in milli sieverts
+printf("\n25 mrad = %2.0e cGy = %4.2f mSv", R_c_gy, R_Sv);
+
+// Results
+// 25 mrad = 3e-002 cGy = 0.25 mSv 
\ No newline at end of file
diff --git a/1970/CH16/EX16.2/CH16Exa2.sce b/1970/CH16/EX16.2/CH16Exa2.sce
new file mode 100755
index 000000000..3d957caed
--- /dev/null
+++ b/1970/CH16/EX16.2/CH16Exa2.sce
@@ -0,0 +1,7 @@
+// Scilab code Exa16.2 : : Page-673 (2011)
+clc; clear;
+BC_conv = 100*1e+009/3.7e+10;        // Becquerel curie conversion, milli curie
+printf("\n100 mega becquerel = %3.1f milli curie ", BC_conv)
+
+// Results
+// 100 mega becquerel = 2.7 milli curie  
\ No newline at end of file
diff --git a/1970/CH16/EX16.4/CH16Exa4.sce b/1970/CH16/EX16.4/CH16Exa4.sce
new file mode 100755
index 000000000..77304f67b
--- /dev/null
+++ b/1970/CH16/EX16.4/CH16Exa4.sce
@@ -0,0 +1,12 @@
+// Scilab code Exa16.4 : : Page-673 (2011)
+clc; clear;
+A = 80*10^6;        // Activity, becquerel
+t_half = 6*3600;    // Half life, s
+N = A*t_half/0.693;    // Number of surviving radionuclei
+E_released = 0.9*N*(140e+03)*1.6e-19;    // Energy released, joule
+m_l = 1.8;                    // Mass of liver of average man, Kg
+liv_dose = E_released*10^2/m_l;    // Liver dose, centigray
+printf("\nThe requiresd liver dose = %3.1f cGy", liv_dose);
+
+// Result
+// The requiresd liver dose = 2.8 cGy