summaryrefslogtreecommitdiff
path: root/1970/CH16/EX16.1/CH16Exa1.sce
diff options
context:
space:
mode:
Diffstat (limited to '1970/CH16/EX16.1/CH16Exa1.sce')
-rwxr-xr-x1970/CH16/EX16.1/CH16Exa1.sce9
1 files changed, 9 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