libpscal.bas

本系统是给大庆油田做的一个示例程序

Attribute VB_Name = "LibPsCal"

Option Explicit
Sub PsCal(nw As Single, lpump As Single, hmove As Single, pcase As Single, SCrudeOil As Single, ps As Single)
    Dim swater As Single, swo As Single, soil As Single
    
    soil = SCrudeOil
    swater = 1000
    swo = (1 - nw) * soil + nw * swater
    ps = pcase + (lpump - hmove) * swo * 9.8
End Sub