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

O O O

1

191.816

2

00 CONTINUE

DO 200 J*6, 81.10 TNUMB(J)*2.0 TLINE(J)'.4 00 CONTINUE

RKX1II INITIALIZE LOOPS IttKXSlX

M*(ITST-1)*DELT+100

IT(ITST.EÙ.O) M*(ITST-1)iDELT+100

K*ITED»DELT*100

1-0

T*SPI/10.125.4

tXXSXXKI PLOT TIMING LINES IXXIXII

DO 300 J*M, K, 100 Z*î* i vALHFU-t>C - Wo fl

’ Y'YORGIN-(I-l)XT Yl* Y- .5 C

CALL ILINE(XI, Y, TLINE(ILOC). 7.1)

CALL ILINE(X2,Y.TLINE (ILOC), 7. 0)

C

CALL INUMB(VALUE,XII,Yl.TNUMB(ILÛC), 0. 7,1)

CALL INUMB(VALUE.XI2,Yl,THUME(ILOC), 0. 7,1)

C

300 CONTINUE

txmil PLOT ANNOTATION XIXVXXEXSX

READ(10, 1000) IFTRC,ITINC,ITLABL,ITLINC C

NTRC*NX DO 325 K*1, NX

1F (IFTRC.EQ .NUMTRC(K)) I*K IF (ITLABL-EC.NUMTRC(K)) J*K 325 CONTINUE

NTRCI*I+NTRC NTRCJ* J + NT RC YT*YORGIN+1.

YT1*YÛRGIN+2.

YT2* YORGIN YT3* YT1 + 1.

YT4«YTl+4.

YE* YORGIN-PLOTY-l.

YBl*YORGIN-PL0TY*2.

YB2*YORGIN-PLOTY YB3*YB1-3.

X*XORGIN-12.XNSIGN

IF (I0PT3 .NE .1) CALL ITEXTfCDP- *, X, YT3, 2.. 0, 7) CALL ITEXTCEXT- \ X, YT4, 2., 0, 6)

65

15