mtt: Diff

Differences From Artifact [61ef987daa]:

Executable file mttroot/mtt/lib/comp/simple/FP_eqn.m — part of check-in [1633562f68] at 1998-07-07 15:00:04 on branch origin/master — Replaced e_ by f_
s_ by p_ (user: gawthrop@users.sourceforge.net, size: 2349) [annotate] [blame] [check-ins using]

To Artifact [764e3abe81]:

Executable file mtt/lib/comp/simple/FP_eqn.m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 2266) [annotate] [blame] [check-ins using] [more...]
Executable file mttroot/mtt/lib/comp/simple/FP_eqn.m — part of check-in [e479e36883] at 1998-07-21 16:13:20 on branch origin/master — Sorted out errors in the equations (user: gawthrop@users.sourceforge.net, size: 2266) [annotate] [blame] [check-ins using]

︙
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 30	+ + + +	% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.3 1998/07/07 15:00:04 peterg % %% Replaced e_ by f_ % %% s_ by p_ % %% % %% Revision 1.2 1998/06/29 09:54:16 peterg % %% Changed name from ES to FP % %% % %% Revision 1.1 1998/06/29 09:53:22 peterg % %% Initial revision % %% % %% Revision 1.3 1998/03/27 10:59:43 peterg
︙
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 80~~ 81	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 80 81 82	- - + + - - - - - + + + + - - - - + + + - + - - + + + + + + - - - - -	end % There are 2 ports; extract the information f_bond = bonds(1,:); p_bond = bonds(2,:); ~~% The efforts are the same ~~- but the enthalpy side has relative T~~ if f_bond(1)==1 %effort imposed on the e~~nthalpy~~ bond~~ % The efforts are the same if p_bond(1)==1 %effort imposed on the pseudo bond ~~% fprintf(eqnfile,'%s := %s + t_0;\n' , ...~~ fprintf(eqnfile,'%s := %s;\n' , ... varname(name,bond_number(2), 1), ... varname(name,bond_number(1), 1) ); else %effort imposed on the ~~entropy~~ bond fprintf(eqnfile,'%s := %s;\n' , ... varname(name,bond_number(1), 1), ... varname(name,bond_number(2), 1) ); else %effort imposed on the true bond ~~~~% fprintf(eqnfile,'%s := %s - t_0;\n' , ...~~ fprintf(eqnfile,'%s := %s;\n' , ... varname(name,bond_number(1), 1), ... varname(name,bond_number(2), 1) );~~ fprintf(eqnfile,'%s := %s;\n' , ... varname(name,bond_number(2), 1), ... varname(name,bond_number(1), 1) ); end; ~~% The flows need to be converted ~~- use the absolute temp on the~~~~ % The flows need to be converted ~~~~% entropy side~~ if f_bond(2)==-1 %flow imposed on the e~~nthalpy~~ bond~~ if p_bond(2)==-1 %flow imposed on the pseudo bond fprintf(eqnfile,'%s := %s/%s;\n' , ... varname(name,bond_number(1), -1), ... varname(name,bond_number(2), -1), ... varname(name,bond_number(1), 1) ); else % flow imposed on the true bond 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;\n' , ...~~ ~~varname(name,bond_number(1), -1), ...~~ ~~varname(name,bond_number(2), -1), ...~~ ~~varname(name,bond_number(2), 1) );~~ end;