6 files changed, 45 insertions, 0 deletions
diff --git a/3020/CH6/EX6.1/ex6_1.sce b/3020/CH6/EX6.1/ex6_1.sce
new file mode 100755
index 000000000..3895e7c40
--- /dev/null
+++ b/3020/CH6/EX6.1/ex6_1.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+t = 50; // Thickness of the metal in mm
+d = 1; // Hole diameter in mm
+ss = (d/t)*100;//The percentage sensitivity of the wire 
+disp('%',ss,'The percentage sensitivity of the wire is')
diff --git a/3020/CH6/EX6.2/ex6_2.sce b/3020/CH6/EX6.2/ex6_2.sce
new file mode 100755
index 000000000..54ddf29a8
--- /dev/null
+++ b/3020/CH6/EX6.2/ex6_2.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+I = 20e-3; // Tube current in Ampere
+L = 1; // Source to film distance in meters
+t = 60; // Exposure time in seconds
+EF =(I*t)/(L^2);//The exposure factor
+disp('',EF,'The exposure factor is')
diff --git a/3020/CH6/EX6.3/ex6_3.sce b/3020/CH6/EX6.3/ex6_3.sce
new file mode 100755
index 000000000..4d1a91c63
--- /dev/null
+++ b/3020/CH6/EX6.3/ex6_3.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+RI = (1/20); // Reduction in intensity
+u = 1.62; // Linear absorption coefficent in per cm
+x = log(20)*1e-2/u;//The thickness of aluminuim
+disp('m',x,'The thickness of aluminuim is ')
+
diff --git a/3020/CH6/EX6.4/ex6_4.sce b/3020/CH6/EX6.4/ex6_4.sce
new file mode 100755
index 000000000..e7c4cb4dc
--- /dev/null
+++ b/3020/CH6/EX6.4/ex6_4.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+x = 2.5e-2; // Thickness of material in meters
+u = 2; // Linear absorption coefficient per cm
+dh = log(2)/2;//Half value thickness of the specimen
+disp('cm',dh,'Half value thickness of the specimen is')
diff --git a/3020/CH6/EX6.5/ex6_5.sce b/3020/CH6/EX6.5/ex6_5.sce
new file mode 100755
index 000000000..fa015d9ae
--- /dev/null
+++ b/3020/CH6/EX6.5/ex6_5.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+EF = 0.35; //Exposure factor in curie hour
+SS = 5; // Percentage source strength
+ET = EF/SS;//The exposure time in hour
+disp('h',ET,'The exposure time is')
+et=ET*60;//The exposure time in min
+disp('min',et,'The exposure time is')
+
diff --git a/3020/CH6/EX6.6/ex6_6.sce b/3020/CH6/EX6.6/ex6_6.sce
new file mode 100755
index 000000000..5cf1c6e63
--- /dev/null
+++ b/3020/CH6/EX6.6/ex6_6.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+fd = 20e-2; // The film focus distance
+se = 5e-2; // The displacement of the X-ray tube
+sd = 0.5e-2;
+t = 5e-2; // Thickness of the specimen
+d = (fd*sd)/(se);
+loc = se-d;//'The location of the flow from the top surface
+disp('m',loc,'The location of the flow from the top surface is')
+//there is mistake in book in the answer.. checked in calculator also..