summaryrefslogtreecommitdiff
path: root/1970/CH16/EX16.4/CH16Exa4.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1970/CH16/EX16.4/CH16Exa4.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1970/CH16/EX16.4/CH16Exa4.sce')
-rwxr-xr-x1970/CH16/EX16.4/CH16Exa4.sce12
1 files changed, 12 insertions, 0 deletions
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