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

DIMENSION SBUFF(3000), TEUFT (3000), PEUFF(3000),ABUFF(2000)

DIMENSION U(4).AIN(100000).2CLASS(IS),PIN(IOOOOO), IBUFF(3000) DIMENSION ISET(64), PCLASS(5)

DATA PCLASS/-3.1459,-1.57,0.0, 1.57, 3.1459/

DATA ISET/10001, 20002, 30003, 40004, 50005,SOOOS,70007/3000*. 90003.10 *0010,110011,120012,130013,140014,150015.160016,1, 2. 3. 4. 5. 6, 7, 3. 9,1 10,11,12,13,14,15,16,100, 200, 300, 400, 500. 600. 700, *00. 900.1000,1100, 11200.1300.1400,1500.1600,10100. 20200, 30300, 40400, SOEOO, 60600, 70700 *, 80300, 90900,101000,111100,121200,131300,141400,1S1S00,161600/

DAT A ZCLASS/0.0, 400.. 300., 1200., 1600.,2000.,2400.. 2800.. 3200., 3600 *.,4000., 4400., 4800., 5200., 5600., 6000./

IF(IOPTl.Eü.l) CALL NEWSCL(ZCLASS. ZHAX)

NSIGN»!

IF(I0PT4.EQ.l) NSIGN*-1

NCLZ'16

NCLZ1*N'CLZ-1

REWIND 8

REWIND 9

iiiaiftmiimiiimiimimtimiiiii

******* SET PLOTTING COORDINATES ItXXXIl*

*********tXIIKKIKiXKI*t*K*iX*XXIIKtXX*l*R

XSTART*YORGIN YST'XORGIN

********************************************

******* BEGIN INTERPOLATION SCHEME *******

tu**** * ii ***«(* *kY* ****** tr *x it no* *******

XPIX-PL0TY/.20+1.S

NPIXX*IFIXrXPIXY

0(3)-.5 NPTS*NSAMP+1

NSAVE'O

NPASS-0

NINT * 1OOÖOO/NPIXX 10 LNT»KINT

U(2)•1./((XPIX-1.5)/(NSAMP-l))

U(4)»FLOAT(NPIXX)

NROW» 0 NPTS»N$AMPU

IF(LNT.GT.(NX-NSAVE))LNT»NX-NSAVE xitKiiitiatsrirtitKiiiiixitcirxciitiicrtKi XIIKXIX T DIRECTION INTERPOLATION fXtrtKI XXXI*ItEi***It********X********************

DO 40 1*1, LNT NSAVE-NSAVEU NROW* NROW+1

READ(8) (P6UFF(K), K*l, NSAMP)

READ(S) (ABUFF(K),K»1. NSAMP)

PBUFF (NPTS) «PBUFF (NSAliP)

ABUFF(NPTS)•ABUrF(NSAMP)

CALL UNWRAP(PEUFF, NPTS)

9