blob: ae2dcaa12e2c048e3f28bfb0888d5af65969c3ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
//Example 20.1 Calculation of absorption coefficient
clear;
clc;
printf("\tExample 21.1\n");
// x is thickness of glass(mm)
x=200;
//It is intensity of non-absorbed radiation
//Io is intensity of non-relected radiation
f=0.98; //f=It/Io
//b is absorption coefficient
b=-log(f)/x;
printf("\nAbsorption coefficient is %f mm^-1\n",b);
//End
|
