The reflectance is:

created by webMathematica

The transmittance is:

created by webMathematica