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

502 CONTINUE C

XI * XST ART + 20.

KOUNT * 0

DO 600 1*1,720,4 KOUNT*KOUNT*1 "

YP(KOUNT)*Y-(KOUNT *1)1.2 XP(KOUNT)*TARRAY(I)/(C+D*2)*9.+X1 600 CONTINUE

OHL IL IN& (yP, '/P, MWAJT,

CALL’ ILINE(XI, 256., .2, 7,1)

CALL ILINE(XI, 220., -2,7,0)

Xl-XSTART+30.

CALL ITEXT (’♦*» ’,XI. 25«.,2.,0.7)

Xl-XSTARTUO.

CALL ITEXT *, XI. 258., 2., 0, 7)

Xl-XSTART+20.

CALL ITEXTfO- ',XI.258.,2.,0,7)

Xl-XSTART+10.

CALL ITEXT(JDATE,XI,280.,2 - , 0, 7)

X1*XSTART-15.

CALL ITEXT('PHASE VARIAELE AMPLITUDE- ’.XI,270., 3., 0. 7)

RETURN

END

SUBROUTINE TGRID(NUMTRC)

COMMON /CTP.L/NX, NY, NTP.EC. DELT, NT, TPI, SPI. NREC, SCALE. LINC, ZhAX COMMON /PARM/XORGIN, YORGIN,IORGIN, PLOTX, PLOTY,XINC, YINC, SIZE, SIZE1 COMMON /CTRL3/ I OP,IOPT 1,IOPT 2,1OPT 3,1DPT 4,1OPT 5 COMMON /CTRL4/ICDPS.ICDPE,ITST,ITED, NSAMP, ICDPN

DIMENSION TLINE(81), TNUMB(Sl), NUMTRC(l)

INTEGERS LABEL(3),ICODE,IEXT(5), IEHD, IEX

DATA IEXT/’ • ’, *- V

DATA TLINE/81X.2/, TNUMB/8U1.4/, LABEL/’ *,*-'/

DATA IEX/-EX*/,IENO/EFV NSIGN-1

IF(I0PT4.EÛ.1) NSIGN*-1

KXXXXXK SET PLOT PARAMETERS KIXXXS

WRITE(6. 2010)

XI- XORGIN*(2-XNSIGN)

X2-X0RGIN+(PLOTX+2.)XNSIGN

XII- X0RG1N*(10.XNSIGN)

XI2-X0RGIN+(PLOTX+10)XNSIGN

XXXXXXX BUILD REFRENCE TABLES XXXXXX

DO 100 J-l,81,10 TNUMB(J)*2.0 TLINE(J)*.6

14