Overview
Comment:New equation.m method used.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 26f1a9f2b8bfb6d9fabb23a8b9523d75d7f633cd50b4ac3c285929e7ce2bafd3
User & Date: gawthrop@users.sourceforge.net on 1996-09-11 13:35:14.000
Other Links: branch diff | manifest | tags
Context
1996-09-12
11:00:56
Initial revision check-in: cd997a8a68 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1996-09-11
13:35:14
New equation.m method used. check-in: 26f1a9f2b8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1996-09-10
17:04:47
Added impulse response (ir) representation. check-in: fff051bf17 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified mttroot/mtt/lib/comp/simple/AF_eqn.m from [49bdac978b] to [06158cb816].
︙
11
12
13
14
15
16
17



18
19
20
21
22
23
24

11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27








+
+
+








%    structure,eqnfile);

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1  1996/08/30 18:38:57  peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% Copyright (c) P.J. Gawthrop, 1996.

if nargin<6
  eqnfile = 'stdout';
︙
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

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








-
-
+
+


-
-
+
+

-
-
+
+


-
+
+
+
+








e_2 = bonds(2,1);
f_2 = bonds(2,2);

% Effort on port 1 is always zero
   fprintf(eqnfile, '%s := 0;\n', ...
      varname(name,bond_number(1), 1));
  
LHS_cause = -1;
RHS_cause = -1;
outcause = -1;
incause = -1;

if f_2 == 1 				% Unicausal: f_2 := f_1
  LHS_number = bond_number(2);
  RHS_number = bond_number(1);
  outnumber = bond_number(2);
  innumber = bond_number(1);
else 	                                % Bicausal: f_1 := f_2      
  LHS_number = bond_number(1);
  RHS_number = bond_number(2);
  outnumber = bond_number(1);
  innumber = bond_number(2);
end

oneeqn(name,LHS_number,LHS_cause,RHS_number,RHS_cause,cr,args,eqnfile);
% $$$ oneeqn(name,outnumber,outcause,innumber,incause,cr,args,eqnfile);
eqn =  equation(name,cr,args,outbond,outcause,outport, ...
                             inbond,incause,inport);
fprintf(eqnfile, '%s',eqn);
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]