測(cè)井實(shí)驗(yàn)報(bào)告(編輯修改稿)
2025-03-12 13:49 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 )值都偏大 ,因此我們可以判斷井中泥漿為淡水泥漿。同時(shí) 由圖 圖 2我們還可以根據(jù)兩條曲線特征來(lái)進(jìn)行地層劃分，大體上可以推斷 h=2681— 2687m 處為泥巖段， h=2687— 2691m 處為砂巖段，該井段，泥巖段泥質(zhì)含量極高，砂巖段泥質(zhì)含量極低，因此該井段可以形成良好的油氣儲(chǔ)集層。 建議：希望以后多安排一些實(shí)驗(yàn)課 ! 附源代碼： PROGRAM CEJING CHARACTER*80 INPUT_FILE,OUT_PUTFILE REAL,ALLOCATABLE:: SP(:),GR(:),DEPTH(:) REAL GRmin,GRmax,SPmin,SPmax GRmin=50 GRmax=110 SPmin=0 SPmax=100 INPUT_FILE=39。39。 OUT_PUTFILE=39。39。 CALL READ_NUMBER(INPUT_FILE,NUMBER) !計(jì)算測(cè)井?dāng)?shù)據(jù)的個(gè)數(shù) 0 2692269026882686268426822680伽馬計(jì)算的泥質(zhì)含量值 clV / % 井深度（ m ） 5 ALLOCATE(SP(1:NUMBER),GR(1:NUMBER),DEPTH(1:NUMBER)) CALL READ_DATA(INPUT_FILE,NUMBER,SP,GR,DEPTH) !讀入測(cè)井?dāng)?shù)據(jù) CALL READ_CACULATE(SP,GR,NUMBER,DEPTH,GRmin,GRmax,SPmin, amp。 SPmax) !泥質(zhì)含量的計(jì)算 CALL OUTPUTFILE(SP,GR,NUMBER,DEPTH,OUT_PUTFILE) !輸出計(jì)算結(jié)果 END PROGRAM SUBROUTINE READ_NUMBER(INPUT_FILE,NUMBER) CHARACTER*80 INPUT_FILE INTEGER NUMBER OPEN(10,FILE=INPUT_FILE,STATUS=39。OLD39。) NUMBER=0 READ(10,*) DO WHILE(.(10)) READ(10,*) NUMBER=NUMBER+1 END DO NUMBER=NUMBER1 CLOSE(10) END SUBROUTINE READ_NUMBER SUBROUTINE READ_DATA(INPUT_FILE,NUMBER,SP,GR,DEPTH) CHARACTER*80 INPUT_FILE INTEGER NUMBER REAL SP(1:NUMBER),GR(1:NUMBER),DEPTH(1:NUMBER) OPEN(20,FILE=INPUT_FILE) READ(20,*) DO i=1,NUMBER READ(20,*) DEPTH(i),SP(i),GR(i) END DO CLOSE(20) END SUBROUTINE READ_DATA SUBROUTINE READ_CACULATE(SP,GR,NUMBER,DEPTH,GRmin,GRmax,SPmin, amp。 SPmax) INTEGER NUMBER REAL GRmin,GRmax,SPmin,SPmax REAL S
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1