summaryrefslogtreecommitdiff
path: root/635/CH8/EX8.8/Ch08Ex8.sci
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /635/CH8/EX8.8/Ch08Ex8.sci
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '635/CH8/EX8.8/Ch08Ex8.sci')
-rwxr-xr-x635/CH8/EX8.8/Ch08Ex8.sci11
1 files changed, 11 insertions, 0 deletions
diff --git a/635/CH8/EX8.8/Ch08Ex8.sci b/635/CH8/EX8.8/Ch08Ex8.sci
new file mode 100755
index 000000000..ca053cb87
--- /dev/null
+++ b/635/CH8/EX8.8/Ch08Ex8.sci
@@ -0,0 +1,11 @@
+// Scilab Code Ex8.8 Percentage transmitted energy of X-rays: Page 259 (2010)
+mu = 139; // Attenuation co-efficient of aluminium, per metre
+x = 0.005; // Thickness of aluminium sheet, m
+// If X% is the intensity of the X-ray transmitted through the aluminium sheet then
+// X% = I/I_0
+// or X/100 = exp(-absorb_coeff*x)
+// Solving for X
+X = 100*exp(-mu*x); // Transmitted percentage of X-rays
+printf("\nThe intensity of the X-ray transmitted through the aluminium sheet = %g percent", round(X));
+// Result
+// The intensity of the X-ray transmitted through the aluminium sheet = 50 percent \ No newline at end of file