1
2
3
4
5
6
7
8
9
10
11
12
13
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-
-
+
+
-
-
+
+
|
%% CR for pipe discharge
OPERATOR discharge;
%% Flow input
FOR ALL alpha,beta,F LET
discharge(alpha,beta,effort,1,F,flow,1) = beta*F^alpha;
FOR ALL COMP, alpha,beta,F LET
discharge(COMP, alpha,beta,effort,1,F,flow,1) = beta*F^alpha;
%% Effort input
FOR ALL alpha,beta,P LET
discharge(alpha,beta,flow,1,P,effort,1) = (P/beta)^(1/alpha);
FOR ALL COMP, alpha,beta,P LET
discharge(COMP, alpha,beta,flow,1,P,effort,1) = (P/beta)^(1/alpha);
END;;
|