Untitled

{Diâmetro ideal pela imposição da velocidade de escoamento}
V = 2,8 "1,4-2,8 m/s segundo Janna"
P_atm = 101,325
T_água = 25
rho_água = density(Water;T=T_água;P=P_atm)
Q_água = 3600 "m³/h"
m_dot = (Q_água/3600)*rho_água
A = pi#*D^2/4
m_dot = rho_água*V*A
 
D_tubo_cm = D*100
D_tubo_pol = D_tubo_cm*0,3937
 
{Perdas de carga}
L[1] = 430
L[2] = 5150
K_eq[1] = 6,2
K_eq[2] = 6,2
 
 
p_vap = p_sat(Water;T=T_água)
h_vap = p_vap*1000/(rho_água*g#)
 
H_atm = P_atm*1000/(rho_água*g#)
 
h_La[1] = (f*L[1]/D + K_eq[1])*V^2/(2*g#)
h_La[2] = (f*L[2]/D + K_eq[2])*V^2/(2*g#)
 
Hs = 2,5 "altura de sucção"
NPSHr[1] = 10 - Hs + V^2/(2*g#) + 0,5 "fórmula do fabricante"
NPSHr[1] = H_atm - (h_a[1] + h_La[1] + h_vap + V^2/(2*g#)) "encontrar h_a afogamento"
 
NPSHr[2] = 4,5 "diagrama fabricante"
NPSHr[2] = H_atm - (h_a[2] + h_La[2] + h_vap + V^2/(2*g#)) "encontrar h_a afogamento"
 
{Reynolds e fator de atrito}
mu = viscosity(Water;T=T_água;P=P_atm)
Re = rho_água*V*D/mu
f = 0,018 "Diagrama de Moody"