trunk/models/simpleflowsheet01cost.a4c

REQUIRE "simpleflowsheet01mass.a4c";
(* => simpleflowsheet01mass.a4c, simpleflowsheet01.a4c, atoms.a4l, measures.a4l,
 *    system.a4l, basemodel.a4l *)
REQUIRE "guthriecosts.a4l";
(* => guthriecosts.a4l, atoms.a4l, measures.a4l, system.a4l, basemodel.a4l *)
PROVIDE "simpleflowsheet01cost.a4c";
(*
 * This file is part of the ASCEND Modeling Library and is released
 * under the GNU Public License as described at the end of this file.
 *)

ATOM cash_flow REFINES cost_per_time;
    lower_bound := -1.0e50 {USD/min};
    nominal     := 1.0 {USD/s};
END cash_flow;


MODEL flowsheet_cost;

	tc				IS_A 	test_controller;
	cm1,cr1,cfl1			IS_A 	simple_pressure_vessel_cost;

       	feed_cost,bleed_value,
	    product_value,
	    annual_profit,
	    annual_investment_cost	IS_A 	cash_flow;
       	price[tc.fs.m1.out.components],
	    fuel_price			IS_A	cost_per_mass;
	payout_time			IS_A	time;


	tc.fs.m1.feed[1],
	    tc.fs.m1.out,
	    tc.fs.r1.out,
	    tc.fs.fl1.liq,
	    tc.fs.fl1.vap,
	    tc.fs.sp1.out[1..2]		IS_REFINED_TO mod_stream;


	cm1.gc.ci,
	cr1.gc.ci,
	cfl1.gc.ci			ARE_THE_SAME;

	cm1.vol_flow,
	    tc.fs.m1.out.Vtot_liq	ARE_THE_SAME;

	cr1.vol_flow,
	    tc.fs.r1.feed.Vtot_liq	ARE_THE_SAME;

	cfl1.vol_flow,
	    tc.fs.fl1.feed.Vtot_liq	ARE_THE_SAME;

	annual_investment_cost = (cm1.installed_cost + cr1.installed_cost
	    + cfl1.installed_cost)/payout_time;

	feed_cost = price['B']*tc.fs.m1.feed[1].w['B']
	    *tc.fs.m1.feed[1].state.yw['B'];

	bleed_value = fuel_price*tc.fs.sp1.out[1].Wtot;

	product_value = price['C']*tc.fs.fl1.liq.w['C']
	    *tc.fs.fl1.liq.state.yw['C'];

	annual_profit = product_value+bleed_value-feed_cost
	    -annual_investment_cost;

	MAXIMIZE annual_profit;


  METHODS

    METHOD default_self;
    END default_self;

    METHOD specify;
	RUN tc.specify;
	RUN cm1.specify;
	RUN cr1.specify;
	RUN cfl1.specify;

	cm1.vol_flow.fixed			:=	FALSE;
	cr1.vol_flow.fixed			:=	FALSE;
	cfl1.vol_flow.fixed			:=	FALSE;

	price[tc.fs.m1.out.components].fixed	:=	TRUE;
	fuel_price.fixed			:=	TRUE;
	payout_time.fixed			:=	TRUE;
    END specify;

    METHOD reset;
	RUN ClearAll;
	RUN specify;
    END reset;

    METHOD values;

	RUN tc.values;

	payout_time.nominal		:=	2{yr};
	price['A']				:=	0.15{USD/lbm};
	price['B']				:=	0.15{USD/lbm};
	price['C']				:=	0.30{USD/lbm};

	fuel_price				:=	0.1 {USD/lbm};
	payout_time				:=	3 {yr};

	cm1.gc.ci.MandSindex			:=	990.8;
	cm1.gc.ci.Fp				:=	1.0;
	cm1.gc.ci.Fm				:=	1.0;

	cm1.H_to_D				:=	2.0;
	cm1.liq_holdup_time			:=	10{s};
	cr1.H_to_D				:=	2.0;
	cr1.liq_holdup_time			:=	10{s};
	cfl1.H_to_D				:=	2.0;
	cfl1.liq_holdup_time			:=	10{s};

    END values;

END flowsheet_cost;


(*
 *  simpleflowsheet01cost.a4c
 *  by Arthur W. Westerberg
 *  Part of the ASCEND Library
 *  $Date: 2006/03/03 10:31:53$
 *
 *  This file is part of the ASCEND Modeling Library.
 *
 *  Copyright (C) 1994-1998 Carnegie Mellon University
 *
 *  The ASCEND Modeling Library is free software; you can redistribute
 *  it and/or modify it under the terms of the GNU General Public
 *  License as published by the Free Software Foundation; either
 *  version 2 of the License, or (at your option) any later version.
 *
 *  The ASCEND Modeling Library is distributed in hope that it
 *  will be useful, but WITHOUT ANY WARRANTY; without even the implied
 *  warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 *  See the GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with the program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA.  Check
 *  the file named COPYING.
 *)
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	*)