xitong.kbf

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

PUBLIC sub  DIZI() 

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

IF VALID(HYJB1) THEN
if   HYJB1>=1  and  HYJB1<4  then add(1)
if   HYJB1=4  then add(0.75)
if   HYJB1=0  then add(0.75)
if   HYJB1>4  then add(0.4)
END IF

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

IF VALID(YSBI1) THEN
if   YSBI1>=0.1  and  YSBI1<=0.30  then add(1)
if   YSBI1>0.3  and  YSBI1<0.35  then add(0.8)
if   YSBI1>=0.35  then add(0.5)
if   YSBI1>0.05  and  YSBI1<0.1  then add(0.75)
if   YSBI1<0.05  then add(0.5)
END IF

IF VALID(YGZZ1) THEN
if   YGZZ1>=3  and  YGZZ1<6  then add(1)
if   YGZZ1=6  then add(0.75)
if   YGZZ1>6  then add(0.4)
if   YGZZ1=2  then add(0.75)
if   YGZZ1<2  then add(0.45)
END IF

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

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

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

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

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

END sub 



PUBLIC sub  QICE()

IF VALID(C1HL2) THEN
if   C1HL2>0.6  and  C1HL2<=0.8  then add(1)
if   C1HL2>=0.8  and  C1HL2<0.85  then add(0.85)
if   C1HL2>0.85  then add(0.5)
if   C1HL2>0.5  and  C1HL2<=0.6  then add(0.75)
if   C1HL2<=0.5  then add(0.4)
END IF

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

IF VALID(QTBS2) THEN
if   QTBS2>3  then add(0.75)
if   QTBS2>=2  and  QTBS2<=3  then add(1)
if   QTBS2>=1.5  and  QTBS2<2  then add(0.6)
if   QTBS2<1.5  then add(0.1)
END IF

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

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


END sub  


PUBLIC sub  DIHUA()

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

IF VALID(GPIZ3) THEN
if   GPIZ3<=0.05  then add(1)
if   GPIZ3>0.05  and  GPIZ3<=0.06  then add(0.85)
if   GPIZ3>0.06  and  GPIZ3<=0.07  then add(0.6)
if   GPIZ3>0.07  then add(0.4)
END IF

IF VALID(S1S23) THEN
if   S1S23>=1  and  S1S23<=3  then add(1)
if   S1S23>3  and  S1S23<=3.5  then add(0.75)
if   S1S23>=3.5  then add(0.5)
if   S1S23>0.5  and  S1S23<1  then add(0.85)
if   S1S23<=0.5  then add(0.5)
END IF

IF VALID(PGVA3) THEN
if   PGVA3>6  and  PGVA3<8  then add(0.75)
if   PGVA3>=8  then add(0.5)
if   PGVA3>=5  and  PGVA3<=6  then add(1)
if   PGVA3>=4  and  PGVA3<5  then add(0.75)
if   PGVA3<4  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.10  then add(1)
if   KXDZ4>0.08  and  KXDZ4<=0.1  then add(0.75)
if   KXDZ4<=0.08  then add(0.3)
END IF

IF VALID(HYBH4) THEN
if   HYBH4>=0.2  and  HYBH4<=0.5  then add(1)
if   HYBH4>0.5  and  HYBH4<0.6  then add(0.85)
if   HYBH4>=0.6  then add(0.65)
if   HYBH4>0.15  and  HYBH4<0.2  then add(0.75)
if   HYBH4<=0.15  then add(0.5)
END IF

IF VALID(ZJZQ4) THEN
if   ZJZQ4=1  then add(1)
if   ZJZQ4=0  then add(0.75)
if   ZJZQ4=2  then add(0.7)
if   ZJZQ4>2  then add(0.4)
END IF

IF VALID(JXGX4) THEN
if   JXGX4=1  then add(1)
if   JXGX4=0  then add(0.7)
if   JXGX4>=2  then add(0.45)
END IF

IF VALID(DZNZ4) THEN
if   DZNZ4>=2.0  and  DZNZ4<=5.0  then add(1)
if   DZNZ4>5.0  and  DZNZ4<=6  then add(0.7)
if   DZNZ4>6  then add(0.3)
if   DZNZ4>1.5  and  DZNZ4<2  then add(0.75)
if   DZNZ4<=1.5  then add(0.4)
END IF

IF VALID(WDFC4) THEN
if   WDFC4=1  then add(1)
if   WDFC4=0  then add(0.7)
if   WDFC4=2  then add(0.5)
if   WDFC4>2  then add(0.3)
END IF

IF VALID(ZRDW4) THEN
if   ZRDW4>1.0  then add(0.5)
if   ZRDW4>0.3  and  ZRDW4<=0.9  then add(1)
if   ZRDW4>0.9  and  ZRDW4<1.0  then add(0.75)
if   ZRDW4>0.2  and  ZRDW4<=0.3  then add(0.75)
if   ZRDW4<=0.2  then add(0.5)
END IF

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

END sub