Diseño de tubos capilares

ATENCIÓN
Los resultados obtenidos en este programa son orientativos.
El usuario es responsable por evaluar y usar los valores sugeridos.

WARNING
The results obtained in this program are orientative. The user is responsable for evaluating and using the suggested values.

A software made by: TECUMSEH DO BRASIL LTDA.

{ Cálculo do comprimento do tubo capilar }

{ DeltaL = Procedimentoque calcula o Comprimento total de um tubo Capilar }

PROCEDURE DeltaL(Gas$,Qr$,Qr_user,T$,Ta_user,Tsc_user,Tcond_user,Tevap_user,Sub_user,D$,D_user,p$,Comp$:Comp_out,pc_out,pe_out ,G_out$,D_out,D_out$,Qr_out,Qr_out$,Te_out,Tc_out,Tsc_out,Tsub_out,Ta_out,T_out$,C5p$,C5e$,C5i$,C6p$,C6e$,C6i$,C7p$,C7e$,C7i$)
G_out$=Gas$
IF (Qr$='Btu/h') THEN
Qr=Qr_user*Convert(Btu/h,W)/1000
Qr_out=Qr_userQr_out$=Qr$
ENDIF
IF (Qr$='Kcal/h') THEN

Qr=Qr_user*Convert(Kcal/h,W)/1000
Qr_out=Qr_user
Qr_out$=Qr$
ENDIF
IF (Qr$='W) THEN
Qr=Qr_user/1000
Qr_out=Qr_user
Qr_out$=Qr$
ENDIF
IF (T$='°F') THEN
Tevap=Tevap_user*Convert(F,C)
Te_out=Tevap_user
Tcond=Tcond_user*Convert(F,C)
Tc_out=Tcond_user
Tsuccao=Tsc_user*Convert(F,C)
Tsc_out=Tsc_user
Subresf=Sub_user*Convert(F,C)Tsub_out=Sub_user
Tamb=Ta_user*Convert(F,C)
Ta_out=Ta_user
T_out$=T$
ENDIF
IF (T$='°C') THEN
Tevap=Tevap_user
Te_out=Tevap
Tcond=Tcond_user
Tc_out=Tcond
Tsuccao=Tsc_user
Tsc_out=Tsuccao
Subresf=Sub_user
Tsub_out=Subresf
Tamb=Ta_user
Ta_out=Tamb
T_out$=T$
ENDIF
IF (D$='in') THEN
D_int=D_user*Convert(in,m)
D_out=D_user
D_out$=D$
ENDIF
IF (D$='mm') THEN
D_int=D_user/1000
D_out=D_userD_out$=D$

ENDIF

IF (Tcond>(Tamb+15)) THEN C5p$='Atençâo'
C6p$='Valores elevados da temperatura de condensaçâo podem afetar a performance e'
C7p$='a vida útil do compressor'
C5e$='Atención'
C6e$='Valores elevados de la temperatura de condensación puedem afectar la vida util'
C7e$='y la performance del compresor'
C5i$='Warning'
C6i$='High condensing temperature values may compromise 'C7i$='the compressor performance and reliability'

ELSE
C5p$=' '
C6p$=' '
C7p$=' '
C5e$=' '
C6e$=' '
C7e$=' '
C5i$=' '
C6i$=' '
C7i$=' '

ENDIF

{ Dados de entrada:
mz = Vazao mássica - Kg/s Tcond = Temperatura de condensagao - °C Tevap = Temperatura de evaporagao - °C Subresf = Subresfriamento do refrigerante - °C Xecap = Título na entrada do tubo capilar -D_int =Diámetro interno do tubo capilar - m
Gas$ = Fluido Rfrigerante }

{Inicio dos Cálculos }
pcond_d=PRESSURE(Gas$,T=Tcond,x=1) {Pressao de condensagao - kPa }
pcond_b=PRESSURE(Gas$,T=Tcond,x=0)
pcond=(pcond_d+pcond_b)/2
pevap_d=PRESSURE(Gas$,T=Tevap,x=1) {Pressao de evaporagao - kPa }
pevap_b=PRESSURE(Gas$,T=Tevap,x=0)
pevap=(pevap_d+pevap_b)/2

IF (p$='psig') THENpc_out=(pcond*Convert(KPa,psi)-14.7) pe_out=(pevap*Convert(KPa,psi)-14.7)

ENDIF

IF (p$='bar') THEN
pc_out=(pcond*Convert(KPa,bar)-1.01325) pe_out=(pevap*Convert(KPa,bar)-1.01325)

ENDIF

IF (p$='KPa') THEN
pc_out=pcond-101.325 pe_out=pevap-101.325

ENDIF

Tcond_aux= temperature(Gas$,p=pcond,x=0)
Tecap=Tcond_aux-Subresf {Temperatura na entrada do tubo capilar - °C }

{ Cálculo da entalpia na sucgao docompressor - kJ/(kg,K) }
IF (Tsuccao>Tevap) THEN
hsuccao=ENTHALPY(Gas$,T=Tsuccao,P=pevap) ELSE
hsuccao=ENTHALPY(Gas$,T=Tsuccao,x=1)
ENDIF
X1 =0 {Título do fluido refrigerante na segao 1 }
T1 =Tecap { Temperatura do fluido refrigerante na segao 1 }
sv1=VOLUME(Gas$,T=Tecap,x=0) { Volume específico do fluido refrigerante na segao 1 }
mu1=VISCOSITY(Gas$,T=Tecap,x=0) { Viscosidade dofluido refrigerante na segao 1 }
DeltaL_bi=0 { Valor inicial do comprimento da regiao bifásica }

{ Cálculo da entalpia na entrada do evaporador - kJ/(kg,K) }
IF (Subresf>0) THEN
heevap=ENTHALPY(Gas$,T=Tecap,x=0) ELSE
heevap=ENTHALPY(Gas$,T=Tcond,x=0) ENDIF
mz=Qr/(hsuccao-heevap) {Cálculo da vazao de refrigerante - kg/s }
{ Cálculo do comprimento do tubo capilar para o...