simulacio en alimentos

UNIVERSIDAD NACIONAL AGRARIA LA MOLINA

ESCUELA DE POSTGRADO
MAESTRIA EN TECNOLOGIA DE ALIMENTOS





SIMULACION DE PROCESOS EN LAINDUSTRIA ALIMENTARIA
Primera practica Laboratorio




Mg. Sc. Francisco Salas V.




La Molina, 2013.













Problema

Elaborarun programa de simulación que tenga como objetivo simular la potencia de una bomba para trasportar un fluido liquido Newtoniano un tanque que se ubica en la superficie hasta un tanque elevado auna cierta altura programada. Para ello se debe tener datos y parámetros de entrada que permiten alimentar al programa y calcular la energía que requiere la bomba para abastecer al tanque que seencuentra a una altura en nuestro caso por ejemplo el tanque se encuentra a una altura de 5 metros la tubería tiene un diámetro de 5 cm y longitud de 10 m obviamente hay codos, válvulas,rugosidad de la tubería factores que generan las pérdidas durante el transporte del fluido.


Informacion que debe ir en el programa y la forma en que saldrán los datos








CODIGO DEPROGRAMACION
Private Sub CommandButton1_Click()
fm = Val(TextBox1)
den = Val(TextBox2)
n = Val(TextBox3)
m = Val(TextBox4)
e = Val(TextBox5)
D = Val(TextBox6)
L = Val(TextBox7)
nc = Val(TextBox20)kc = Val(TextBox21)
nv = Val(TextBox22)
kv = Val(TextBox23)
ns = Val(TextBox27)
ks = Val(TextBox28)
Z = Val(TextBox26)
A = 3.1416 * D ^ 2 / 4
Q = fm / den
v = Q / A
Reg = (((4 * n) / (3 * n+ 1)) ^ n) * ((D ^ n * v ^ (2 - n) * den) / m)
TextBox8 = A
TextBox9 = Q
TextBox10 = v
TextBox11 = Reg

End Sub

Private Sub CommandButton2_Click()
xi = Val(TextBox12)
xd = Val(TextBox13)funcval xi, fxi
funcval xd, fxd
If fxi * fxd < 0 Then
TextBox14 = "VÁLIDOS, HAY RAÍZ"
ElseIf fxi * fxd = 0 Then
TextBox14 = "UNO DE ELLOS ES LA RAÍZ"
Else
TextBox14 = "NO VÁLIDOS, NO HAY RAÍZ"...