1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
|
Sub Calclevel
'ensure that: Hmax>Hmin and Cmax>Cmin
If Cap < Cmin Then Cap = Cmin
K = Hmax - Hmin
D = Cmax - Cmin
If D = 0 Then D = 0.01 'avoid division by zero
K = K / D
D = -k
D = D * Cmin
Y = Cap * K
Y = Y + D
Yfix = Y
End Sub
|
