We see that Material B is headed for 0.7495 g as a long term amount.

Input := 


{hs[5][[2]],hs[10][[2]],hs[20][[2]]}

Output =


{0.756024, 0.750566, 0.749495}

Input := 


ListPlot[Table[{n,hs[n][[2]]},{n,1,20}],

			PlotStyle->{PointSize[.03]},

					PlotRange->{0,1}]

Output =


-Graphics-