2 files changed, 24 insertions, 0 deletions
diff --git a/446/CH13/EX13.3/13_3.sce b/446/CH13/EX13.3/13_3.sce
new file mode 100755
index 000000000..22df866bb
--- /dev/null
+++ b/446/CH13/EX13.3/13_3.sce
@@ -0,0 +1,18 @@
+clear
+clc
+disp('Exa-13.3(a)')
+v=1.5*1.5*2.5*(10^-6)*10^2; //volume in cm3
+p=8.9;         //density in g/cm3
+m=p*v;Na=6.023*10^23 //mass and Avagadro's number
+M=58.9;        //Given values
+N=m*Na/M;
+i=12*10^-6;       //thickness of beam
+q=1.6*10^-19;
+Io=i/(2*q);      //intensity
+s=0.64*10^-24;   //Given values
+S=1.5*1.5;
+R=N*s*Io/S;       //rate of production of 61Cu
+printf('The rate of neutrons emitted from the target is %.2e particles/second\n',R);
+disp('Exa-13.3(b)')
+act=R*(1-(%e^((0.693)*(-2/3.41))));          //activity
+printf('The activity after 2.0h is %e/sec',act);
diff --git a/446/CH13/EX13.3/13_3.txt b/446/CH13/EX13.3/13_3.txt
new file mode 100755
index 000000000..08e698811
--- /dev/null
+++ b/446/CH13/EX13.3/13_3.txt
@@ -0,0 +1,6 @@
+  
+ Exa-13.3(a)   
+The rate of neutrons emitted from the target is 5.46e+008 particles/second
+ 
+ Exa-13.3(b)   
+The activity after 2.0h is 1.823783e+008/sec 
+\ No newline at end of file