Tablas termodinamicas refrigerante r12

Solo disponible en BuenasTareas
  • Páginas : 7 (1726 palabras )
  • Descarga(s) : 0
  • Publicado : 21 de diciembre de 2010
Leer documento completo
Vista previa del texto
Tablas Termodinámicas

DESCRIPCIÓN DE LA APLICACIÓN DE LAS ECUACIONES Y CONSTANTES UTILIZADAS Para la generación de las tablas se tomo como referencia el dato de la temperatura, el cual varia en un grado KELVIN. Partiendo de este dato y con las ecuaciones descritas a continuación se obtuvo los datos de presión, volumen, entalpía y entropía: • PRESIÓN: ln • VOLUMEN: 1 ln

1 1

•ENTALPÍA: Δ

Δ

Δ

Tablas Termodinámicas

Cadena-Paladines

3



Constantes Utilizadas: R = 68.748 b = 4.06366926*10^-4 A2 = -9.16210126*10^1 A3= 1.01049598*10^-1 A4= -5.74640225*10^-5 A5= 0 B2= 7.71136428*10^-2 B3= -5.67539138*10^-5 B4 = 0 B5= 4.08193371*10^-11 C2= -1.52524293*10^3 C3= .1998681 C4= 0 C5= -1.66307226*10^-7 ‫574.5 =א‬ F1= 9.33438056*10^1 F2= -4.39618785*10^3 F3=-1.2471523*10^1 F4=1.96060432*10^-2 D1= 5.580845400*10^2 D2= 8.544458040*10^2 D3= 0 D4= .994077103*10^2 D5= 0 D6= 3.521500633*10^2 D7= -5.047419739*10^1 G1= 3.389005260*10^1 G2= 2.507020671 G3= -3.7450596*10^-3 G4= 1.641736815*10^-6

Tablas Termodinámicas
CÓDIGO DE FUENTE DEL PROGRAMA

Cadena-Paladines

Dim x, Rof, T, i, Sumvf, vf, Psat, vg, Sumvg1, Sumvg2, vg1, vg2, p1, p2, vfg Dim Sumcv, Cv, Cp,Sumhg, hfg, dP1, dP2, dv1, dv2, dT, v, hg, hf, sfg, sg, ha, hb, hc Const Tc = 385.17 Const R = 68.748 Const W = 4.06366926 * 10 ^ -4 'equivale a la cte b de las hojas Const y = 5.475 'equivale a la cte semix de las hojas Private Sub Command1_Click() Text1.Enabled = True List1.Clear List2.Clear List3.Clear List4.Clear List5.Clear List6.Clear List7.Clear List8.Clear List9.Clear List10.ClearList11.Clear Dim A As Variant A = Array(0, 0, -91.6210126, 0.101049598, -5.74640225 * 10 ^ -5, 0) Dim B As Variant B = Array(0, 0, 7.71136428 * 10 ^ -2, -5.67539138 * 10 ^ -5, 0, 4.8193371 * 10 ^ -11) Dim C As Variant C = Array(0, 0, -1.52524293 * 10 ^ 3, 2.19982681, 0, -1.66307226 * 10 ^ -7) Dim D As Variant D = Array(0, 558.08454, 854.445804, 0, 2994.077103, 0, 352.1500633, -50.47419739) Dim F As Variant F= Array(0, 93.3438056, -4396.18785, -12.4715223, 1.96060432 * 10 ^ -2) Dim G As Variant G = Array(0, 3.38900526 * 10 ^ 1, 2.507020671, -3.274505926 * 10 ^ -3, 1.641736815 * 10 ^ -6) For T = 200 To 385 List1.AddItem (T) x = 1 - (T / Tc) Sumvf = 0 For i = 1 To 5 Sumvf = Sumvf + (D(i) * (x ^ ((i - 1) / 3))) Sumvg = Sumvg + A(i) * T ^ (2 - i) Next i Rof = Sumvf + D(6) * x ^ 0.5 + D(7) * x ^ 2 vf = 1/ Rof List2.AddItem (vf) Psat = (Exp(F(1) + (F(2) / T) + (F(3) * Log(T)) + F(4) * T)) / 1000

Tablas Termodinámicas

Cadena-Paladines

List3.AddItem (Psat / 1000) v1 = 0.5: v2 = 1 p1 = Psat - 10 Do Until Abs(Psat - p1) < 1 Sumvg1 = 0 Sumvg2 = 0 For i = 2 To 5 Sumvg1 = Sumvg1 + (((A(i) + B(i) * T + C(i) * Exp(-y * T / Tc))) / (v1 - W)) Next i For i = 2 To 5 Sumvg2 = Sumvg2 + (((A(i) + B(i) *T + C(i) * Exp(-y * T / Tc))) / (v2 - W)) Next i v2 = v1 + (v2 - v1) * 0.2 p1 = ((R * T) / (v1 - W)) + Sumvg1 p2 = ((R * T) / (v2 - W)) + Sumvg2 v1 = v1 + (v2 - v1) * ((Psat - p1) / (p2 - p1)) Loop vg = v1 / 1000 List4.AddItem (vg) vfg = vg - vf List5.AddItem (vfg) Sumcv = 0 For i = 1 To 4 Sumcv = Sumcv + G(i) * (T ^ (i - 1)) Next i Cv = Sumcv Cp = Cv + R dT = 1 dP1 = 0 For i = 1 ToList3.ListCount - 1 dP1 = List3.List(i) - List3.List(i - 1) Next i dv1 = 0 For i = 1 To List4.ListCount - 1 dv1 = List4.List(i) - List4.List(i - 1) Next i hb = ((vg - (T * dv1) / dT) * dP1 * 1000) + (Cp * dT) hg = hb / Exp(1) List7.AddItem (hg) hfg = (vfg * T * (dP1 * 1000 / dT)) List6.AddItem (hfg) hf = hg - hfg List8.AddItem (hf) sfg = hfg / T List9.AddItem (sfg) sg = (-dv1 * dP1 / dT) + (Cp * dT / (1000 *T))

Tablas Termodinámicas
List11.AddItem (sg) sf = Abs(sg - sfg) List10.AddItem (sf) Next T End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Timer1.Interval = 500 End Sub Private Sub Command4_Click() If Val(Text1.Text) > 385 Then Text1.Text = 385 Text1.SetFocus MsgBox "Dato superior al límite", vbOKOnly, "Ingrese nuevo dato" End If If Val(Text1.Text) < 200 Then...
tracking img