xishui.kbf

用C#开发的录井油气识别专家系统

PUBLIC sub  DIZI() 

IF VALID(GHKS1) THEN
if   GHKS1=0   then add(0.4)
if   GHKS1=1   then add(0.6)
if   GHKS1>2   then add(0.85)
if   GHKS1=2   then add(1)
END IF

IF VALID(DZYS1) THEN
if   DZYS1<1   then add(0.5)
if   DZYS1=1   then add(0.8)
if   DZYS1>=2   then add(1)
END IF

IF VALID(YSHL1) THEN
if   YSHL1>0.15   then add(0.5)
if   YSHL1>=0.05  and  YSHL1<0.15   then add(0.85)
if   YSHL1<0.05   then add(1)
END IF

IF VALID(JJQK1) THEN
if   JJQK1>2   then add(0.3)
if   JJQK1=2   then add(0.7)
if   JJQK1<=1   then add(1)
END IF

IF VALID(XLDB1) THEN
if   XLDB1>11   then add(0.65)
if   XLDB1<=10   then add(1)
if   XLDB1=11   then add(0.85)
END IF

IF VALID(YGZZ1) THEN
if   YGZZ1<4   then add(0.3)
if   YGZZ1=8   then add(0.7)
if   YGZZ1>8   then add(0.5)
if   YGZZ1=4   then add(0.75)
if   YGZZ1>=5  and  YGZZ1<=7   then add(1)
END IF
IF VALID(YSBI1) THEN

if   YSBI1>=0.2   then add(0.5)
if   YSBI1>0.10  and  YSBI1<0.2   then add(0.8)
if   YSBI1<=0.10   then add(1)
END IF
IF VALID(DSSY1) THEN

if   DSSY1=3   then add(0.55)
if   DSSY1=0   then add(0.75)
if   DSSY1>0  and  DSSY1<3   then add(1)
END IF
IF VALID(HYJB1) THEN

if   HYJB1>4   then add(0.2)
if   HYJB1=4   then add(0.6)
if   HYJB1<=3   then add(1)
END IF
IF VALID(YSYS1) THEN

if   YSYS1=0   then add(0.2)
if   YSYS1>11   then add(0.5)
if   YSYS1=11   then add(0.8)
if   YSYS1>= 2  and  YSYS1 <= 10   then add(1)
if   YSYS1=1   then add(0.75)
END IF
END sub 



PUBLIC sub  QICE()

IF VALID(GMXS2) THEN

if   GMXS2>=0.7   then add(0.6)
if   GMXS2>0.6  and  GMXS2<=0.7   then add(0.8)
if   GMXS2<=0.6   then add(1)
END IF
IF VALID(QTHL2) THEN

if   QTHL2>1   then add(0.4)
if   QTHL2>=0.5  and QTHL2<=1   then add(0.7)
if   QTHL2<0.5   then add(1)
END IF
IF VALID(QTBS2) THEN

if   QTBS2>4   then add(0.1)
if   QTBS2>3  and  QTBS2<4   then add(0.6)
if   QTBS2>=2  and  QTBS2<=3   then add(0.85)
if   QTBS2<2   then add(1)
END IF
IF VALID(ZCHL2) THEN

if   ZCHL2<0.3   then add(0.4)
if   ZCHL2>0.3  and  ZCHL2<=0.35   then add(0.75)
if   ZCHL2>0.35  and  ZCHL2<=0.4   then add(0.9)
if   ZCHL2>=0.4   then add(1)
END IF
IF VALID(C1HL2) THEN

if   C1HL2>=0.65  and  C1HL2<0.7   then add(0.7)
if   C1HL2>=0.7   then add(0.5)
if   C1HL2>=0.6  and  C1HL2<0.65   then add(0.85)
if   C1HL2<0.6   then add(1)
END IF
END sub  


PUBLIC sub  DIHUA()

IF VALID(TPIV3) THEN

if   TPIV3<=0.45   then add(0.3)
if   TPIV3>0.45  and  TPIV3<0.55   then add(0.5)
if   TPIV3>0.88   then add(0.5)
if   TPIV3>=0.55  and  TPIV3<=0.8   then add(1)
END IF
IF VALID(PGVA3) THEN

if   PGVA3>=10   then add(0.4)
if   PGVA3>6  and  PGVA3<=10   then add(0.7)
if   PGVA3>5  and  PGVA3<6   then add(0.85)
if   PGVA3<=5   then add(1)
END IF

IF VALID(S1S23) THEN

if   S1S23>3   then add(0.6)
if   S1S23>=1  and  S1S23<=3   then add(1)
if   S1S23<1   then add(0.75)
END IF

IF VALID(GPIZ3) THEN

if   GPIZ3<=0.01   then add(0.5)
if   GPIZ3>0.06   then add(0.4)
if   GPIZ3>0.05  and  GPIZ3<=0.06   then add(0.75)
if   GPIZ3>0.01  and  GPIZ3<=0.05   then add(1)
END IF

IF VALID(OPIZ3) THEN
if   OPIZ3>=0.5   then add(0.3)
if   OPIZ3>0.4  and  OPIZ3<0.5   then add(0.7)
if   OPIZ3<=0.4   then add(1)
END IF

END sub  


PUBLIC sub  CEJING()

IF VALID(GHKS1) THEN

if   LJDB4=0   then add(0.4)
if   LJDB4=1   then add(1)
END IF

IF VALID(ZRDW4) THEN

if   ZRDW4<=0.6   then add(0.5)
if   ZRDW4>0.6  and  ZRDW4<=0.7   then add(0.7)
if   ZRDW4>0.7  and  ZRDW4<0.8   then add(0.85)
if   ZRDW4>=0.8   then add(1)
END IF

IF VALID(WDFC4) THEN

if   WDFC4=0   then add(0.3)
if   WDFC4=1   then add(0.7)
if   WDFC4>1   then add(1)
END IF

IF VALID(DZNZ4) THEN

if   DZNZ4>=3.0   then add(0.3)
if   DZNZ4>2.0  and  DZNZ4<3.0   then add(0.7)
if   DZNZ4<=2.0   then add(1)
END IF

IF VALID(JXGX4) THEN

if   JXGX4=0   then add(0.3)
if   JXGX4=1   then add(0.7)
if   JXGX4=2   then add(1)
END IF

IF VALID(ZJZQ4) THEN

if   ZJZQ4>=0   then add(0.3)
if   ZJZQ4=1   then add(0.7)
if   ZJZQ4>1   then add(1)
END IF

IF VALID(HYBH4) THEN

if   HYBH4>=0.4   then add(0.2)
if   HYBH4>0.3  and  HYBH4<=0.4   then add(0.75)
if   HYBH4<=0.3   then add(1)
END IF

IF VALID(KXDZ4) THEN

if   KXDZ4<=0.07   then add(0.3)
if   KXDZ4>0.08   then add(1)
if   KXDZ4>0.07  and  KXDZ4<=0.08   then add(0.8)
END IF

END sub