这是一个关于水库调洪计算的代码实现，包括求解数组最大值、最小值及插值功能。核心是QiuShuiWei函数，采用二分法计算时段末水位，确保精度到设定的JD值。代码还包括了Command1_Click事件，用于调用计算并输出结果。
以下写入bas模块中：
Public Function Max(A() As Single) As Single ‘求某一维数组A的最大值
Max = A(1)
For I = 1 To UBound(A)
If Max < A(I) Then
Max = A(I)
End If
Next I
End Function
Public Function Min(A() As Single) As Single ‘求某一维数组A的最小值
Min = A(1)
For I = 1 To UBound(A)
If Min > A(I) Then
Min = A(I)
End If
Next I
End Function
‘
最低0.47元/天 解锁文章
扫一扫
1029
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
