diff options
Diffstat (limited to '3535/CH9/EX9.3/Ex9_3.sce')
| -rw-r--r-- | 3535/CH9/EX9.3/Ex9_3.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/3535/CH9/EX9.3/Ex9_3.sce b/3535/CH9/EX9.3/Ex9_3.sce new file mode 100644 index 000000000..7344f0eac --- /dev/null +++ b/3535/CH9/EX9.3/Ex9_3.sce @@ -0,0 +1,13 @@ +//Chapter 9, Example 9.3, Page 245 +clc +clear +//Find fluence and H +Sp = 10**9 +dt = 600 +r = 1500 +E = 0.03103 +phi = Sp*dt/(4*%pi*r**2) +H = 1.602*10**-10*E*phi +printf("fluence = %e cm^2\n",phi) +printf(" H = %f microSv\n",H*10**8) +// Answer may vary due to round off error |