1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
function RHS = Source_seqn (attribute,name)
## usage: RHS = Source_seqn (attribute,name)
##
## Write the RHS of a source equation
if strcmp(attribute,"external")
RHS = sprintf("MTTu_%s",name);
elseif strcmp(attribute,"internal")
error(sprintf("attribute ""internal"" not appropriate for a \
source"));
else
RHS = attribute;
endif
endfunction
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
function RHS = Source_seqn (attribute,name)
## usage: RHS = Source_seqn (attribute,name)
##
## Write the RHS of a source equation
if strcmp(attribute,"external")
RHS = sprintf("MTTu_%s",name);
elseif strcmp(attribute,"internal")
error(sprintf("attribute ""internal"" not appropriate for a "
"source"));
else
RHS = attribute;
endif
endfunction
|