191816. lajstromszámú szabadalom • Eljárás változó amplitudójú vagy fázisú szeizmikus kijelzési görbe előállítására szeizmikus jelenséget jellemző változóról felvett szabálytalan lefutású vagy szinuszos jellegű mérési görbék alapján, különösen geológiai kutatásoknál

1

191.816

2

CALL APAHCClNr \ 1, TEUFr. NPIXX, 4, 0, PEJFF, NPTS, A, 0, U, A. A, 0) CALL APAM (* GIN* •, 1. SBUFF, NPIXX, 4, 0, AEUFF, NPTS, A. 0, U, A. A, 0) CALL WRAP(TBUFF, NPIXX)

DO 30 J*l,NPIXX N*(NRÛW-1)XNPIXX+J PIN(K)‘TBUFF(J)

AIN(N)*SBUFF (J)

30 CONTINUE

XXXXXEXXXXXXXXXXXXXXXXXXXXXXXXXXXXZXXXKXXXZXXIXK KXKEXXX CHECK FOR FINISHED T DIRECTION KXXXIXS KKXXlIXfXEXXXXXXXKXXKXXXXXEXXXXIXKEXXXXXXXSXXXXX

40 CONTINUE

XXXXZXXXXEXXXXXZKXXXXXXiXXZXZEXXXXXXXIXXXXXXXXXXXK

XXItir* BEGIN X DIRECTION INTERPOLATION XXXEXtKt XXXXXXXEXXXZXXXXXKXXXXXXIXXXSXXXXXXXXXZXXZXXXXEXXX

YPIX* (NROH-l)XXINC YPIX*YPIX/.2+1.5 NPIXY'IFIX(YPIX)

U(2)*1./((YPIX-1.5)/(NROW-1))

U(4)«FLOAT(NPIXY)

NPTS* NROW+1

KSKXXXZZXSXXXXXXKXSXXXXZXZXKXXXXIXXXXKXSXXXX

XXXOX* START X INTERPOLATION LOOP XXXXXXI XXlXXXXXXXXXXKXXXXXXXXXXKXXXXXXXIXXfXXXXXXXI

DO 200 J*l,NPIXX DO 100 1*1,NROW SBUFF(I)•AIN(J+(I-l)xNPIXX)

TBUFF(I)* PIN(J +(I-1)XNPIXX)

100 CONTINUE

SBUFF(NPTS)»SBUFF(NROW) TBUFF(NPTS)*TBUFF(NROW)

S9

31

CALL UNWRAP(TBUFF, NPTS)

CALL APAh(*QINI*, 1, PBUFF, NPIXY. 4, 0, TBUFF, NPTS, 4, 0, U, 4, 4, 0) CALL APAH(*QIN«\ 1, ABUFF, NFIXY, 4, 0, SBUFF, NPTS, 4, 0, U, 4, 4, 0) CALL WRAP(PBUFF/NPIXY)

XKXV.IXXXXXKXXIKXXXXKXXXXXXXXKKXKttXXVXXXXtXXX XXXXXXX BEGIN PLOTTING X SCAN LINES XXXXXXI

KXtEXIXXXXKXIXtXXXXXXXXXXXKXXXXKXXXIXXXIIXIXX

*jb~ y stflßT-Vt-Vt-l, A'PEUFF(KT)

B*ABS(ABUFF(KT))

IF(A.LT.PCLASS(1)) II-l IF(A.GT.PCLASS(5)) II•4 DO S3 1*1,4

IF(A.GT.PCLASS(I).AND.A.LE.PCLASS(I+1)) II*I CONTINUE '

IF (B.GT.ZCLASS(NCLZ)) ICODE-ISET((II-1)*1E+1GT IF(B.LT .ZCLASS(l)) ICODE*ISET ((II-l)rl6+n

DO 31 M*1 NCLZ1

IF (B-GT.ZCLASS(M) CONTINUE

HMU . D . Lc.

4LLASS(M+l)) ICODE-ISET((II-i)»ie+H)

IF(E.EQ.O.O) ICODE*0 IBUFF(KT)*ICODE

10