空压机性能计算程序-VBA模板-源代码，在Excel后台VBA里插入模板，在前台Excel单元格里就可以直接调用了

• 压气机比功计算程序

'(1)计算压气机进气相对压比pai_10

Function pi_t(T)

Dim b, zj As Variant

b = Array(-33.015038, 7.280673, -0.0014341481, 0.0000023482926, -1.0484129E-09, 1.242904E-13, -40.29215)

zj = (1 / 4.575835) * (b(1) * (Log(T) / Log(2.718282)) + 2 * b(2) * T + 1.5 * b(3) * (T ^ 2) + (4 / 3) * b(4) * (T ^ 3) + 1.25 * b(5) * (T ^ 4) + b(6))

pi_t = 10 ^ zj

End Function

'(2) 计算压气机进气比焓ai_t1

Function ai_t(T)

Dim b As Variant

b = Array(-33.015038, 7.280673, -0.0014341481, 0.0000023482926, -1.0484129E-09, 1.242904E-13, -40.29215)

ai_t = 4.1868 * (b(0) + b(1) * T + b(2) * (T ^ 2) + b(3) * (T ^ 3) + b(4) * (T ^ 4) + b(5) * (T ^ 5))

End Function

'(4) 反求压气机出口等熵温度T2s*