1 |
REQUIRE "johnpye/ideal_steam.a4c"; |
REQUIRE "johnpye/iapws95.a4c"; |
2 |
REQUIRE "johnpye/iapws_sat_curves.a4c"; |
REQUIRE "johnpye/iapws_sat_curves.a4c"; |
3 |
|
|
4 |
MODEL absorber; |
MODEL absorber; |
10 |
all Q is absorbed by water |
all Q is absorbed by water |
11 |
steam generation is constant along length as mass rate, so x rises linearly. |
steam generation is constant along length as mass rate, so x rises linearly. |
12 |
*) |
*) |
13 |
S_out IS_A ideal_steam; (* outlet steam state *) |
S_out IS_A iapws95_2phase; (* outlet steam state *) |
14 |
sat IS_A iapws_sat_density; |
sat IS_A iapws_sat_density; |
15 |
T ALIASES S_out.T; |
T ALIASES S_out.T; |
16 |
T,sat.T ARE_THE_SAME; |
T,sat.T ARE_THE_SAME; |