super2.kbf

来自「用C#开发的录井油气识别专家系统」· KBF 代码 · 共 52 行

public sub superreason()

IF VALID(CMXS2) THEN
IF CMXS2="Y" THEN
	SELECT CASE DIZI
		CASE "干" 
			 DIZI="同"
		CASE "水"
			  DIZI="同"
		CASE "同" 
			 DIZI="油"
		CASE "油"  
			DIZI="气"
		CASE "气"
			 DIZICREIDT=1.0
	END SELECT
END IF
END IF




IF VALID(ZFQF2) THEN
IF ZFQF2=FALSE THEN
	SELECT CASE QICE
		CASE "同"
			  DIZI="水"
		CASE "油"
			  DIZI="同" 
		
	END SELECT
END IF
END IF

IF VALID(LJDB5) THEN
	IF  LJDB5=TRUE THEN ZHONGHE="水"
END IF

IF VALID(JXGX4) AND VALID(DZLZ4) THEN
	IF JXGX4="明显" AND DZLZ4>100 THEN CEJING="油"
ENDIF

IF VAID(SBTY4) THEN
	IF SBTY4=TRUE THEN CEJING="气"
END IF

IF VALID(WDFC4) AND VALID(KXDZ4) AND VALID(STLZ4) THEN
	IF (WDFC4="无幅差" OR WDFC4="无规律" ) AND KXDZ4<0.05 AND STLZ4< 1000 THEN CEJING="干"
END IF


end sub