Kitsakorn Locharoenrat - Linear and Nonlinear Optics; Materials, Properties, and Applications

%%%Calculation of mass and linear attenuation coefficient%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function [mac1,mac2,u1L1,u1L2] = linearAttenCoef1E2L

(material1,material2,E)

switch material1

% Condition command for the 1st

layer

case H;

% In case of Hydrogen

p1 = 8.38E-05 ;% density of Hydrogen

(g/cm^3)

p = p1 ;

i = 1 ; % the initial value for (for-loop)

in Energy column

f = 35 ; % the final value for (for-loop)

in Energy column

% importing file energy and u/p of Hydrogen from

Microsoft Excel

H = importfile(92 elements.xlsx,1-21,

A3:B38);

A = H ;

% Function file for calculation

% mass and linear attenuation coefficient

(maci,u1L12)

% for the 1st layer

[maci,u1L1] = material1E1L(E,p,i,f,A);

case He

p1 = 1.66E-04 ;

p = p1 ;

i = 1 ;

f = 35 ;

He = importfile1(92 elements.xlsx,1-

21,D3:E38);

A = He ;

[mac1,u1L1] = material1E1L(E,p,i,f,A);

.

.

94 elements

.

.

End

switch material2

% Condition command for the 2nd

layer

case H

% In case of Hydrogen

p2 = 8.38E-05 ; % density of Hydrogen

(g/cm^3)

p = p2 ;

i = 1 ; % the initial value for (for-loop)

in Energy column

f = 35 ;% the final value for (for-loop)

in Energy column

% importing file energy and u/p of Hydrogen

from Microsoft Excel

H = importfile(92 elements.xlsx,1-

21,A3:B38);