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

’WífrW«..«**

T* A ftA Y(V~ S>tU(WÔ4-fr)

100 CONTINUE C

00 200 J-1.360 TARRAY(J)*TARRAY(J)*(C+D*2)

200 CONTINUE C

DO 300 J-3S1,540 TARRAY(J)•T ARRAY(J)I(C*D*3)

300 CONTINUE C

DO 400 J-541,720 TARRAY(J)-TARRAY(J)»(C*D*3)

400 CONTINUE C

DO 450 J-l,90 ENV(J)*J*90.

ENV(J480)-J ENV(J4180)*S0.*J ENV(J+270)-J-ISO.

ENV(J+360)*J-S0.

ENV(J+450)-J ENV(J+540)-80.+J ENV(J+S30)* J-ISO.

450 CONTINUE C

DO 475 J-l.720

ENV(J)-ENV(J)/ISO .«3.14159 475 CONTINUE C

Xl-XSTART+10.

Y-2S6.

KOUNT-O

C

DO 502 J-1,720, 4 A-ENV(J)

B-ABSfTARRAY(J))

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

IF(A.CT.PCLASSCI).AND.A.LE.PCLASS(I*1)) II-I 501 CONTINUE C C

IF(B.CT.ZCLASS(16)) ICODE-ISET((II-l)rl6U6)

IF(B.LT.ZCLASS(l)) ICODE-ISET ((Il'l)mtl)

DO 503 K-1,15

IF(B.CT.ZCLASS(K) .AND .B .LT .ZCLÂSS(K-U)) ICODE-ISET((II-1)*1G+K) 503 CONTINUE C

KOUNT-KDUNT+1

Yl-Y-(KOUNT-l)l.2

CALL IRECT(XI. Yl,20., .2,ICODE, 0)

13