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 DO 100 J'l.39 IF (ISAVE (J) .EC.ICHK) ICNT*ICNTU 1F(ISAVE(J).NE.ICHK) JCNT'JCNT*! IF(ISAVE(J).NE.ICHK) ICNT'O 100 CONTINUE C IADJ*35-ICNT ICNT'IADJi'2 NCHP.’llO/ISIZE C c *XÏ***I***X PRINT THE USER'S INPUT ****«■ X**X*r C WRITE(0, 1030) ISIZE,ISAVE C IF(ICNT.GT.NCHR) GO TO 800 ISAVE(IADJ+1)«IEND YSKIFT-YSKIFT-2.-ISIZE SIZECISIZE IF(IOPT2.EQ.O.AND.YSHIFT.LT.300.) GO TO 800 IF(I0?T2.EQ.l.AND.YSHIFT.LT.25.) GO TO 900 CALL ITEXT(ISAVE,XSHIFT,YSHIFT,SIZE, 0, 7) DO TO 10 C 200 WRITE(6, 1010) RETURN 800 WRITE(6.1020) RETURN 900 WRITE(0,1050) RETURN r* V 1000 FORMAT(II, IX, 39A2) 1010 FORMAT (//. 3SX, ‘IK SIDE LABEL SUCCESSFULLY GENERATED MC’,////) 1020 FORMAT(///, 10X,’SSS ERROR-YOU HAVE ASKED FOR TOO MANY CHARACTERS ITO BE DISPLAYED SSS') 1030 FORMAT(31X, 12, 10X, 39A2) 1040 FORMAT(////.35X,’If* SIDE LABEL GENERATION f«’,/////, 28X, ’TEXT ISIZE’,14X, ’ANNOTATION',//) 1050 FORMAT(///. 10X.'SSS ERROR-YOU HAVE ASKED FOR TOO MANY LINES SSS’) END Szabadalmi igénypontok 1. Eljárás változó amplitúdójú vagy fázisú szeiz- ^5 mikus 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, amikoris (a) több, egymástól térben egyenlő távolságra levő gQ mérési pontot jelölünk ki a mérési görbék meghatározására, (b) szabálytalan lefutású mérési görbék esetén a tényleges amplitúdókat, míg szinuszos jellegű mérési gör bék esetén burkológörbéjük amplitúdóját minden, egymástól egyenlő távolságra levő mérési pontban 55 meghatározzuk, (c) minden, egymástól egyenlő távolságra levő mérési pontban a mérési görbének megfelelő komplex szeizmikus görbék állandó fázisát meghatározzuk, azzal jellemezve, hogy (d) legalább két színt rendelünk az állandó fázisok 60 szerint minden mérési ponthoz, (e) minden mérési ponthoz a hozzájuk rendelt szín sötétség szerinti árnyalatát választjuk a mérési görbé hez meghatározott amplitúdók alapján, majd (f) az egyes mérési pontokhoz tartozó színt és színárnyalatot kijelezzük és így a változó amplitúdójú vagy fázisú szeizmikus kijelzési görbét előállítjuk. 2. Az 1. igénypont szerinti eljárás, azzal jellemezve^ hogy (d) az egyenlő távolságokra levő mérési pontok mindegyikéhez a komplex szeizmikus görbék állandó fá zisa szerint első, második, harmadik és negyedik színt rendelünk, ahol BA bázisszög alapján a színek kiosz tását a következő táblázat szerint választjuk: Szín Szögtartomány első BA—180° ... BA-90°, második BA-90° ... BA, harmadik BA ... BA-f90°. negyedik BA+90° ... BA-> 180° 20
