Algorithm for calculating the thermal expansion tensor and constructing the thermal expansion diagram for crystals