FLUIDOS-SEMESTRAL.docx

Mecánica de Fluidos

EJERCICIO PROPUESTO En el sistema de tuberías ramificadas de la figura, la bomba transvasa agua a 20°C del tanque "a" al tanque "b" y "c". La potencia de la bomba es de 28.6 kW y trabaja con un eficiencia de 70% que permanece constante, así como también los factores fricción. Determinar los caudales que fluyen por las tuberías y la carga piezometrica en la unión. El esquema del sistema y los datos de la longitud de las tuberías, diámetro interno, el factor de fricción de moody y los coeficientes de resistencia se presentan a continuación.

Trabajo Semestral 2017

Página 2


2. CODIGOS PARA LA RESOLUCION DEL PROBLEMA

Dim X1 As Double Dim X2 As Double Dim X3 As Double Dim X4 As Double Dim X5 As Double Dim Y1 As Double Dim Y2 As Double Dim Y3 As Double Dim Y4 As Double Dim Y5 As Double Dim Z1 As Double Dim Z2 As Double Dim Z3 As Double Dim Z4 As Double Dim Z5 As Double Dim W1 As Double Dim W2 As Double Dim W3 As Double Dim W4 As Double Dim W5 As Double Dim b1 As Double Dim b2 As Double Dim b3 As Double Dim b4 As Double Dim b5 As Double Dim X As Double Dim y As Double Dim Z As Double Dim W As Double Dim c As Double


Página 3


Private Sub calcular_Click() L1 = Val(Text4) L2 = Val(Text5) L3 = Val(Text6) D1 = Val(Text7) D2 = Val(Text8) D3 = Val(Text9) FD1 = Val(Text10) FD2 = Val(Text11) FD3 = Val(Text12) K1 = Val(Text13) K2 = Val(Text14) K3 = Val(Text15) Z1 = Val(Text16) Z2 = Val(Text17) Z3 = Val(Text18) DENS = Val(Text19) POT = Val(Text20) N = Val(Text21) PI = 3.1416 g = 9.81 A1 = (D1 / 100) ^ 2 * (PI / 4) A2 = (D2 / 100) ^ 2 * (PI / 4) A3 = (D3 / 100) ^ 2 * (PI / 4) Iter = 0 EPS = 0.00001

A = ((1 + FD1 * (L1 / (D1 / 100)) + K1) * DENS) / 2 B = DENS * (g * -1 * Z1) c = (POT * N) / A1 D = ((-1 + FD2 * (L2 / (D2 / 100)) + K2) * DENS) / 2 Trabajo Semestral 2017

Página 4


E = DENS * (g * Z2) F = ((-1 + FD3 * (L3 / (D3 / 100)) + K3) * DENS) / 2 g = DENS * (g * Z3) H = A1 I = A2 U1O = 1 U2O = 1 U3O = 1 PB = 1

X1 = 3 * A * U1O ^ 2 - B + PB X2 = 0 X3 = 0 X4 = H Y1 = U1O Y2 = 1

Y3 = 1 Y4 = 0 Z1 = 0 Z2 = -2 * D * U2O Z3 = 0 Z4 = -I W1 = 0 W2 = 0 W3 = -2 * F * U3O W4 = -I b1 = -A * U1O ^ 3 + B * U1O - PB * U1O + c b2 = -PB + D * U2O ^ 2 + E b3 = -PB + F * U3O ^ 2 + g b4 = -H * U1O + I * U2O + I * U3O


Página 5


f1 = -X2 / X1 n1 = Y2 + f1 * Y1 n2 = Z2 + f1 * Z1 n3 = W2 + f1 * W1 n4 = b2 + f1 * b1



f4 = -n5 / n1 n13 = n6 + f4 * n2 n14 = n7 + f4 * n3 n15 = n8 + f4 * n4


f6 = -n16 / n13 n19 = n17 + f6 * n14 n20 = n18 + f6 * n15 Trabajo Semestral 2017

Página 6


WO = n20 / n19 zo = (n15 - n14 * WO) / n13 yo = (n4 - n3 * WO - n2 * zo) / n1 xo = (b1 - W1 * WO - Z1 * zo - Y1 * yo) / X1 dv = (xo ^ 2 + yo ^ 2 + zo ^ 2 + WO ^ 2) ^ 0.5 X = U1O + xo y = PB0 + yo Z = U2O + zo W = U3O + WO

Do While Abs(dv) >= EPS X1 = 3 * A * U1O ^ 2 - B + PB X2 = 0 X3 = 0 X4 = H Y1 = U1O Y2 = 1 Y3 = 1 Y4 = 0 Z1 = 0 Z2 = -2 * D * U2O Z3 = 0 Z4 = -I W1 = 0 W2 = 0 W3 = -2 * F * U3O W4 = -I b1 = -A * U1O ^ 3 + B * U1O - PB * U1O + c b2 = -PB + D * U2O ^ 2 + E b3 = -PB + F * U3O ^ 2 + g b4 = -H * U1O + I * U2O + I * U3O Trabajo Semestral 2017

Página 7







f6 = -n16 / n13 n19 = n17 + f6 * n14 n20 = n18 + f6 * n15 Trabajo Semestral 2017

Página 8


WO = n20 / n19 zo = (n15 - n14 * WO) / n13 yo = (n4 - n3 * WO - n2 * zo) / n1 xo = (b1 - W1 * WO - Z1 * zo - Y1 * yo) / X1 dv = (xo ^ 2 + yo ^ 2 + zo ^ 2 + WO ^ 2) ^ 0.5 X = U1O + xo y = PB + yo Z = U2O + zo W = U3O + WO If dv < 0 Then X=X Else U1O = X End If

If dv < 0 Then y=y Else PB = y End If

If dv < 0 Then Z=Z Else U2O = Z End If

If dv < 0 Then W=W Else U3O = W End If Iter = Iter + 1 Trabajo Semestral 2017

Página 9


Loop XR = X YR = y ZR = Z WR = W

Text22 = Format(XR, "0.00000") Text23 = Format(ZR, "0.00000") Text24 = Format(WR, "0.00000") Text25 = Format(YR, "0") Q1 = XR * A1 Q2 = ZR * A2 Q3 = WR * A3 Text26 = Format(Q1, "0.00000") Text27 = Format(Q2, "0.00000") Text28 = Format(Q3, "0.00000") End Sub

Private Sub borrar_Click() Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" Text13 = "" Text14 = "" Trabajo Semestral 2017

Página 10


Text15 = "" Text16 = "" Text17 = "" Text18 = "" Text19 = "" Text20 = "" Text21 = "" Text22 = "" Text23 = "" Text24 = "" Text25 = "" Text26 = "" Text27 = "" Text28 = "" End Sub

Private Sub salir_Click() End End Sub


Página 11



Página 12

FLUIDOS-SEMESTRAL.docx

Recommend Documents