A new model for calculating the adsorption equilibrium constant of water vapor in micropores of activated carbon