Oxidation state of iron in silicate glasses and melts: a thermochemical model