Overview
Comment:Corrected enthalpy-entropy conversion -- use temp on the entropy side.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 6416f81956809afb17757c6f9b672d5afd3225e6ac86b5a80f9830c15a4b0001
User & Date: gawthrop@users.sourceforge.net on 1998-02-25 16:59:56.000
Other Links: branch diff | manifest | tags
Context
1998-02-25
18:02:39
Removed the argument passing stuff .
Replaced by the simpar.m method.
check-in: f27a8a929c user: gawthrop@users.sourceforge.net tags: origin/master, trunk
16:59:56
Corrected enthalpy-entropy conversion -- use temp on the entropy side. check-in: 6416f81956 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
15:28:34
Added state.m rep. check-in: e0f4289844 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
13
14
15
16
17
18
19



20
21
22
23
24
25
26
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29







+
+
+









% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1  1998/02/25 15:03:51  peterg
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% Copyright (c) P.J. Gawthrop, 1997.


if nargin<6
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
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







-
+










-
+
+

-
+




-
+




end


% There are 2 ports; extract the information
e_bond = bonds(1,:);
s_bond = bonds(2,:);

% The efforts are the same
% The efforts are the same - but the enthalpy side has relative T
if e_bond(1)==1 %effort imposed on the enthalpy bond 
  fprintf(eqnfile,'%s := %s + t_0;\n' , ...
    varname(name,bond_number(2), 1), ...
    varname(name,bond_number(1), 1) );
else %effort imposed on the entropy bond 
  fprintf(eqnfile,'%s := %s - t_0;\n' , ...
    varname(name,bond_number(1), 1), ...
    varname(name,bond_number(2), 1) );
end;

% The flows need to be converted
% The flows need to be converted - use the absolute temp on the
% entropy side
if e_bond(2)==-1 %flow imposed on the enthalpy bond 
  fprintf(eqnfile,'%s := %s/(%s + t_0);\n' , ...
  fprintf(eqnfile,'%s := %s/%s;\n' , ...
    varname(name,bond_number(2), -1), ...
    varname(name,bond_number(1), -1), ...
    varname(name,bond_number(2), 1) );
else % flow imposed on the entropy bond 
    fprintf(eqnfile,'%s := %s*(%s - t_0);\n' , ...
    fprintf(eqnfile,'%s := %s*%s;\n' , ...
    varname(name,bond_number(1), -1), ...
    varname(name,bond_number(2), -1), ...
    varname(name,bond_number(2), 1) );
end;

MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]