1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
+
+
+
-
+
-
+
-
+
-
+
-
-
+
+
-
+
+
|
% Steady-state parameter file (CarnotCycle_sspar.r)
% Generated by MTT at Wed Mar 4 11:02:40 GMT 1998
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% % Revision 1.2 2000/12/28 18:14:40 peterg
% % To RCS
% %
% % Revision 1.1 1998/03/04 11:49:14 peterg
% % Initial revision
% %
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Set a pressure of 1 bar
P_0 := 10^5;
%P_0 := 10^5;
% Unit initial volume
V_0 := 1;
%V_0 := 1;
% Internal energy
U_0 := P_0*V_0/(gamma_g-1);
% Set initial temperature of 300k
T_0 := 300;
%T_0 := 300;
% Deduce the mass of gas
m := U_0/(T_0*c_v);
m_g := U_0/(T_0*c_v);
% Entropy
S_0 := U_0/T_0;
% Steady-state states
MTTX1 := U_0; % CarnotCycle_cycle_gas (c)
MTTX2 := V_0; % CarnotCycle_cycle_gas (c)
MTTX3 := S_0; % CarnotCycle_cycle_entropy (3)
MTTX4 := V_0; % CarnotCycle_cycle_volume (3)
MTTX3 := S_0; % CarnotCycle_cycle_volume (3)
MTTX4 := V_0; % CarnotCycle_cycle_entropy (3)
% Steady-state inputs
MTTU1 := 0; % CarnotCycle (Heat)
MTTU1 := T_0; % CarnotCycle (Heat)
MTTU2 := 0; % CarnotCycle (Work)
MTTU3 := 0; % Switch (conduction)
;;END;
|