libpdcal.bas

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

Attribute VB_Name = "LibPdCal"

Option Explicit
Sub PdCal(lpump As Single, poil As Single, nw As Single, sp As Single, SCrudeOil As Single, pd As Single)
    Dim swater As Single, swo As Single, soil As Single
    Dim R As Single, Co As Single
    
    R = (1 - nw) * sp
    Co = 1 - 0.0039 * R
    If Co <= 0.8 Then Co = 0.8
    
    Co = 1#
    soil = SCrudeOil
    swater = 1000
    swo = (1 - nw) * soil + nw * swater
    pd = poil + swo * 9.8 * lpump
    pd = Co * pd
End Sub