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

IF (TBUFF(I).LT.(-PI)) TBUFF(I)*TBUFF(I)+TWDPI IF (1 FUFF(I).GT.PI) TBUFF(I)* TBUFF(I)-TWOPI )0 CONTINUE RETURN END

SUBROUTINE INKS(X$TART,ISET,PCLASS,ZCLASS)

DIMENSION ISET(1), PCLASS (1),ZCLASS(1)

XST ART * XST ART + 20.

DO 200 1*1,4 X*XSTAP.T + (1-1)110.

DO 100 J*1,16 Y*50.+(J-l)llO.

CALL IRECT(X, Y, 10., 10., ISET((I-1)X16+J). 1)

)0 CONTINUE iO CONTINUE

XI * XST ART * 10.

DO 150 J*l,16 Y*50.+(J-l)XlO.

CALL INUHB(ZCLASS(J), XI, Y, 2., 0, 7, 0)

;0 CONTINUE Y-50.-S.

DO 300 J-1,5 X'XST ART + (J-1)110.

Z*PCLASS(J)157.35

CALL INUMB(Z, X, Y, 2., 270,7,0)

50 CONTINUE X*XSTART+10.

Y*50.-18.

CALL ITEXT(’PHASE“' \ X, Y, 4.0, 0, 7)

X-XSTART+50.

Y-50.+B0.

CALL ITEXT('AMPLITUDE- \X,Y,4.0,90, 7)

CALL LEGEND(XSTART. ISET, PCLASS. ZCLASS)

■ RETURN END

SUBROUTINE LEGEND(XSTART, ISET,PCLASS,ZCLASS)

DIMENSION TARRAY(1024), ENV(1024),PCLASS(1),ZCLASS(1), ISET(1) DIMENSION YP(180),XP(180)

INTEGER.2 JDATE(6), IDATE(4)

DATA JDATE/’ V /\ * •- '/

«isiiiiimmiitiiiiimxtiitudiiiii

« ROUTINE TO BUILD TRACE LEGEND 1

SXKKXXXXXXXKXXXXXXtlXXKXKXXXlXXXKXXXXXX

CALL DATE(IDATE)

JDATE(1)*IDATE(1)

JDATE(3)*IDATE(2)

JDATE(5)«IDATE(3)

C-ZCLASS(IB)

D*ZCLASS(16)-ZCLASSX1S)

LT*1024

12