# Changeset 639 for trunk/eml/costs/HeatExchangerSimplified_cost.mso

Ignore:
Timestamp:
Sep 27, 2008, 1:34:26 AM (15 years ago)
Message:

Fix cost model due to Heatex changes.

File:
1 edited

Unmodified
Removed
• ## trunk/eml/costs/HeatExchangerSimplified_cost.mso

 r491 EQUATIONS "Average pressure" Pmax = max( [HotSide.Properties.Average.P , ColdSide.Properties.Average.P] ); "Capital Cost" Ce = Cb*Fd*Fp*Fm; "Basic Cost" Cb = 'US\$'*exp(Cost(1,1) + Cost(1,2)*ln(Details.A/'m^2') + Cost(1,3)*(ln(Details.A/'m^2'))^2); "Cost Factor based on the type of the heat exchanger" Fd = exp(Cost(2,1) + Cost(2,2)*ln(Details.A/'m^2') + Cost(2,3)*ln(Details.A/'m^2')); if Pmax <= 700 * 'kPa' then "Cost Factor based on the project pressure" # verificar Fp = Cost(5,1) + Cost(5,2)*ln(Details.A/'m^2'); else if 700 * 'kPa' < Pmax and Pmax < 2100 * 'kPa' then Fp = Cost(5,1) + Cost(5,2)*ln(Details.A/'m^2'); else if 2100 * 'kPa' < Pmax and Pmax < 4200 * 'kPa' then Fp = Cost(6,1) + Cost(6,2)*ln(Details.A/'m^2'); else if 4200 * 'kPa' < Pmax and Pmax < 6200 * 'kPa' then Fp = Cost(7,1) + Cost(7,2)*ln(Details.A/'m^2'); else Fp = Cost(7,1) + Cost(7,2)*ln(Details.A/'m^2'); # verificar end end end end "Cost Factor based on the construction material" Fm = Cost(8,1) + Cost(8,2)*ln(Details.A/'m^2'); Pmax = max( [OutletHot.P , OutletCold.P] ); "Capital Cost" Ce = Cb*Fd*Fp*Fm; "Basic Cost" Cb = 'US\$'*exp(Cost(1,1) + Cost(1,2)*ln(A/'m^2') + Cost(1,3)*(ln(A/'m^2'))^2); "Cost Factor based on the type of the heat exchanger" Fd = exp(Cost(2,1) + Cost(2,2)*ln(A/'m^2') + Cost(2,3)*ln(A/'m^2')); if Pmax <= 700 * 'kPa' then "Cost Factor based on the project pressure" # verificar Fp = Cost(5,1) + Cost(5,2)*ln(A/'m^2'); else if 700 * 'kPa' < Pmax and Pmax < 2100 * 'kPa' then Fp = Cost(5,1) + Cost(5,2)*ln(A/'m^2'); else if 2100 * 'kPa' < Pmax and Pmax < 4200 * 'kPa' then Fp = Cost(6,1) + Cost(6,2)*ln(A/'m^2'); else if 4200 * 'kPa' < Pmax and Pmax < 6200 * 'kPa' then Fp = Cost(7,1) + Cost(7,2)*ln(A/'m^2'); else Fp = Cost(7,1) + Cost(7,2)*ln(A/'m^2'); # verificar end end end end "Cost Factor based on the construction material" Fm = Cost(8,1) + Cost(8,2)*ln(A/'m^2'); end EQUATIONS "Average pressure" Pmax = max( [HotSide.Properties.Average.P , ColdSide.Properties.Average.P] ); "Capital Cost" Ce = Cb*Fd*Fp*Fm; "Basic Cost" Cb = 'US\$'*exp(Cost(1,1) + Cost(1,2)*ln(Details.A/'m^2') + Cost(1,3)*(ln(Details.A/'m^2'))^2); "Cost Factor based on the type of the heat exchanger" Fd = exp(Cost(2,1) + Cost(2,2)*ln(Details.A/'m^2') + Cost(2,3)*ln(Details.A/'m^2')); if Pmax <= 700 * 'kPa' then "Cost Factor based on the project pressure" # verificar Fp = Cost(5,1) + Cost(5,2)*ln(Details.A/'m^2'); else if 700 * 'kPa' < Pmax and Pmax < 2100 * 'kPa' then Fp = Cost(5,1) + Cost(5,2)*ln(Details.A/'m^2'); else if 2100 * 'kPa' < Pmax and Pmax < 4200 * 'kPa' then Fp = Cost(6,1) + Cost(6,2)*ln(Details.A/'m^2'); else if 4200 * 'kPa' < Pmax and Pmax < 6200 * 'kPa' then Fp = Cost(7,1) + Cost(7,2)*ln(Details.A/'m^2'); else Fp = Cost(7,1) + Cost(7,2)*ln(Details.A/'m^2'); # verificar end end end end "Cost Factor based on the construction material" Fm = Cost(8,1) + Cost(8,2)*ln(Details.A/'m^2'); Pmax = max( [OutletHot.P , OutletCold.P] ); "Capital Cost" Ce = Cb*Fd*Fp*Fm; "Basic Cost" Cb = 'US\$'*exp(Cost(1,1) + Cost(1,2)*ln(A/'m^2') + Cost(1,3)*(ln(A/'m^2'))^2); "Cost Factor based on the type of the heat exchanger" Fd = exp(Cost(2,1) + Cost(2,2)*ln(A/'m^2') + Cost(2,3)*ln(A/'m^2')); if Pmax <= 700 * 'kPa' then "Cost Factor based on the project pressure" # verificar Fp = Cost(5,1) + Cost(5,2)*ln(A/'m^2'); else if 700 * 'kPa' < Pmax and Pmax < 2100 * 'kPa' then Fp = Cost(5,1) + Cost(5,2)*ln(A/'m^2'); else if 2100 * 'kPa' < Pmax and Pmax < 4200 * 'kPa' then Fp = Cost(6,1) + Cost(6,2)*ln(A/'m^2'); else if 4200 * 'kPa' < Pmax and Pmax < 6200 * 'kPa' then Fp = Cost(7,1) + Cost(7,2)*ln(A/'m^2'); else Fp = Cost(7,1) + Cost(7,2)*ln(A/'m^2'); # verificar end end end end "Cost Factor based on the construction material" Fm = Cost(8,1) + Cost(8,2)*ln(A/'m^2'); end EQUATIONS "Average pressure" Pmax = max( [HotSide.Properties.Average.P , ColdSide.Properties.Average.P] ); "Capital Cost" Ce = Cb*Fd*Fp*Fm; "Basic Cost" Cb = 'US\$'*exp(Cost(1,1) + Cost(1,2)*ln(Details.A/'m^2') + Cost(1,3)*(ln(Details.A/'m^2'))^2); "Cost Factor based on the type of the heat exchanger" Fd = exp(Cost(2,1) + Cost(2,2)*ln(Details.A/'m^2') + Cost(2,3)*ln(Details.A/'m^2')); if Pmax <= 700 * 'kPa' then "Cost Factor based on the project pressure" # verificar Fp = Cost(5,1) + Cost(5,2)*ln(Details.A/'m^2'); else if 700 * 'kPa' < Pmax and Pmax < 2100 * 'kPa' then Fp = Cost(5,1) + Cost(5,2)*ln(Details.A/'m^2'); else if 2100 * 'kPa' < Pmax and Pmax < 4200 * 'kPa' then Fp = Cost(6,1) + Cost(6,2)*ln(Details.A/'m^2'); else if 4200 * 'kPa' < Pmax and Pmax < 6200 * 'kPa' then Fp = Cost(7,1) + Cost(7,2)*ln(Details.A/'m^2'); else Fp = Cost(7,1) + Cost(7,2)*ln(Details.A/'m^2'); # verificar end end end end "Cost Factor based on the construction material" Fm = Cost(8,1) + Cost(8,2)*ln(Details.A/'m^2'); Pmax = max( [OutletHot.P , OutletCold.P] ); "Capital Cost" Ce = Cb*Fd*Fp*Fm; "Basic Cost" Cb = 'US\$'*exp(Cost(1,1) + Cost(1,2)*ln(A/'m^2') + Cost(1,3)*(ln(A/'m^2'))^2); "Cost Factor based on the type of the heat exchanger" Fd = exp(Cost(2,1) + Cost(2,2)*ln(A/'m^2') + Cost(2,3)*ln(A/'m^2')); if Pmax <= 700 * 'kPa' then "Cost Factor based on the project pressure" # verificar Fp = Cost(5,1) + Cost(5,2)*ln(A/'m^2'); else if 700 * 'kPa' < Pmax and Pmax < 2100 * 'kPa' then Fp = Cost(5,1) + Cost(5,2)*ln(A/'m^2'); else if 2100 * 'kPa' < Pmax and Pmax < 4200 * 'kPa' then Fp = Cost(6,1) + Cost(6,2)*ln(A/'m^2'); else if 4200 * 'kPa' < Pmax and Pmax < 6200 * 'kPa' then Fp = Cost(7,1) + Cost(7,2)*ln(A/'m^2'); else Fp = Cost(7,1) + Cost(7,2)*ln(A/'m^2'); # verificar end end end end "Cost Factor based on the construction material" Fm = Cost(8,1) + Cost(8,2)*ln(A/'m^2'); end EQUATIONS "Average pressure" Pmax = max( [HotSide.Properties.Average.P , ColdSide.Properties.Average.P] ); "Capital Cost" Ce = Cb*Fd*Fp*Fm; "Basic Cost" Cb = 'US\$'*exp(Cost(1,1) + Cost(1,2)*ln(Details.A/'m^2') + Cost(1,3)*(ln(Details.A/'m^2'))^2); "Cost Factor based on the type of the heat exchanger" Fd = exp(Cost(2,1) + Cost(2,2)*ln(Details.A/'m^2') + Cost(2,3)*ln(Details.A/'m^2')); if Pmax <= 700 * 'kPa' then "Cost Factor based on the project pressure" # verificar Fp = Cost(5,1) + Cost(5,2)*ln(Details.A/'m^2'); else if 700 * 'kPa' < Pmax and Pmax < 2100 * 'kPa' then Fp = Cost(5,1) + Cost(5,2)*ln(Details.A/'m^2'); else if 2100 * 'kPa' < Pmax and Pmax < 4200 * 'kPa' then Fp = Cost(6,1) + Cost(6,2)*ln(Details.A/'m^2'); else if 4200 * 'kPa' < Pmax and Pmax < 6200 * 'kPa' then Fp = Cost(7,1) + Cost(7,2)*ln(Details.A/'m^2'); else Fp = Cost(7,1) + Cost(7,2)*ln(Details.A/'m^2'); # verificar end end end end "Cost Factor based on the construction material" Fm = Cost(8,1) + Cost(8,2)*ln(Details.A/'m^2'); end Pmax = max( [OutletHot.P , OutletCold.P] ); "Capital Cost" Ce = Cb*Fd*Fp*Fm; "Basic Cost" Cb = 'US\$'*exp(Cost(1,1) + Cost(1,2)*ln(A/'m^2') + Cost(1,3)*(ln(A/'m^2'))^2); "Cost Factor based on the type of the heat exchanger" Fd = exp(Cost(2,1) + Cost(2,2)*ln(A/'m^2') + Cost(2,3)*ln(A/'m^2')); if Pmax <= 700 * 'kPa' then "Cost Factor based on the project pressure" # verificar Fp = Cost(5,1) + Cost(5,2)*ln(A/'m^2'); else if 700 * 'kPa' < Pmax and Pmax < 2100 * 'kPa' then Fp = Cost(5,1) + Cost(5,2)*ln(A/'m^2'); else if 2100 * 'kPa' < Pmax and Pmax < 4200 * 'kPa' then Fp = Cost(6,1) + Cost(6,2)*ln(A/'m^2'); else if 4200 * 'kPa' < Pmax and Pmax < 6200 * 'kPa' then Fp = Cost(7,1) + Cost(7,2)*ln(A/'m^2'); else Fp = Cost(7,1) + Cost(7,2)*ln(A/'m^2'); # verificar end end end end "Cost Factor based on the construction material" Fm = Cost(8,1) + Cost(8,2)*ln(A/'m^2'); end
Note: See TracChangeset for help on using the changeset viewer.