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: |
82ce58c98113bd8ef6108d25554a14c1 |
| User & Date: | gawthrop@users.sourceforge.net on 1996-08-22 13:14:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
1996-08-22
| ||
| 18:31:06 | Fixed comment bug. check-in: c72ea864d8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 13:14:39 | Initial revision check-in: 82ce58c981 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 12:19:51 | Added various document viewers. check-in: a6228d3140 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Added mttroot/mtt/bin/trans/m/cr2name.m version [1205f5c896].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 |
function name = cr2name(RHS_number,LHS_cause,RHS_cause,cr,args);
cr2name. Construcs a string for the cr of a component.
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if length(args)==0
a_comma = '';
else
a_comma = ',';
end;
if length(cr)==0
cause_name = '';
lp = '';
rp = '';
c_comma = '';
else
cause_name = cause2name(LHS_cause);
lp = '(';
rp = ')';
c_comma = ',';
end;
name = sprintf('%s%s%s%s%s%s%s%s', ...
cr,lp, args, a_comma, cause_name, c_comma, ...
varname(RHS_number,RHS_cause),rp);
|
Added mttroot/mtt/lib/comp/simple/AE_eqn.m version [fc1630ab06].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 |
function structure = AE_eqn(bond_number,bonds,direction,cr,args, ...
structure,eqnfile);
% AE_eqn. Equation generation for effort amplifier.
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if nargin<6
eqnfile = 'stdout';
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);
% Flow on port 1 is always zero
fprintf(eqnfile, '%s := 0;\n', ...
varname(bond_number(1), -1));
LHS_cause = 1;
RHS_cause = 1;
if e_2 == -1 % Unicausal: e_2 := e_1
LHS_number = bond_number(2);
RHS_number = bond_number(1);
else % Bicausal: e_1 := e_2
LHS_number = bond_number(1);
RHS_number = bond_number(2);
end
oneeqn(LHS_number,LHS_cause,RHS_number,RHS_cause,cr,args,eqnfile);
|
Added mttroot/mtt/lib/comp/simple/C_eqn.m version [1216cb9019].
> > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 |
function structure = C_eqn(bond_number,bonds,direction,cr,args, ...
structure,eqnfile);
% C_eqn: equation generation for C component
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if nargin<7
eqnfile = 'stdout';
end;
% Unicausal version
CorI = 1;
structure = cieqn(bond_number,bonds,direction,cr,args, structure, ...
CorI, eqnfile);
|