Overview
Comment: | Initial revision |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
1f7423ad4ad6ba3696624e3166406a5c |
User & Date: | gawthrop@users.sourceforge.net on 1996-11-01 13:22:20 |
Other Links: | branch diff | manifest | tags |
Context
1996-11-01
| ||
13:34:35 | -q (quiet) switch added check-in: cbad5dfd1a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
13:22:20 | Initial revision check-in: 1f7423ad4a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
12:48:21 | Run mtt in quiet mode. check-in: a79937f0e2 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Added mttroot/mtt/lib/comp/simple/EMTF_eqn.m version [065030a49c].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 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 | function structure = TF_eqn(name,bond_number,bonds,direction,cr,args, ... structure,eqnfile); % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.2 1996/09/10 10:41:37 peter % %% Now used equation.m to write the equations. % %% % %% Revision 1.1 1996/08/19 09:05:04 peter % %% Initial revision % %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% if nargin<8 eqnfile = 'stdout'; end; % Check that there are exactly two bonds. if check_bonds(bonds,2,'TF')==0 return end % There are 2 ports; extract the information e_1 = bonds(1,1); f_1 = bonds(1,2); e_2 = bonds(2,1); f_2 = bonds(2,2); % Effort outcause = 1; incause = 1; if e_1==1 outbond = bond_number(2); inbond = bond_number(1); outport = 2; inport = 1; else outbond = bond_number(1); inbond = bond_number(2); outport = 1; inport = 2; end; eqn = equation(name,cr,args,outbond,outcause,outport, ... inbond,incause,inport); fprintf(eqnfile, '%s',eqn); % Flow outcause = -1; incause = -1; if f_1==-1 outbond = bond_number(2); inbond = bond_number(1); outport = 2; inport = 1; else outbond = bond_number(1); inbond = bond_number(2); outport = 1; inport = 2; end; eqn = equation(name,cr,args,outbond,outcause,outport, ... inbond,incause,inport); fprintf(eqnfile, '%s',eqn); |