# Diff of /trunk/models/cost_column.a4l

revision 576 by johnpye, Tue May 9 03:42:08 2006 UTC revision 821 by johnpye, Thu Aug 17 11:57:54 2006 UTC
# Line 127  MODEL cost_calc( Line 127  MODEL cost_calc(
127
128
129      FOR j IN [1..nsections] CREATE      FOR j IN [1..nsections] CREATE
130          Area = 1{ft^2}*V[j]*1{hr/lb_mole}          Area = 1{ft^2}*V[j]*1{h/lb_mole}
131          *sqrt(M_g*1{lb_mole^2/lbm/ft^3}          *sqrt(M_g*1{lb_mole^2/lbm/ft^3}
132          *V_bar[j])/Afrac/F[j]/3600;          *V_bar[j])/Afrac/F[j]/3600;
133      END FOR;      END FOR;
# Line 153  MODEL cost_calc( Line 153  MODEL cost_calc(
153
154      LMT = ln((Tc-Tin)/(Tc-Tout));      LMT = ln((Tc-Tin)/(Tc-Tout));
155      Ac = -QC*LMT/((Tout-Tin)*Uc);      Ac = -QC*LMT/((Tout-Tin)*Uc);
156      Ar = QR/11250{BTU/hr/ft^2};      Ar = QR/11250{BTU/h/ft^2};
157      Tout IS_REFINED_TO temperature;      Tout IS_REFINED_TO temperature;
158      Tout = Tc - 5{K};      Tout = Tc - 5{K};
159
# Line 200  METHOD default_self; Line 200  METHOD default_self;
200
201      Tin := 459.67{R} + 70{R};      Tin := 459.67{R} + 70{R};
202      Tout := 459.67{R} + 90{R};      Tout := 459.67{R} + 90{R};
203      Uc := 100{BTU/hr/ft^2/R};      Uc := 100{BTU/h/ft^2/R};
204      CpW := 1{cal/mole/K};      CpW := 1{cal/mole/K};
205      Hs := 933{BTU/lbm};      Hs := 933{BTU/lbm};
206      Cw := 0.03{USD}/1000{gallon};      Cw := 0.03{USD}/1000{gallon};

Legend:
 Removed from v.576 changed lines Added in v.821