ganceng.kbf

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

PUBLIC sub  DIZI() 

IF VALID(YSYS1 ) THEN
if   YSYS1 >= 3  and  YSYS1 <= 12  then add(1)
if   YSYS1=13  then add(0.75)
if   YSYS1=2  then add(0.8)
if   YSYS1<2  then add(0.2)
END IF

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

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

END IF

IF VALID(YSBI1) THEN
if   YSBI1<=0.30  then add(1)
if   YSBI1>0.30  and  YSBI1<0.4  then add(0.8)
if   YSBI1>=0.4  then add(0.5)

END IF

IF VALID(YGZZ1) THEN
if   YGZZ1>=3  and  YGZZ1<=7  then add(1)
if   YGZZ1=2  then add(0.75)
if   YGZZ1=8  then add(0.75)
if   YGZZ1<2  then add(0.3)
if   YGZZ1>8  then add(0.4)
END IF

IF VALID(XLDB1) THEN
if   XLDB1>=0  and  XLDB1<=15  then add(1)

END IF

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

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

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

IF VALID(GHKS1) THEN
if   GHKS1>=0  and  GHKS1<=4  then add(1)
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  and  C1HL2<0.9  then add(0.5)
if   C1HL2>=0.9  then add(0.2)
if   C1HL2<0.6  then add(0.65)
END IF

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

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

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

IF VALID(GMXS2) THEN
if   GMXS2<=0.6  then add(1)
if   GMXS2>0.6  and  GMXS2<=0.7  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.01  then add(1)
if   OPIZ3>0.01  and  OPIZ3<0.02  then add(0.75)
if   OPIZ3>=0.02  then add(0.3)
END IF

IF VALID(GPIZ3) THEN
if   GPIZ3<=0.01  then add(1)
if   GPIZ3>0.01  and  GPIZ3<=0.02  then add(0.7)
if   GPIZ3>0.02  then add(0.4)
END IF

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

IF VALID(PGVA3) THEN
if   PGVA3>=15  then add(0.5)
if   PGVA3>5  and  PGVA3<10  then add(1)
if   PGVA3>10  and  PGVA3<=15  then add(0.7)
if   PGVA3<=5  then add(0.7)
END IF
END sub  


PUBLIC sub  CEJING()

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

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

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

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

IF VALID(ZRDW4) THEN
if   ZRDW4<=0.1  then add(1)
if   ZRDW4>0.1  and  ZRDW4<0.2  then add(0.85)
if   ZRDW4>=0.6  then add(0.5)
END IF

END sub