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

191.816

2

romlott, ami az értékelés nehézségeit is növeli a későbbiekben.

A találmány szerinti eljárást az előbbiekben előnyös foganatosítási módok alapján ismertettük részletesen. A találmány szerinti eljárás az itt ismertetett foganatosításokon túlmenően több számos más módon is végrehajtható. Ezek a módosítások azonban az igénypontokkal meghatározott oltalmi körbe esnek.

KXXIXKXKXXXXIXXXXKXXXXXXXI 'XXKKXXXXXXXXXXXXXXXXXXXXIXXXXI -W_..

Ilixxx SOURCE CODE FOR VERTICAL AMPLITUDE-PHASE PLOT XIIEX XXXXXX SPS FORMAT *****

KXXIXXXXXXXZIXKZXXXXXZIXXZXIXXXXXXtXXXXXXXXXXZXXIXXXZXIXXXXX

DIMENSION TARRAY(409E),BUFF(5000),ENV(4096),SL0C1(2), SLCC2(2)

DIMENSION NUMTRC(3000)

COMMON /CTRL/NX, NY, NTREC,DELT,NT.TPI,SPI,NREC,SCALE, LINC, ZMAX C0MM0K/PARM/X0RGIN,Y0RG1N,IORGIN,PLOTX,PLOTY,XINC,YINC, SIZE. SIZE1 CDMM0N/CTRL2/IFLAG,IXFRST,IXLINE,IP, TAR. IN. NN, IPLTE C0MM0N/CTRL3/I0P, I0PT1,I0PT2,10PT3,I0PT4,10PT5 C0MM0N/CTRL4/ICDPS,ICDPE,ITST,ITED. NSAMP, ICDPN

INTEGER*4 JBUFF(5000),MLINE(3),ICDPON, INMSON, IBLANK INTEGER*4 IDIR, IDIRR,IDIRL,DDNAME(2), ILOC(2), IL0C2(2)

INTEGERX2 IBUFF(10000),ITRHE,IHEAD. IPCODE. IVOL(3), IPROS(4)

EQUIVALENCE (BUFF(1).IBUFF (1),JBUFF(1))

EQUIVALENCE (ILCC(1),SL0C1 (1)), (1LDC2(1),SL0C2(1))

DATA IDIR/* ’/, IDIP.R/’R70L’/,IDIRL/’LT0R’/

DATA INMSON/* */. ICDFON/* ‘/,IBLANN/’ */

DATA IHEAD/’TP’/

DATA ITRHE/’HE’/

DATA IPCCDE/’ */

DATA DDNAME/*FT23*, ’F001V

WRITE(G,1075)

**************************************** ********************

******** CHECK TIME OF DAY AND SET INTERVAL TIMER ******** z*it**********x*xi*i*******************xix*ri*zxx*s***xx***x CALL TIMINT(KK)

CALL TIME(SL0C1)

NX-0

READ(10,1000) TPI. SPI,ICDPS,ICDPE,ITST, ITED.IPCODE READC10,1010) IDIR, ICDPON, INKSON, ZMAX WRITE(6, 1080)

WRITE(G, 1055) TPI, SPI,ICDPS,ICDPE, ITST, ITED, IDIR, IPCODE

IF(ZMAX.GT.0.0) I0PT1-1 IF (INKSON.NE.IBLANK) I0PT2-1 IF(ICDPON.NE.IBLANK) I0PT3-1 IF(IOIR.EQ.IDIRR) I0PT4-1

LN-0

20 CALL TAPEIO(’TAPEIN *,BUFF, LN, *R’)

IF(LN.LT.-l) CO TO 20 IF(LN.EQ.-l) GO TO 400

4. példa

Az 5. ábrán bemutatott szeizmikus kijelzést az interpoláció végrehajtása nélkül generáltuk és ezzel a 10. ábrán bemutatott képet nyertük. A 10. ábrán látható kijelzés felhasználható, bár az értékelést az ábra megjelenése nem könnyíti Az 5. ábra szerinti szeizmikus kijelzés tisztasága, értékelhetősége is

6