Overview
| Comment: | Null strings now detected with strcmp not length. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ad91d3a0157dd502a07cd748f4eac364 |
| User & Date: | gawthrop@users.sourceforge.net on 1996-12-05 11:26:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
1996-12-05
| ||
| 12:18:36 | Initial revision check-in: 6d1fb2bcbf user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 11:26:51 | Null strings now detected with strcmp not length. check-in: ad91d3a015 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 11:10:49 | Initial revision check-in: 3dc6fdf2e2 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/m/equation.m from [b4ad922159] to [4d5bffe3a9].
| ︙ | ︙ | |||
13 14 15 16 17 18 19 20 21 22 23 24 25 26 | % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.3 1996/09/12 12:03:58 peter % %% Added some error checking. % %% If no constitutive relationship, only add diagonal elementts to % %% default unity output. % %% % %% Revision 1.2 1996/09/10 11:29:47 peter % %% Removed causality & port info when no constitutive relationship. | > > > > | 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.4 1996/09/12 16:42:01 peter % %% Default now out side this function - need to be none for each % %% component. % %% % %% Revision 1.3 1996/09/12 12:03:58 peter % %% Added some error checking. % %% If no constitutive relationship, only add diagonal elementts to % %% default unity output. % %% % %% Revision 1.2 1996/09/10 11:29:47 peter % %% Removed causality & port info when no constitutive relationship. |
| ︙ | ︙ | |||
44 45 46 47 48 49 50 |
error('equation.m: inports inconsistent with inbonds');
end;
% Set up LHS
LHS = varname(name, outbond, outcause);
% Set up various strings to get correct syntax if some strings are empty
| | | | | | 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 80 81 82 83 84 85 86 87 88 89 90 91 92 93 |
error('equation.m: inports inconsistent with inbonds');
end;
% Set up LHS
LHS = varname(name, outbond, outcause);
% Set up various strings to get correct syntax if some strings are empty
if strcmp(cr,'')
cause_name = '';
port_name = '';
lp = '';
rp = '';
c_comma = '';
else
cause_name = cause2name(outcause);
port_name = sprintf('%1.0f', outport');
lp = '(';
rp = ')';
c_comma = ',';
end
if strcmp(args,'')
a_comma = '';
else
a_comma = ',';
end;
% Set up first line of RHS
RHS1 = sprintf('%s%s%s%s%s%s%s%s\n', ...
cr, lp, args, a_comma, cause_name, c_comma, port_name, c_comma);
% Set up rest of RHS - the input variables, causality and ports.
RHS2 = '';
for i=1:nports
RHS2 = sprintf('%s\t%s', ...
RHS2, varname(name, inbonds(i), incauses(i)));
if strcmp(cr,'')==0 % add the causality & port info
RHS2 = sprintf('%s,%s,%1.0f', ...
RHS2, cause2name(incauses(i)), inports(i));
end;
if (i<nports) % Add a comma
RHS2 = sprintf('%s,\n',RHS2);
else
|
| ︙ | ︙ |