/[ascend]/trunk/models/simpleflowsheet01cost.a4c
ViewVC logotype

Contents of /trunk/models/simpleflowsheet01cost.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 457 - (show annotations) (download) (as text)
Wed Apr 5 14:19:41 2006 UTC (13 years, 10 months ago) by aw0a
File MIME type: text/x-ascend
File size: 3691 byte(s)
modified 2_cis_hexene data in components.a4l, updated simpleflowsheetrigorous.a4c
1 REQUIRE "simpleflowsheet01mass.a4c";
2 (* => simpleflowsheet01mass.a4c, simpleflowsheet01.a4c, atoms.a4l, measures.a4l,
3 * system.a4l, basemodel.a4l *)
4 REQUIRE "guthriecosts.a4l";
5 (* => guthriecosts.a4l, atoms.a4l, measures.a4l, system.a4l, basemodel.a4l *)
6 PROVIDE "simpleflowsheet01cost.a4c";
7 (*
8 * This file is part of the ASCEND Modeling Library and is released
9 * under the GNU Public License as described at the end of this file.
10 *)
11
12 ATOM cash_flow REFINES cost_per_time;
13 lower_bound := -1.0e50 {USD/min};
14 nominal := 1.0 {USD/s};
15 END cash_flow;
16
17
18 MODEL flowsheet_cost;
19
20 tc IS_A test_controller;
21 cm1,cr1,cfl1 IS_A simple_pressure_vessel_cost;
22
23 feed_cost,bleed_value,
24 product_value,
25 annual_profit,
26 annual_investment_cost IS_A cash_flow;
27 price[tc.fs.m1.out.components],
28 fuel_price IS_A cost_per_mass;
29 payout_time IS_A time;
30
31
32 tc.fs.m1.feed[1],
33 tc.fs.m1.out,
34 tc.fs.r1.out,
35 tc.fs.fl1.liq,
36 tc.fs.fl1.vap,
37 tc.fs.sp1.out[1..2] IS_REFINED_TO mod_stream;
38
39
40 cm1.gc.ci,
41 cr1.gc.ci,
42 cfl1.gc.ci ARE_THE_SAME;
43
44 cm1.vol_flow,
45 tc.fs.m1.out.Vtot_liq ARE_THE_SAME;
46
47 cr1.vol_flow,
48 tc.fs.r1.feed.Vtot_liq ARE_THE_SAME;
49
50 cfl1.vol_flow,
51 tc.fs.fl1.feed.Vtot_liq ARE_THE_SAME;
52
53 annual_investment_cost = (cm1.installed_cost + cr1.installed_cost
54 + cfl1.installed_cost)/payout_time;
55
56 feed_cost = price['B']*tc.fs.m1.feed[1].w['B']
57 *tc.fs.m1.feed[1].state.yw['B'];
58
59 bleed_value = fuel_price*tc.fs.sp1.out[1].Wtot;
60
61 product_value = price['C']*tc.fs.fl1.liq.w['C']
62 *tc.fs.fl1.liq.state.yw['C'];
63
64 annual_profit = product_value+bleed_value-feed_cost
65 -annual_investment_cost;
66
67 MAXIMIZE annual_profit;
68
69
70 METHODS
71
72 METHOD default_self;
73 END default_self;
74
75 METHOD specify;
76 RUN tc.specify;
77 RUN cm1.specify;
78 RUN cr1.specify;
79 RUN cfl1.specify;
80
81 cm1.vol_flow.fixed := FALSE;
82 cr1.vol_flow.fixed := FALSE;
83 cfl1.vol_flow.fixed := FALSE;
84
85 price[tc.fs.m1.out.components].fixed := TRUE;
86 fuel_price.fixed := TRUE;
87 payout_time.fixed := TRUE;
88 END specify;
89
90 METHOD reset;
91 RUN ClearAll;
92 RUN specify;
93 END reset;
94
95 METHOD values;
96
97 RUN tc.values;
98
99 payout_time.nominal := 2{yr};
100 price['A'] := 0.15{USD/lbm};
101 price['B'] := 0.15{USD/lbm};
102 price['C'] := 0.30{USD/lbm};
103
104 fuel_price := 0.1 {USD/lbm};
105 payout_time := 3 {yr};
106
107 cm1.gc.ci.MandSindex := 990.8;
108 cm1.gc.ci.Fp := 1.0;
109 cm1.gc.ci.Fm := 1.0;
110
111 cm1.H_to_D := 2.0;
112 cm1.liq_holdup_time := 10{s};
113 cr1.H_to_D := 2.0;
114 cr1.liq_holdup_time := 10{s};
115 cfl1.H_to_D := 2.0;
116 cfl1.liq_holdup_time := 10{s};
117
118 END values;
119
120 END flowsheet_cost;
121
122
123 (*
124 * simpleflowsheet01cost.a4c
125 * by Arthur W. Westerberg
126 * Part of the ASCEND Library
127 * $Date: 2006/03/03 10:31:53$
128 *
129 * This file is part of the ASCEND Modeling Library.
130 *
131 * Copyright (C) 1994-1998 Carnegie Mellon University
132 *
133 * The ASCEND Modeling Library is free software; you can redistribute
134 * it and/or modify it under the terms of the GNU General Public
135 * License as published by the Free Software Foundation; either
136 * version 2 of the License, or (at your option) any later version.
137 *
138 * The ASCEND Modeling Library is distributed in hope that it
139 * will be useful, but WITHOUT ANY WARRANTY; without even the implied
140 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
141 * See the GNU General Public License for more details.
142 *
143 * You should have received a copy of the GNU General Public License
144 * along with the program; if not, write to the Free Software
145 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check
146 * the file named COPYING.
147 *)

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22