Thermal Hipteresis in Barium Titanate