Вспомогательные функции для определения тепловыделения в изотермическом слое углекислого газа и водяного пара для 1000 С