1
2
3
4
5
6
7
8
9
10
|
function [eqn,insigs,innames] = junction_seqn (jun_type,Name, outsig, \
insigs, innames)
## usage: [eqn,insigs] = junction_seqn (jun_type,Name, outport, outsig, \
## insigs)
##
##
## Junctions
## Sanity check
N = mtt_check_sigs (outsig,insigs);
|
|
|
|
1
2
3
4
5
6
7
8
9
10
|
function [eqn,insigs,innames] = junction_seqn (jun_type,Name, outsig, ...
insigs, innames)
## usage: [eqn,insigs] = junction_seqn (jun_type,Name, outport, outsig, ...
## insigs)
##
##
## Junctions
## Sanity check
N = mtt_check_sigs (outsig,insigs);
|
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
inname="";
inports = [];
out_dir = sign(insigs(inport,1));
for i=1:N
if i!=inport
in_dir = sign(insigs(i,1));
plusminus = sign2name(-in_dir*out_dir);
eqn = sprintf("%s\n\t%s%s", eqn, plusminus, varname(Name, \
abs(insigs(i,1)), -i_jun_type));
insig = [insig; insigs(i,:)];
inname = [inname; innames(i,:)];
endif
endfor
endif
eqn = sprintf("%s;", eqn);
insigs = insig;
innames = inname;
endfunction
|
|
|
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
inname="";
inports = [];
out_dir = sign(insigs(inport,1));
for i=1:N
if i!=inport
in_dir = sign(insigs(i,1));
plusminus = sign2name(-in_dir*out_dir);
eqn = sprintf("%s\n\t%s%s", eqn, plusminus, varname(Name, ...
abs(insigs(i,1)), -i_jun_type));
insig = [insig; insigs(i,:)];
inname = [inname; innames(i,:)];
endif
endfor
endif
eqn = sprintf("%s;", eqn);
insigs = insig;
innames = inname;
endfunction
|