Делай цикл Repeat Until в нём изменяй температуру от мин. до макс. с какимто шагом 0.1 к примеру. Для каждого изменения температуры считай формулу и смотри чтоб разница результата формулы и log(p) была минимально допустима. Результатом будет температура при которой разница меньше какого нибуть ебсилон (ошибки).
Ещё надо сделать внешний цикл For 1..70 чтоб вышесказанное посчитать 70 раз для разных коэфициентов, наверное взятых из файла.
|