1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
%SUMMARY cr generic CR
%DESCRIPTION Argument is an algebraic expression with no embeddedwhite space
%DESCRIPTION Only available for one ports just now
%DESCRIPTION effort (or integrated effort) variable must be called mtt_e
%DESCRIPTION flow (or integrated flow) variable must be called mtt_f
%DESCRIPTION For example:
%DESCRIPTION mtt_e=k*mtt_f
%DESCRIPTION mtt_f=mtt_e/r
% $Log$
% Revision 1.2 2000/10/03 18:35:04 peterg
% Removed comment bug
%
% Revision 1.1 2000/10/03 18:34:00 peterg
% Initial revision
%
|
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
%SUMMARY cr generic CR
%DESCRIPTION Argument is an algebraic expression with no embeddedwhite space
%DESCRIPTION Only available for one ports just now
%DESCRIPTION effort (or integrated effort) variable must be called mtt_e
%DESCRIPTION flow (or integrated flow) variable must be called mtt_f
%DESCRIPTION For example:
%DESCRIPTION mtt_e=k*mtt_f
%DESCRIPTION mtt_f=mtt_e/r
% $Log$
% Revision 1.3 2000/10/05 10:13:00 peterg
% New eqn2ass function.
% Started extension to multiports
%
% Revision 1.2 2000/10/03 18:35:04 peterg
% Removed comment bug
%
% Revision 1.1 2000/10/03 18:34:00 peterg
% Initial revision
%
|
91
92
93
94
95
96
97
98
99
100
|
% Flow output
FOR ALL mtt_cr_e,mtt_cr_f, input, in_cause
LET cr(mtt_cr_e,mtt_cr_f,flow, 1, input, in_cause, 1)
= sub(mtt_e=input,mtt_cr_e);
END;
|
|
>
>
>
>
>
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
% Flow output
FOR ALL mtt_cr_e,mtt_cr_f, input, in_cause
LET cr(mtt_cr_e,mtt_cr_f,flow, 1, input, in_cause, 1)
= sub(mtt_e=input,mtt_cr_e);
%%% Q&D FMR 2 port.
FOR ALL mtt_cr_e,mtt_cr_f,input_1,input_2
LET cr(mtt_cr_e,mtt_cr_f,flow,1,
input_1,effort,1,
input_2,flow,2
) = sub(mtt_mod=input_2,sub(mtt_e=input_1,mtt_cr_e));
END;
|