Overview
Comment: | Changed to finenumber format. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
0f245d8df0e41bd14b5f64a41de4dcfd |
User & Date: | gawthrop@users.sourceforge.net on 1996-08-08 18:09:10 |
Other Links: | branch diff | manifest | tags |
Context
1996-08-09
| ||
08:23:11 | Fixed bug: ports not recognised. check-in: f355801184 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
1996-08-08
| ||
18:09:10 | Changed to finenumber format. check-in: 0f245d8df0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
18:08:37 | Sorted out file naming scheme. check-in: 8643f0088a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/lib/comp/simple/juneqn.m from [ecb065f1f5] to [dacd84f5a3].
|
| | > > > < < < < < < | | | | | 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 | function juneqn(bond_number,bonds,direction,cr,args,jun,filenumber) % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.1 1996/08/08 16:38:50 peter % %% Initial revision % %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Equations for both effort and flow on either zero or one junctions % Same causality as junction column = (3-jun)/2; [causing_bond,n,other_bonds,m] = getindex(bonds(:,column),jun); for i=other_bonds' oneeqn(bond_number(i), jun, bond_number(causing_bond), jun, '', '',filenumber); end; % Opposite causality to junction column = (3+jun)/2; [caused_bond,n,other_bonds,m] = getindex(bonds(:,column),jun); fprintf(filenumber, '%s\t:= \n', varname(bond_number(caused_bond),-jun)); for i=other_bonds' term_sign = -direction(caused_bond,column)*direction(i,column); fprintf(filenumber, '\t\t%s %s\n', sign2name(term_sign), ... varname(bond_number(i),-jun)); end; fprintf(filenumber, ';\n'); |