Overview
Comment:New equation.m method used.
Downloads: Tarball | ZIP archive | SQL 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
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
Hide Diffs Unified Diffs 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

%    structure,eqnfile);

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$



% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


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

if nargin<6
  eqnfile = 'stdout';








>
>
>








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

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;

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

oneeqn(name,LHS_number,LHS_cause,RHS_number,RHS_cause,cr,args,eqnfile);


















|
|


|
|

|
|


|
>
>
>








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));
  
outcause = -1;
incause = -1;

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

% $$$ 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 ]