summaryrefslogtreecommitdiff
path: root/3535/CH9/EX9.2/Ex9_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '3535/CH9/EX9.2/Ex9_2.sce')
-rw-r--r--3535/CH9/EX9.2/Ex9_2.sce9
1 files changed, 9 insertions, 0 deletions
diff --git a/3535/CH9/EX9.2/Ex9_2.sce b/3535/CH9/EX9.2/Ex9_2.sce
new file mode 100644
index 000000000..292800b69
--- /dev/null
+++ b/3535/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,9 @@
+//Chapter 9, Example 9.2, Page 242
+clc
+clear
+// kerma rate
+fsMs = (0.6022/18)*((2*12.8*0.5)+(3.5*0.1107))
+K = 1.602*10**-10*fsMs*10**10*0.1
+printf("fsUs/p = %f cm^2/g\n",fsMs)
+printf(" K = %f Gy/s\n",K)
+// Answers may vary due to round off error