Transmitance a absorbance

<<Matemat`Spektr`

dbeg=ReadList["c:\\users\\du\\vyuka\\four\\data\\b1.dat",Number];

dvzor=ReadList["c:\\users\\du\\vyuka\\four\\data\\b5.dat",Number];

Length[dvzor]

?Transm

?Absorb

dt=Transm[dvzor,dbeg,ZeroFilling->False];

T = 0.5183520977;
n = Length[dt];
dv = 1/T;
fr = n*dv/2

d1=Table[{dv*(i-1),dt[[i]]},{i,1,n}];

ListPlot[d1, PlotJoined -> True, PlotRange -> {{400, fr}, {0, 1}}, 
      Ticks -> {{1000, 3000, 5000, 7000}, Automatic}, AxesOrigin -> {400, 0}]

Display["faz10.eps", %, "EPS", ImageSize -> {350, 216}]

Display["faz10a.eps", %, "EPS", ImageSize -> {195, 120}]

da=Absorb[dvzor,dbeg,ZeroFilling->False];

d2=Table[{dv*(i-1),da[[i]]},{i,1,n}];

ListPlot[d2,PlotJoined->True,PlotRange->{{400,fr},{0,7}},
Ticks->{{1000,3000,5000,7000},Automatic},
AxesOrigin->{400,0}]