Добрый день) Возникла сложность в правильном (более уточнённом) решении одного из уравнений термодинамики, для комплекса которых я написал макрос в VBA EXCEL:
Собственно заданы значения N21 и TB для начала счёта так сказать. Остальные значения переменных мне известны. Итерация в данном случае проходит по TB и в результате мы получаем температуру в точке В и фактически не итерированное значение политропы расширения n2. Проверка адекватности модели, показывает что значение n2 находится в допустимых приделах. Хотелось бы иметь возможность провести итерацию одновременно по N21 и TB.
Буду очень благодарен за помощь
Скрытый текст |
---|
5 N21 = (8.314 * ((BETAZ / BETA) * TZ1 - TB)) / (A1 + A2 - (AVB + BB * TB) * TB) + 1 TB1 = TZ1 / DLT ^ (N21 - 1) If Abs(TB - TB1) > 1 Then TB = TB1 GoTo 5 End If |
Собственно заданы значения N21 и TB для начала счёта так сказать. Остальные значения переменных мне известны. Итерация в данном случае проходит по TB и в результате мы получаем температуру в точке В и фактически не итерированное значение политропы расширения n2. Проверка адекватности модели, показывает что значение n2 находится в допустимых приделах. Хотелось бы иметь возможность провести итерацию одновременно по N21 и TB.
Буду очень благодарен за помощь
