qiceng.kbf

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

PUBLIC sub  DIZI()

IF VALID(YSYS1) THEN
if   YSYS1 <= 2  then add(1)
if   YSYS1=3  then add(0.8)
if   YSYS1>3  then add(0.4)
END IF

IF VALID(HYJB1) THEN
if   HYJB1=0  then add(1)
if   HYJB1=1  then add(0.75)
if   HYJB1>1  then add(0.5)
END IF

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

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

IF VALID(YGZZ1) THEN
if   YGZZ1=4  then add(1)
if   YGZZ1=5  then add(0.75)
if   YGZZ1=3  then add(0.8)
if   YGZZ1<3  then add(0.6)
if   YGZZ1>5  then add(0.3)
END IF

IF VALID(XLDB1) THEN
if   XLDB1>=6  and  XLDB1<=10  then add(1)
if   XLDB1=11  then add(0.75)
if   XLDB1>11  then add(0.3)
if   XLDB1=5  then add(0.75)
if   XLDB1<5  then add(0.5)
END IF

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

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

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


PUBLIC sub  QICE()

IF VALID(C1HL2) THEN
if   C1HL2>=0.95  then add(1)
if   C1HL2>=0.9  and  C1HL2<0.95  then add(0.85)
if   C1HL2<0.9  then add(0.5)
END IF

IF VALID(ZCHL2) THEN
if   ZCHL2<=0.05  then add(1)
if   ZCHL2>0.05  and  ZCHL2<=0.1  then add(0.9)
if   ZCHL2>0.1  and  ZCHL2<=0.15  then add(0.75)
if   ZCHL2>0.15  and  ZCHL2<=0.2  then add(0.6)
if   ZCHL2>0.2  then add(0.4)
END IF

IF VALID(QTBS2) THEN
if   QTBS2>30  then add(1)
if   QTBS2>=10  and  QTBS2<30  then add(0.85)
if   QTBS2>=5  and  QTBS2<10  then add(0.7)
if   QTBS2<5  then add(0.3)
END IF

IF VALID(QTHL2) THEN
if   QTHL2>2  then add(1)
if   QTHL2>=1  and QTHL2<=2  then add(0.85)
if   QTHL2>0.5  and  QTHL2<1  then add(0.7)
if   QTHL2<0.5  then add(0.3)
END IF

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


PUBLIC sub  DIHUA()

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

IF VALID(GPIZ3) THEN
if   GPIZ3>0.8  then add(1)
if   GPIZ3>0.7  and  GPIZ3<=0.8  then add(0.7)
if   GPIZ3<=0.7  then add(0.5)
END IF

IF VALID(S1S23) THEN
if   S1S23>=10  then add(1)
if   S1S23>8  and  S1S23<10  then add(0.75)
if   S1S23<8  then add(0.2)
END IF

IF VALID(PGVA3) THEN
if   PGVA3>=2  and  PGVA3<=5  then add(0.8)
if   PGVA3>0.5  and  PGVA3<2  then add(1)
if   PGVA3>5  then add(0.5)
if   PGVA3>=0.2  and  PGVA3<=0.5  then add(0.7)
if   PGVA3<0.2  then add(0.4)
END IF

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


PUBLIC sub  CEJING()

IF VALID(KXDZ4) THEN
if   KXDZ4>=0.035  and  KXDZ4 <=0.15  then add(1)
if   KXDZ4>0.15  and  KXDZ4<=0.20  then add(0.75)
if   KXDZ4>0.2  then add(0.4)
if   KXDZ4<=0.035  then add(0.65)
END IF

IF VALID(HYBH4) THEN
if   HYBH4>=0.3  then add(1)
if   HYBH4>=0.25  and  HYBH4<0.3  then add(0.75)
if   HYBH4>0.2  and  HYBH4<=0.25  then add(0.5)
if   HYBH4<=0.2  then add(0.2)
END IF

IF VALID(ZJZQ4) THEN
if   ZJZQ4=0  then add(1)
if   ZJZQ4=1  then add(0.85)
if   ZJZQ4>=2  then add(0.5)
END IF

IF VALID(DZNZ4) THEN
if   DZNZ4>=5.0  then add(1)
if   DZNZ4>4.0  and  DZNZ4<5.0  then add(0.75)
if   DZNZ4>3.0  and  DZNZ4<=4.0  then add(0.7)
if   DZNZ4<=3.0  then add(0.4)
END IF

IF VALID(ZRDW4) THEN
if   ZRDW4<=0.7  then add(1)
if   ZRDW4>0.7  and  ZRDW4<=0.8  then add(0.85)
if   ZRDW4>0.8  and  ZRDW4<0.9  then add(0.7)
if   ZRDW4>=0.9  then add(0.4)
if   ZRDW4>0.6  and  ZRDW4<=0.7  then add(0.85)
if   ZRDW4<=0.6  then add(0.6)
END IF

IF VALID(LJDB4) THEN
if   LJDB4=0  then add(1)
if   LJDB4=1  then add(0.5)
END IF
END sub