source: trunk/eml/costs/tank_cost.mso @ 962

Last change on this file since 962 was 331, checked in by Argimiro Resende Secchi, 15 years ago

Adding the cost models in the EML.

File size: 2.7 KB
Line 
1#*-------------------------------------------------------------------
2* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
3*
4* This LIBRARY is free software; you can distribute it and/or modify
5* it under the therms of the ALSOC FREE LICENSE as available at
6* http://www.enq.ufrgs.br/alsoc.
7*
8* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
9* from http://www.rps.eng.br Copyright (C) 2002-2004.
10* All rights reserved.
11*
12* EMSO is distributed under the therms of the ALSOC LICENSE as
13* available at http://www.enq.ufrgs.br/alsoc.
14*
15*-------------------------------------------------------------------
16* Model of costs for tanks
17*--------------------------------------------------------------------
18*       Streams:
19*               * an inlet stream
20*               * an outlet stream
21*
22*       Specify:
23*               * the Inlet stream
24*               * the Outlet flow
25*               * the tank Q
26*
27*       Initial:
28*               * the tank temperature (OutletL.T)
29*               * the tank level (h)
30*               * (NoComps - 1) Outlet compositions
31*----------------------------------------------------------------------
32* Author: Núbia do Carmo Ferreira
33* $Id: tank.mso 210 2007-03-15 12:52:28Z arge $
34*--------------------------------------------------------------------*#
35
36using "stage_separators/tank";
37
38Model tank_cost as tank
39        ATTRIBUTES
40        Pallete         = true;
41        Icon            = "icon/Tank";
42
43        PARAMETERS
44        Material as Switcher (Valid = ["Stainless steel 316", "Stainless steel 304", "Stainless steel 347", "Nickel", "Monel", "Inconel", "Zirconium", "Titanium",
45                                                                "Brick_and_rubber", "Brick_and_polyester_lined steel", "Rubber", "Lead_lined steel", "Polyester" ,"Fiberglass_strengthened",
46                                                                "Aluminum", "Copper", "Concrete"], Default = "Stainless steel 316");
47        Cost(3,3) as Real;
48        Height    as length(Brief="Tank height");
49
50        VARIABLES
51        Ce as currency  (Brief="Capital Cost");
52        Cb as currency  (Brief="Basic Cost");
53        Fm as positive  (Brief="Cost Factor based on the construction material");
54        V  as volume    (Brief="Total Volume");
55       
56        EQUATIONS
57        "Total Volume"
58        V = Across * Height;
59
60        "Capital Cost"
61        Ce = Cb*Fm;
62
63        if V < 5 * 'm^3' then
64        "Basic Cost"
65        Cb = 'US$'*exp(Cost(1,1) + Cost(1,2)*ln(V/'m^3') + Cost(1,3)*(ln(V/'m^3'))^2); #verificar
66        else if 5 * 'm^3' > V and V < 80 * 'm^3' then
67        "tank bought soon"
68        Cb = 'US$'*exp(Cost(1,1) + Cost(1,2)*ln(V/'m^3') + Cost(1,3)*(ln(V/'m^3'))^2);
69        else if 80 * 'm^3' > V and V < 45000 * 'm^3' then
70        "the tank manufactured in the plant"
71        Cb = 'US$'*exp(Cost(2,1) + Cost(2,2)*ln(V/'m^3') + Cost(2,3)*(ln(V/'m^3'))^2);
72        else
73        Cb = 'US$'*exp(Cost(2,1) + Cost(2,2)*ln(V/'m^3') + Cost(2,3)*(ln(V/'m^3'))^2); #verificar
74        end
75        end
76        end
77
78        "Cost Factor based on the construction material"
79        Fm = Cost(3,1) + Cost(3,2) + Cost(3,3);
80       
81end
Note: See TracBrowser for help on using the repository browser.