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 IÜ1.816 2 IP (ICODE.EQ.0) KOUNT*KOUNT+1 SI CONTINUE DO 71 KT • 1, NPIXY YB* YST +(KT•!)* .2*NSIGN YSIDE*.2 CALL IRECT(YB, XB, YSIDE, .20,IBUFF(KT),0) 71 CONTINUE 200 CONTINUE f5í»x*X CHECK TO SEE IF ENTIRE TINE SLICE XXXSXXE XXXXXXX IS FINISHED 111**1* *SSE***.**I ******* ****** XXKXrXKXXXXXXSXXXKXXXXXXXSXX NPASS*NPASS+1 IF(NSAVE.GE.NX) GO TO 700 YST*YST+NPIXYX.2XNSIGN BACKSPACE 8 BACKSPACE 9 NSAVE'NSAVE-1 GO TO 10 KXESXXXKXXXXKXKtXXSXKXXKXXXXKXXXXKXttXXXXXXXXXXXXXXXXKK XSXZXXS PLOTTING IS DONE, CLOSE PLOTTING FILE IXIiXX* KZZX*XXXftXXXXXXEezXXrZX*XXXXZX!XXX£KXXSXXXXXSXXXZtXXXXX 700 CONTINUE XSTART*XORGIN+PLOTX+25. IF(IOPT4.EQ .1) XSTART•XORGIN-PLOTX*110. IF(I0PT2.NE.1) CALL INKS (XSTART,ISE7,PCLASS,ZCLASS) RETURN END SUBROUTINE UNWRAP(SBUFF,K) DIMENSION SBUFF(1), WRAPN(8000) PI * 3.14159 TW0PI*2.*PI NPTS'K+1 WRAPN(1)*0.0 DO 100 I-l.K BIFF»SBUFF(I)*SBUFF(I+1) WRAPN(1 + 1)“WRAPN(I) IF(DIFF.GT.PI) WRAPN(1+1)*WRAPN(I)+1 IF (DIFF.LT.(-PI)) WRAPN(I+ 1)’WRAPN(I)*1 100 CONTINUE DO 200 J*2,NPTS „ SBUFF(J)* SBUFF( J) + WRAPN( J)XTWOPI 200 CONTINUE RETURN ftuWur/v*' lT*UFr,K) DIMENSION TBUFF(1) PI»3.141S9 TW0PI*2*3.14153 DO 100 1*1. K TBUFF(I)•AMOD(TBUFF(I), TWOPI)
