xiyou.kbf

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

PUBLIC sub  DIZI() 
IF VALID(DSSY1) THEN
	IF  DSSY1=0  THEN Add(0.3 )
	IF  DSSY1=1  THEN Add(0.65)
	IF  DSSY1>1  THEN Add(1)
END IF


IF VALID(DZYS1) THEN
IF  DZYS1<=1  THEN Add(1)
IF  DZYS1=2  THEN Add(0.8)
IF  DZYS1>2  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

IF VALID(HYJB1) THEN
IF  HYJB1<2  THEN Add(0.2)
IF  HYJB1=2  THEN Add(0.6)
IF  HYJB1>=3  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>=3  THEN Add(1)
END IF

IF VALID(XLDB1) THEN
IF  XLDB1<10  THEN Add(0.3)
IF  XLDB1>=10 and XLDB1<12  THEN Add(0.7)
IF  XLDB1>=12  THEN Add(1)
END IF

IF VALID(YGZZ1) THEN
IF  YGZZ1=0  THEN Add(0.3)
IF  YGZZ1=1  THEN Add(0.7)
IF  YGZZ1=5  THEN Add(0.7)
IF  YGZZ1>=2 and YGZZ1<=4  THEN Add(1)
IF  YGZZ1>5  THEN Add(0.3)
END IF

IF VALID(YSHL1) THEN
IF  YSBI1<0.25  THEN Add(0.5)
IF  YSBI1>=0.25 and YSBI1<0.3  THEN Add(0.8)
IF  YSBI1>=0.30  THEN Add(1)
IF  YSHL1<0.1  THEN Add(0.5)
IF  YSHL1>=0.1 and YSHL1<=0.15  THEN Add(0.8)
IF  YSHL1>0.15  THEN Add(1)
END IF

IF VALID(YSYS1) THEN
IF  YSYS1>= 6 and YSYS1 <= 10  THEN Add(1)
IF  YSYS1<5  THEN Add(0.4)
IF  YSYS1=11  THEN Add(0.8)
IF  YSYS1=5  THEN Add(0.8)
IF  YSYS1>11  THEN Add(0.4)
END IF
END sub 


PUBLIC sub  QICE()

IF VALID(C1HL2) THEN
IF  C1HL2<0.75  THEN Add(0.5)
IF  C1HL2>=0.75 and C1HL2<0.8  THEN Add(0.85)
IF  C1HL2>=0.8  THEN Add(1)
END IF

IF VALID(GMXS2) THEN
IF  GMXS2<=0.7  THEN Add(0.6)
IF  GMXS2>=0.8  THEN Add(1)
IF  GMXS2>0.7 and GMXS2<0.8  THEN Add(0.8)
END IF

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

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

IF VALID(ZCHL2) THEN
IF  ZCHL2<=0.25  THEN Add(1)
IF  ZCHL2>0.25 and ZCHL2<=0.35  THEN Add(0.9)
IF  ZCHL2>0.35 and ZCHL2<=0.45  THEN Add(0.75)
IF  ZCHL2>0.45 and ZCHL2<=0.55  THEN Add(0.6)
IF  ZCHL2>0.55  THEN Add(0.4)
END IF
END sub  


PUBLIC sub  DIHUA()

IF VALID(OPIZ3) THEN
IF  GPIZ3<0.05  THEN Add(0.5)
IF  GPIZ3>0.04 and GPIZ3<=0.05  THEN Add(0.8)
IF  GPIZ3>0.05 and GPIZ3<=0.1  THEN Add(1)
IF  GPIZ3>0.1 and GPIZ3<=0.15  THEN Add(0.7)
IF  GPIZ3>0.15  THEN Add(0.4)
IF  OPIZ3<=0.5  THEN Add(0.3)
IF  OPIZ3>=0.6  THEN Add(1)
IF  OPIZ3>0.5 and OPIZ3<0.6  THEN Add(0.7)
END IF

IF VALID(PGVA3) THEN
IF  PGVA3<=10  THEN Add(0.2)
IF  PGVA3>=15  THEN Add(1)
IF  PGVA3>10 and PGVA3<=12  THEN Add(0.7)
IF  PGVA3>12 and PGVA3<15  THEN Add(0.85)
END IF

IF VALID(S1S23) THEN
IF  S1S23<=2.5  THEN Add(0.45)
IF  S1S23>=3 and S1S23 <=5  THEN Add(1)
IF  S1S23>=6  THEN Add(0.2)
IF  S1S23>2.5 and S1S23<3  THEN Add(0.75)
IF  S1S23>5 and S1S23<6  THEN Add(0.75)
END IF

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


PUBLIC sub  CEJING()

IF VALID(DZNZ4) THEN
IF  DZNZ4<=2.0  THEN Add(0.3)
IF  DZNZ4>=3.0  THEN Add(1)
IF  DZNZ4>2.0 and DZNZ4<3.0  THEN Add(0.7)
END IF

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

IF VALID(JXGX4) THEN
IF  JXGX4=0  THEN Add(1)
IF  JXGX4=1  THEN Add(0.75)
IF  JXGX4=2  THEN Add(0.3)
END IF

IF VALID(KXDZ4) THEN
IF  KXDZ4<=0.1  THEN Add(0.65)
IF  KXDZ4>=0.10 and KXDZ4 <=0.25  THEN Add(1)
IF  KXDZ4>0.25 and KXDZ4<=0.30  THEN Add(0.7)
IF  KXDZ4>0.3  THEN Add(0.4)
END IF

IF VALID(LJDB4) THEN
IF  LJDB4=0  THEN Add(1)
IF  LJDB4=1  THEN Add(0.5)
END IF

IF VALID(WDFC4) THEN
IF  WDFC4=0  THEN Add(1)
IF  WDFC4=1  THEN Add(0.75)
IF  WDFC4>1  THEN Add(0.5)
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(ZRDW4) THEN
IF  ZRDW4<=0.7  THEN Add(1)
IF  ZRDW4>=0.9  THEN Add(0.4)
IF  ZRDW4>0.7 and ZRDW4<=0.8  THEN Add(0.85)
IF  ZRDW4>0.8 and ZRDW4<0.9  THEN Add(0.7)
END IF

END sub 


PUBLIC sub  ZHONGHE()
	DIZI()
	DIHUA()
	QICE()
	CEJING()
END SUB