/[ascend]/trunk/models/steam/dsgsat2.a4c
ViewVC logotype

Diff of /trunk/models/steam/dsgsat2.a4c

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

revision 1116 by johnpye, Thu Jan 11 09:48:32 2007 UTC revision 1117 by johnpye, Thu Jan 11 10:57:24 2007 UTC
# Line 15  REQUIRE "steam/satsteamstream.a4c"; Line 15  REQUIRE "steam/satsteamstream.a4c";
15    
16  MODEL dsgsat2;  MODEL dsgsat2;
17      n IS_A integer_constant;      n IS_A integer_constant;
18      n :== 10;      n :== 2;
19    
20      (* temporal derivatives *)      (* temporal derivatives *)
21      drho_dt[2..n] IS_A density_rate;      drho_dt[2..n] IS_A density_rate;
# Line 103  METHOD default_self; Line 103  METHOD default_self;
103          mdot[i] := 0.001 {kg/s};          mdot[i] := 0.001 {kg/s};
104          vel[i] := 0.01 {m/s};          vel[i] := 0.01 {m/s};
105          x[i] := 0.1;          x[i] := 0.1;
106            node[i].T := (300 {K}) - (20.0 {K})*(1.0 / n * i);
107      END FOR;      END FOR;
108  END default_self;  END default_self;
109  METHOD specify;  METHOD specify;
# Line 184  METHOD values_steady; Line 185  METHOD values_steady;
185      (* nothing atm *)      (* nothing atm *)
186  END values_steady;  END values_steady;
187  (*------------------------- the dynamic problem ------------------------------*)  (*------------------------- the dynamic problem ------------------------------*)
188  METHOD fixed_pressures;  METHOD configure_dynamic;
189      RUN ClearAll;      RUN ClearAll;
190      RUN specify;      RUN specify;
191      FOR i IN [1..n] DO      RUN fixed_states;
192          FREE node[i].T;      RUN ode_init;
193          FIX node[i].p;  END configure_dynamic;
194          node[i].p := 5 {bar};  
         FREE node[i].x;  
         FIX dmdot_dt[i];  
 (*  
         FIX dmdot_dt[i];  
         FREE node[i].x;  
         dmdot_dt[i] := 0 {kg/s/s};*)  
     END FOR;  
 END fixed_pressures;  
195  METHOD fixed_states;  METHOD fixed_states;
196      qdot_s := 10 {W/m};      qdot_s := 10 {W/m};
197      FOR i IN [2..n] DO      FOR i IN [2..n] DO

Legend:
Removed from v.1116  
changed lines
  Added in v.1117

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