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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1 1997/12/07 20:45:21 peterg
% %% Initial revision
% %%
% %% Revision 1.1 1996/11/02 10:21:19 peterg
% %% Initial revision
% %%
% %% Revision 1.1 1996/09/12 11:18:26 peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
OPERATOR CU;
%% Integral/Integral causality
Port 1 - Thermal
FOR ALL c_v,gamma,m,InternalEnergy,Volume
LET CU(ideal_gas,c_v,gamma,m,effort,1,
InternalEnergy, state, 1,
Volume, state, 2)
= InternalEnergy/(m*c_v);
Port 2 - Mechanical
FOR ALL c_v,gamma,m,InternalEnergy,Volume
LET CU(ideal_gas,c_v,gamma,m,effort,2,
InternalEnergy, state, 1,
Volume, state, 2)
= (gamma-1)*(InternalEnergy)/Volume;
%% Derivative/Integral causality
Port 1 - Thermal
FOR ALL c_v,gamma,m,Temperature,Volume
LET CU(ideal_gas,c_v,gamma,m,state,1,
Temperature, effort, 1,
Volume, state, 2)
= Temperature*(m*c_v);
Port 2 - Mechanical
FOR ALL c_v,gamma,m,Temperature,Volume
LET CU(ideal_gas,c_v,gamma,m,effort,2,
Temperature, effort, 1,
Volume, state, 2)
= (gamma-1)*(m*c_v)*(Temperature)/Volume;
%% Integral/Derivative causality
Port 1 - Thermal
FOR ALL c_v,gamma,m,InternalEnergy,Pressure
LET CU(ideal_gas,c_v,gamma,m,effort,1,
InternalEnergy, state, 1,
Pressure, effort, 2)
= InternalEnergy/(m*c_v);
Port 2 - Mechanical
FOR ALL c_v,gamma,m,InternalEnergy,Pressure
LET CU(ideal_gas,c_v,gamma,m,state,2,
InternalEnergy, state, 1,
Pressure, effort, 2)
= (gamma-1)*(InternalEnergy)/Pressure;
END;
|
>
>
>
|
|
|
|
|
|
|
|
|
|
|
|
|
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1 2000/12/28 10:34:56 peterg
% %% Put under RCS
% %%
% %% Revision 1.1 1997/12/07 20:45:21 peterg
% %% Initial revision
% %%
% %% Revision 1.1 1996/11/02 10:21:19 peterg
% %% Initial revision
% %%
% %% Revision 1.1 1996/09/12 11:18:26 peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
OPERATOR CU;
%% Integral/Integral causality
Port 1 - Thermal
FOR ALL COMPONENT, c_v,gamma,m,InternalEnergy,Volume
LET CU(COMPONENT, ideal_gas,c_v,gamma,m,effort,1,
InternalEnergy, state, 1,
Volume, state, 2)
= InternalEnergy/(m*c_v);
Port 2 - Mechanical
FOR ALL COMPONENT, c_v,gamma,m,InternalEnergy,Volume
LET CU(COMPONENT, ideal_gas,c_v,gamma,m,effort,2,
InternalEnergy, state, 1,
Volume, state, 2)
= (gamma-1)*(InternalEnergy)/Volume;
%% Derivative/Integral causality
Port 1 - Thermal
FOR ALL COMPONENT, c_v,gamma,m,Temperature,Volume
LET CU(COMPONENT, ideal_gas,c_v,gamma,m,state,1,
Temperature, effort, 1,
Volume, state, 2)
= Temperature*(m*c_v);
Port 2 - Mechanical
FOR ALL COMPONENT, c_v,gamma,m,Temperature,Volume
LET CU(COMPONENT, ideal_gas,c_v,gamma,m,effort,2,
Temperature, effort, 1,
Volume, state, 2)
= (gamma-1)*(m*c_v)*(Temperature)/Volume;
%% Integral/Derivative causality
Port 1 - Thermal
FOR ALL COMPONENT, c_v,gamma,m,InternalEnergy,Pressure
LET CU(COMPONENT, ideal_gas,c_v,gamma,m,effort,1,
InternalEnergy, state, 1,
Pressure, effort, 2)
= InternalEnergy/(m*c_v);
Port 2 - Mechanical
FOR ALL COMPONENT, c_v,gamma,m,InternalEnergy,Pressure
LET CU(COMPONENT, ideal_gas,c_v,gamma,m,state,2,
InternalEnergy, state, 1,
Pressure, effort, 2)
= (gamma-1)*(InternalEnergy)/Pressure;
END;
|