/[ascend]/trunk/models/johnpye/loop.a4c
ViewVC logotype

Diff of /trunk/models/johnpye/loop.a4c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 319 by johnpye, Thu Feb 16 09:58:21 2006 UTC revision 320 by johnpye, Thu Feb 23 13:38:40 2006 UTC
# Line 12  MODEL loop; Line 12  MODEL loop;
12    
13      A IS_A absorber;      A IS_A absorber;
14    
     S_cond_out IS_A iapws95_2phase;  
     S_tank_in IS_A thermo_state;  
   
15      S IS_A separator;      S IS_A separator;
16        A.S_out, S.S_in ARE_THE_SAME;
17        A.mdot_out, S.mdot_in ARE_THE_SAME;
18    
19      C IS_A condenser_lmtd_sat(S.S_v, S_cond_out); (* in, out *)      C IS_A condenser_lmtd_sat(S.S_v, S_cond_out); (* in, out *)
20      T IS_A surgetank;      S.S_v, C.S_in ARE_THE_SAME;
21        S_cond_out IS_A iapws95_2phase;
22    
23    
24      M IS_A mixer;      M IS_A mixer;
25      M.S_in_1, S.S_l ARE_THE_SAME; (* connect separated liquid to mixer *)      M.S_in_1, S.S_l ARE_THE_SAME; (* connect separated liquid to mixer *)
26      M.S_in_2, C.S_out ARE_THE_SAME; (* connect condenser outlet to mixer *)      M.S_in_2, C.S_out ARE_THE_SAME; (* connect condenser outlet to mixer *)
     M.S_out, S_tank_in ARE_THE_SAME; (* connect mixed outlet to surge tank *)  
27      M.mdot_in_1, S.mdot_l ARE_THE_SAME;      M.mdot_in_1, S.mdot_l ARE_THE_SAME;
28      M.mdot_in_2, C.mdot_out ARE_THE_SAME;      M.mdot_in_2, C.mdot_out ARE_THE_SAME;
29    
30        (* T IS_A surgetank;
31        C.mdot_out, T.mdot_water_in ARE_THE_SAME;
32        S_tank_in IS_A thermo_state; *)
33        (* M.S_out, S_tank_in ARE_THE_SAME; *)(* connect mixed outlet to surge tank *)
34        (* m_T ALIASES T.m_water; *)
35        (* p_T ALIASES T.p; *)
36        (* V_water_T ALIASES T.V_water;  *)
37    
38      (* join absorber and condenser  *)      m_water IS_A mass;
39      A.mdot_gas_out, C.mdot_in ARE_THE_SAME;      m_A (* + m_T *) = m_water;
     A.S_out, S.S_in ARE_THE_SAME;  
     S.S_v, C.S_in ARE_THE_SAME;  
40    
41      (* join condenser and surge tank *)      (* some aliases, for usability *)
     C.mdot_out, T.mdot_water_in ARE_THE_SAME;  
42    
43      Q_A ALIASES A.Q;      Q_A ALIASES A.Q;
44      Q_C ALIASES C.q;      Q_C ALIASES C.q;
# Line 42  MODEL loop; Line 46  MODEL loop;
46      mdot_C_out ALIASES C.mdot_out;      mdot_C_out ALIASES C.mdot_out;
47            
48      m_A ALIASES A.m_water;      m_A ALIASES A.m_water;
     m_T ALIASES T.m_water;  
   
     m_water IS_A mass;  
   
     m_A + m_T = m_water;  
49    
     p_T ALIASES T.p;  
50      p_A ALIASES A.p;      p_A ALIASES A.p;
51    
   
     V_water_T ALIASES T.V_water;  
       
52      x_exit_A ALIASES A.x_exit;      x_exit_A ALIASES A.x_exit;
53    
54      (*A.p = T.p;*)      (*A.p = T.p;*)
# Line 73  METHOD specify; Line 68  METHOD specify;
68      FIX C.T_co;      FIX C.T_co;
69      FIX C.cp_c;      FIX C.cp_c;
70    
71      FIX T.T, T.rho_water;      (* FIX T.rho_water;
72      FIX T.V_vessel, T.m_gas;      FIX T.V_vessel, T.m_gas; *)
73    
74      FIX m_water;      FIX m_water;
75  END specify;  END specify;
# Line 92  METHOD values; Line 87  METHOD values;
87      C.T_ci := 473.15 {K};      C.T_ci := 473.15 {K};
88      C.T_co := 490.15 {K};      C.T_co := 490.15 {K};
89    
90      T.T := C.T_co;      (* T.T := C.T_co;
91      T.rho_water := 997 {kg/m^3};      T.rho_water := 997 {kg/m^3};
92      T.V_vessel := 10000 {L};      T.V_vessel := 10000 {L};
93      T.m_gas := 40 {kg};      T.m_gas := 40 {kg}; *)
94    
95      (* free *)      (* free *)
96      m_A := 1000 {kg};      m_A := 1000 {kg};
97      m_T := 7000 {kg};      (* m_T := 7000 {kg}; *)
98      C.mdot_c := 10 {kg/s};      C.mdot_c := 10 {kg/s};
99  END values;  END values;
100    

Legend:
Removed from v.319  
changed lines
  Added in v.320

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