initial commit / add all books

7 files changed, 80 insertions, 0 deletions

diff --git a/3535/CH7/EX7.1/Ex7_1.sce b/3535/CH7/EX7.1/Ex7_1.sce
new file mode 100644
index 000000000..d2338a43b
--- /dev/null
+++ b/3535/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,11 @@
+//Chapter 7, Example 7.1, Page 177
+clc
+clear
+// Thickness of shield
+Wmu = 0.07066 // meu of water
+Lmu = 0.7721 // meu of lead
+Wx= log(10)*(1/Wmu)
+Lx= log(10)*(1/Lmu)
+printf("Thickness of water shield = %f cm\n",Wx)
+printf(" Thickness of lead shield = %f cm",Lx)
+//Answers may vary due to round off error
diff --git a/3535/CH7/EX7.2/Ex7_2.sce b/3535/CH7/EX7.2/Ex7_2.sce
new file mode 100644
index 000000000..5f39ee592
--- /dev/null
+++ b/3535/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,13 @@
+//Chapter 7, Example 7.2, Page 179
+clc
+clear
+// Total interaction coefficient
+Femu = 0.05951 // meu/p of iron 
+Pbmu = 0.06803 // meu/p of lead
+w = 0.5
+mew= (w*Femu)+(w*Pbmu)
+Pmix = 2*(1/((1/7.784)+(1/11.35)))
+mmix = mew*Pmix
+printf("(mew/p)^mix = %f cm^2/g\n",mew)
+printf(" (mew)^mix = %f cm^-1",mmix)
+//Answers may vary due to round off error
diff --git a/3535/CH7/EX7.3/Ex7_3.sce b/3535/CH7/EX7.3/Ex7_3.sce
new file mode 100644
index 000000000..0c5a178f7
--- /dev/null
+++ b/3535/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,7 @@
+//Chapter 7, Example 7.3, Page 180
+clc
+clear
+// Absorption coefficient
+AbsC = 0.03343*((2*0.99985*0.333)+(2*0.00015*0.000506)+(0.99756*0.000190)+(0.00039*0.239)+(0.000160*0.00205))
+printf(" Absorption coefficient = %f cm^-1",AbsC)
+//Answers may vary due to round off error
diff --git a/3535/CH7/EX7.4/Ex7_4.sce b/3535/CH7/EX7.4/Ex7_4.sce
new file mode 100644
index 000000000..40bb0576b
--- /dev/null
+++ b/3535/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,13 @@
+//Chapter 7, Example 7.4, Page 186
+clc
+clear
+// Flux density
+Sp = 1.295*10**13
+r = 100
+mew = 0.3222
+phimax = 2*10**3
+phi = Sp*10^-2/(4*%pi*r**2)
+t = -(1/mew)*log(phimax/phi)
+printf("phi = %e cm^-2/s^-1\n",phi)
+printf(" t = %f cm^-1",t)
+//Answers may vary due to round off error
diff --git a/3535/CH7/EX7.5/Ex7_5.sce b/3535/CH7/EX7.5/Ex7_5.sce
new file mode 100644
index 000000000..a7fffe7f3
--- /dev/null
+++ b/3535/CH7/EX7.5/Ex7_5.sce
@@ -0,0 +1,15 @@
+//Chapter 7, Example 7.5, Page 199
+clc
+clear
+// Activity of the sample
+lambda = 7.466*10**-5
+m = 2
+Na = 0.6022*10**24
+A = 55
+sigma  = 13.3*10**-24
+delta = 10**13
+t = 120
+Activity= lambda*(m*Na/A)*sigma*delta*t
+printf("Activity = %e Bq\n",Activity)
+
+//Answers may vary due to round off error
diff --git a/3535/CH7/EX7.6/Ex7_6.sce b/3535/CH7/EX7.6/Ex7_6.sce
new file mode 100644
index 000000000..286d1aa9e
--- /dev/null
+++ b/3535/CH7/EX7.6/Ex7_6.sce
@@ -0,0 +1,9 @@
+//Chapter 7, Example 7.6, Page 206
+clc
+clear
+// Energy required
+Z = 79
+E = 700/Z
+printf("E = %f MeV\n",E)
+
+//Answers may vary due to round off error
diff --git a/3535/CH7/EX7.7/Ex7_7.sce b/3535/CH7/EX7.7/Ex7_7.sce
new file mode 100644
index 000000000..9f8003496
--- /dev/null
+++ b/3535/CH7/EX7.7/Ex7_7.sce
@@ -0,0 +1,12 @@
+//Chapter 7, Example 7.7, Page 209
+clc
+clear
+// Range in water
+x = poly([-2.5839, 1.3767, 0.20954],'x','c')
+r = log10(2)
+pow = horner(x,r)
+Rp = 10**pow
+RT = 3*Rp
+printf("Rp = %f cm\n",Rp)
+printf("RT = %f cm\n",RT)
+//Answers may vary due to round off error