Overview
Comment:Use new equation method.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 4bef7dcb4f8bda497de341c97d9025ce5267cce1a08664658f01347187c10c9f
User & Date: gawthrop@users.sourceforge.net on 1996-09-12 19:29:35
Other Links: branch diff | manifest | tags
Context
1996-09-12
19:30:31
Updated to use new eqaution.m check-in: 0fbf0a2c4e user: gawthrop@users.sourceforge.net tags: origin/master, trunk
19:29:35
Use new equation method. check-in: 4bef7dcb4f user: gawthrop@users.sourceforge.net tags: origin/master, trunk
19:28:55
Added rcs header. check-in: f5dd5a1e8d 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 [06158cb816] to [1fcd8b0274].

︙︙
11
12
13
14
15
16
17



18
19
20
21
22
23
24

%    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.








>
>
>








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.2  1996/09/11 13:35:14  peter
% %% New equation.m method used.
% %%
% %% Revision 1.1  1996/08/30 18:38:57  peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% Copyright (c) P.J. Gawthrop, 1996.
︙︙
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

   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);















|
|
>
>

|
|
>
>


|











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

   fprintf(eqnfile, '%s := 0;\n', ...
      varname(name,bond_number(1), 1));
  
outcause = -1;
incause = -1;

if f_2 == 1 				% Unicausal: f_2 := f_1
  outbond = bond_number(2);
  inbond = bond_number(1);
  outport = 2;
  inport = 1;
else 	                                % Bicausal: f_1 := f_2      
  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);

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]