制冷剂计算软件CoolPack

{$DS.}{!SECTION 3.2: Suction line (Pressure drop and heat exchange) } { ******************************************************************************** } eta_Q[10]=0 DELTAT[10]=0 CALL VELOCITY(SP[10,6],PIPE_IN_SL[7],m_dot:d_SL_I_mm) DELTAT_SL=0; DELTAp_SL=0 PIPE_IN_SL[3]=0 PIPE_OUT_SL[1]=0; PIPE_OUT_SL[2]=0; PIPE_OUT_SL[3]=0; PIPE_OUT_SL[4]=0 PIPE_OUT_SL[5]=0 d_SL_I_mm=PIPE_IN_SL[2]-2*PIPE_IN_SL[3] {!SECTION 3.3: Discharge line (Pressure drop and heat exchange) } { ******************************************************************************** } eta_Q[2]=0 DELTAT[2]=0 CALL VELOCITY(SP[2,6],PIPE_IN_DL[7],m_dot:d_DL_I_mm) DELTAT_DL=0; DELTAp_DL=0 PIPE_IN_DL[3]=0 PIPE_OUT_DL[1]=0; PIPE_OUT_DL[2]=0; PIPE_OUT_DL[3]=0; PIPE_OUT_DL[4]=0 PIPE_OUT_DL[5]=0 d_DL_I_mm=PIPE_IN_DL[2]-2*PIPE_IN_DL[3] {!SECTION 3.4: Liquid line #1 (Pressure drop and heat exchange) } { ******************************************************************************** } eta_Q[4]=0 DELTAT[4]=0 CALL VELOCITY(SP[4,6],PIPE_IN_LL_1[8],m_dot:d_LL_1_I_mm) DELTAT_LL_1=0; DELTAp_LL_1=0 PIPE_IN_LL_1[3]=0 PIPE_OUT_LL_1[1]=0; PIPE_OUT_LL_1[2]=0; PIPE_OUT_LL_1[3]=0; PIPE_OUT_LL_1[4]=0 PIPE_OUT_LL_1[5]=0 d_LL_1_I_mm=PIPE_IN_LL_1[2]-2*PIPE_IN_LL_1[3] error_LL_1$=' ' {!SECTION 3.5: Liquid line #2 (Pressure drop and heat exchange) } { ******************************************************************************** } eta_Q[7]=0 DELTAT[7]=0 CALL VELOCITY(SP[7,6],PIPE_IN_LL_2[8],m_dot:d_LL_2_I_mm) DELTAT_LL_2=0; DELTAp_LL_2=0 PIPE_IN_LL_2[3]=0 PIPE_OUT_LL_2[1]=0; PIPE_OUT_LL_2[2]=0; PIPE_OUT_LL_2[3]=0; PIPE_OUT_LL_2[4]=0 PIPE_OUT_LL_2[5]=0 d_LL_2_I_mm=PIPE_IN_LL_2[2]-2*PIPE_IN_LL_2[3] error_LL_2$=' ' {!SECTION 3.5: SUBCOOLING after LL_1 } { ******************************************************************************** } DELTAT_SC_LL_1_OUT=DELTAT_SC