機器の開発・製作
Contents
1. 2 JA 4 1 0 05 Gal 20 JA 42. Hb 19880 KIR 3 3 3 6 D
3. 2 I C 0 999m 1mm 25mm 1 m 1 50 20 Hz AD 100cem s 12 bit 1 60 Hz
4. 1 g S N 10 dB 3 2 1 5 E y 7 1983
5. 1976 16 20 Hz 1 50 20 Hz 1 6 Hz
6. 25 26 Hz Suaeda 7 1983 3 3 1 B 2 3 1
7. 10 1 KERETES 1981
8. 7 1983 2 2 20 1 2 2 20 1 0 5 40C 10C 0 1dB 40C 1 1 10 Hz 1 g S N 35 dB
9. X 10 AD 4 4 41 FORTRAN 6 4 2
10. 2 2 12 3 2 2 18 TT RC 2 2 18 E Vs ON ore tr t Go 8 83 1 E 1 otom ER RI CORR 2C2 Ci Ri Cs 7 1983 R _ heo jo _ 5 2 2ho o a g 1 2 CiRu h 1 2 e rad s J 1 ZV 2 3 2 2 18
11. Q 2 2 7 U 1 1 Ne Vo 2 B 5 Cs Ri 1 Ra 2 7 4 sta hot 7 as Vs__Ru i Va U 6 1 mo 9 V V 3 Oo Rie _ Cu i Cia Cis Re J 60 Wr RC SR Edet 7 1983 U 7 2 2 12 Y 0 U8 U 9 7 5 1 Vs 11 1 5 12 09 U10 Vy Rist 3 Ris 4 03
12. 3 A 4 4 A 4 JA 4 1981 JA 4 JA 5 JA 5 JA 4 1 4
13. 1 50 Hz AD 4 7 1983
14. 2 g 2 40 15C 3 AD ERE AD 100 em s 12 AD
15. 2 2 2 6 11 2 6 12 1 50Hz 20Hz 18dB 44dB 0dB AD GAIN IOO IO deg 90 90 O I IO Freq Hz 42 612 PLSG T6 2 6 13 1980 9 25 02 54 My 6 1 2 6 12
16. U 1 2 2 7 U 2 1 2zCsR 0 0146 Hz U 3 1 2zCs R 0 010 Hz 1 2zCz R 21 2 Hz U 2 U 3 0 02 20 Hz 0 02 gt 20 Hz 3dB 0 02 Hz 0 02 Hz 1 2 AD
17. 7 1983 ISO JIS MT JIS FORTRAN MT 2 1 6 OL
18. LOW PASS FILTER OF ORDER 4 HES DESIGNED aok 4 714A 2 tt LOW PASS FILTER HIGHEST FASS BAND FREQUENCY HZ 7 109 MINIMUM PASS BAND GAIN 3 92 LOWEST STOP BAND FREQUENCY HZ 12 MAXIMUM STOF BAND GAIN CHECK ABOVE D K CY DR N Y TOO SHARP LOW PASS FILTER N 29 1RY AGAIN 29 22 T 5 1 2 22 6 5 2 4 2 HIGH PASS FILTER 5 2 1 SELECT FILTER 9 5 2 HIGH PASS FILTER wors 7 1983 5 2 2 HIGHEST STOP BAND FREQUENCY DC Hz
19. 500 Hz 1k z JA 4 JA 4 1981 JA 5 JA 5 JA 4 mGal 30mGal Cr k JA 5 JA 4 2 3
20. 1976 100cm s Atkinson 1982 100 em s A DERO 12 bit 48 8X10 cm s 5mGal AD 1 50 Hz 20 Hz 60 Hz 1
21. 8 1 2 1 2 10 Hz 10 Hz 1 10 10 m 10 9m
22. WWS SN SRO SMAC D T 2 D 1976 19 7 1983 D 2 1948 1961 60cm s
23. 1 sdiv 10Ga1 em s 1 E86T T d rr L 1 l 2 6 14 2 6 13 2 6 11 1 s div 1 mm div 1111 L TEHLES 218 861 7 1983 AD 1digit 0 0488em s 1 50Hz 0 388cem 20Hz 6 13Gal 0dB DC 0 05Hz
24. DC24V A C 100 V 8 1 2 8 2 3 24V DC DC 2 2 1 1 3 3 1976 MLkg K kg Hm m K MH 1963 004 00
25. 2 4 1 TEAC PS 80 C PU Z 80 R OM 12 R AM 48 kB BASIC 7 1983 CRT L 2 4 1 6 PS 80 TANDY RADIO SHACK TRS 80 TR S80 PS 80
26. 2 g 100 em s 1977 2 100cems 2 108 s 1 2
27. CRT 200 4096 x 2rem s 7 3 2 2 3 1 t Emt 3 2 3 D55656 ER OOO OR ORO STRONG MOTION DISPLAY SEISMOGRAM READY CY DR N Y STATION 789 RECORDER 1 1 LEFT RTGHT TRIGGER 521 D 17 H M 36 5 START RECORD IS TEN SECONDS EARLIER ANALOG DR DIGITAL OR D A COMPONENT iN E OR WD N SELECT D R 7 12 Z START TIME AFTER START TIME OF RECORD 50 7 1983 15 8 SEM 15 85 SE 36M 15 95 Z6M 15 95 SEM 16 05 16 05 16 15 Z6M 16 15 16 25 16 25 ssa ZEM 16 35 i 16 258 88 3 2 4 3 1 3
28. 2 3 2 90 15cm 2 5cm 0 8 0 9 g 1 g 2 4 X106 dyne cm rad 30mm min 1 25mm 25 1 1 1 em 50m V G 50mV cm 1 em em 1 22mm 1 _5
29. 0 1 1000 11 10 9 CHECK AMPLITUDE AXIS Y DR N Y N 10 Y 12 BAND WIDTH CHZ Parzen R 0 0 BAND WIDTH CHZ 109 TOO WIDE BAND WIDTH BAND WIDTH CHZ BAND WIDTH HZ 0 001 TOO NARROW BAND WIDTH BAND WIDTH HZ 13 14 15 PLOT OVER THE FIGURE CY DR N 2
30. 44 7 kByte A AH AL AM AN AW BY BW CM DF DY EI ER FH FL FP3 HI HR IA ID IS IV IX I ye Jy Opa pa pG KO KM b DE Lis DM EN LT MA N NA NB NH NM NN NX RA RB RC S SA Se SH SIT Tx TY UE VL WW X KA XE XG XD X I XR Xis X py NS KA Ye Yio Y2 X yy YA 1 RUN CRT kooo GPEC BRPLRG 83 STRONG MOTION SEISMOGRAM SPECTRUM READY DR N UNIT 0 CMT Y Y 7 1983 GPEC 25 OF RO STRONG SEISMOGRAM SPECTRUM READY tY OR N Y STATION 789 RECORDER 1 t 1 LEFT Z RIGHT TRIGGER 521 D 1E H 34 M SE S START OF RECORD IS TEN SECONDS EARLIER FOURIER SPECTRUM OR POWER SPECTRUM F OR P F P F 3 FOURIER SPECTRUM DR POWER SPECTRUM F P COMPONENT NM E OR
31. 50 dB 12 bit 72 dB 2 2 7 2 2 8 2 2 9 2 2 7 U 1 U10 LM 108 U1 U6 U9 1 U 5 U 8 15 7 7 5 U6 U8 09 U10 33 Input 2 V g 7 1983 2 2 7 2 2 8
32. 8 N 2 1 2 83 NE 4 AN X S R O 10 emys PX E gt Peterson x NI Orsini 1976 2 Peterson et al 1976 ce gt e gt 4 p me a a NVA 1 m s 67 0 Vil 10 Jms 1976 1 pm s Svg 100 pm s x 7 1983 2 1 2 1976 16 Hz 1 kGal
33. U 4 R ZR 19 5 U 5 15 7 50mV cm s U5 2 2 13 2 2 14 Va 6 Hz V ZV 2 2 15 1 6 Hz 9 1 h 1 2Q 0 5 U8 U 9 7 5 1 50m Vcem U 8
34. 1 9 3 100 cm s 2000 Gal 4 j j 0 je0 z Jo 2he o 6 7 D 6 h 10 102 7 2he 1 eo 2h whas D 218 w 2 3 2 ew 2h 2he I z g 2he 8 x j e 2 ho 8 2 2 1 A Vi 3 8 D 7 1983 l
35. 27 129 140 1969 4 168 176 1976 29 223 232 1977 H 30 317 338 1976 1975 50 6 10 40 105 107 HEA KKE PU 1981 NEC 34 60 61 1981 103 7 1983 13 92 101 1981 13 1981 5 19 43 1976 260 p
36. mm 360 7 1 2 3 0 1 2 AMPLITUDE SCALE COM SI CM 1 AMPLITUDE SCALE Ch 32 AMPLITUDE SCALE BRL CM j cm s Zem em cm Gal em 1 em cm s fem Gal 7 1 3 START TIME AFTER START TIME OF RECORD SEC CMT 7 1983 0 2 1 4 2 6 4 2 6 7 7 1 4 CMT TIME SCALE MM MIN ED AMPLITUDE SCALE ECEM B CEM 1 START TIME AFTER START TIME RECORD
37. 20A G 1 5 A 1 8 A 2A 2 5 1 1 g 2 5 1 5 2 12 1 60A 10 R 100 V 10 10 1964 1 2 gt 8 x 7 1983 3 2 3 2 5 1 70cm 6
38. en 17 ami l 4 ando LTAL K R R 6 AGS 18 HO _ p Vs oe AS G 1 2k 0 Vs 09 1 3 JA 4 2 2 4 2z 4 5 2 500 2 5 10 H 1 78x10 2 1000 G 0 22 D C 500 Hz Vs 2 V Z g 2 g 69 9 10 zm 2 2 3 7 1983 V4 i Vs Ro 2 2 4 2 2 5 J A 4
39. 7 1983 2 2 3 1 1 Gi 1 Re G L R 2 2 3 V AS2 Vs Go 1 m THA BL A 0 0 l G20 0 K D0 U0 MHz 02 2 3 S G SE R 7 1983 2r2he6 AGS 2 r 3 h 6 AGS ERRAR wg 9 2hwex e9 05 G he es 7 5 2 j 2hneno eq 16 hx 10 eos 1 3
40. 0 1 HIGHEST FREQUENCY HZ 20 30 Hz 9 B CHECK FREQUENCY AXIS CY DR N Y 10 N 8 Y 10 AMPLITUDE AXIS LINEAR OR LOG CB 7 1983 N G L MINIMUM AMPLITUDE CM OR CM 2 S cm s s em ss 5 MAXIMUN AMPLITUDE CM DR CM 2 8 0
41. Y BAND WIDTH HZ 12 N PLOT OVER THE FIGURE DR N RERDY ii 7 1983 k Y 2 6 15 0 1 Hz 1 000E 03 STHTION 789 TRIG 321 D 12 H 34 M 55 S RNRLYZED 35 M 51 S TB 56 59 3 S COMPONENT N BRND WIDTH 0 Hz 1 Hz 1 000E 02 Md1J dS W3MDd LN 1 000 01 1 1 10 FREQUENCY Hz 2 6 15 SPEC 2 P 3 N 4 55 5 60 6 N 7 Y 8 G 22 B 9 Y QCG 0 0 TY JTO Y 2 0 1 0 1 Hz lt 20 PRINT STRUNG MOTION SEISMOGRAM SPECTRUM z0 CODED BY M TAKAHASHI SEE MRI TECH ND E 40 DEFINT I N DIM WW 101 5 GUSUB1 DBOSUBZ QQ IFRCO GOTO0OS0 INIT amp READ LABEL 7 1983 EQ GOSUE 7000 DISPLAY LAB
42. f 1 Hz h 2h lt 2h 1977 fo Hz Hz fo Hz 2 h 2h2h fo
43. 1 0 2 2 6 2 2 6 3 RDATA CALL 1 4 32 1 1 z 2 z 3 4 1digit 200 Z 4096 em s 48 8X10 em s 2 6 2 25 27 31 35 4 2 PS 80 6 2 BASIC
44. 6 5 PLSG 7 1983 6 4 PRSG PR SG Print Seismogram CRT 6 2kByte A AD AN CH CM DA DR DY HR ID LP S Py K Lr N RG SC ST PK VL N 1 RUN CRT PRSG BAPLOS SG STRONG MOTION SEISGMDGRRM PRINT SEISMODGRAN READY Y DR N UNIT 0 CMT Y Y 2 PROGG 85 yooo k STRONG MOTION SEISMO
45. 25 0 1 Hz 70 0 1 em DC 0 1 Hz DC 10 Hz L 70 20 Hz 25 3 Gal 2 6 13 2 6 14 Hamming 1977 6 6 SPEC S P E C Spectrum
46. 2 1 8 1 6 Hz 2
47. 2 4 2 GP B PS 80 PS 80 PS 85 2 2 4 1 52 7 1983 2 4 1 R XR R AM48kB CRT P 5 80 2 1 15 10 16 5 1 210 132 16 5 208 216 m X 360 WX 4671 mm Y 260mm
48. Y 0 1mm 5em s 2 4 2 FORTRAN JIS FORTRAN ox P L 12002041 2 7000 k 5 BASIC 4 1A D A D 16 D A 3 7 1983 5 1 100 V50 60 Hz DC24V
49. 1979 SMAC 47 1981 44p 1981 13 148 58 1981 32 173 181 1982 16 I CA D 282 186 216 1976 1 43 171 189 1973 206p 104
50. 100 em s Hartzell and Helmberger 1982 1979 10 15 Imperial Valley M 6 6 1 km 108 cem s 2 1 2 1 3
51. 0 2 2 19 IO Freq Hz 2 2 19 2 2 15 V 2 2 18 V Yi 1 6 Hz 6 Hz 9 4 0 8 1 10 Hz 8dB 2 2 19
52. 10 hour AC 0 C 40C 1 8 33 ppm 0 25 0 1 40C 25 2 RC 7 1983 2 3 1 2 3 2 b c d B 7 1983 8 5 Hz 2 g
53. 10 CLSIPRTNT 0556 EAPLAS ook t 20 5 MOTION SEISMOGRAM DISPLAY SEISMOGRRM Z CODED BY M TAKAHASHI SEE MRI TECH NO A DEFINT DIM 51 GOSUE 1000 INIT INITIALIZE GDSUB 2000 7LRBEL READ LABEL 70 IF RC OQ GOTOS 60 GOSUE 7000 DISPLAY LABEL INFORMATION g 5 5 10 IF SC THEN 5 5 60 AN AN 1 100 INPUT ANALOG OR DIGITAL A OR D gt 110 IF AD A THEN N E OR U 3CM DR 7 I NPUT SELECT D R 7 12 DRY 120 GOSUB 5000 1 HERD HEADING 130 BC SC N 1 ED0 140 IF S80 60 THEN SU SE 60 TD 1 GOTO 140 150 IF AD THEN 190 160 FOR 0 TD PRINT NEXT J 170 PT 44 1 CHyZ 2 IF CM N THEN 190 IF THEN CHy 1 190 GOSUE 4 9 9 2 READ READ NEXT BLOCK z200 IF RC OQ THEN PRINT END OF SEISMOGRAM END 210 FOR J TO Z1 z220 SC C 1 60 IF SC 59 99 THEN 5 0 AN AN 1 210 IF THEN GOSU 6000 ELSE GOSUE 5000 ANADSP DIGDSP 240 NEXT J 250 GOTO 190 1000 SUBROUTINE akiok INITIALIZE Hootoh 1010 POKE 163526 0 POKE 16527 48 1020 Yt Y INPUT READY DR N gt 5 Y 1020 IF Y Y THEN 1040 ELSE 1020 1040 IF USRC11 AND 1E THEN
54. TOR 1982 10 10 82 10 84 10
55. 6 1 3 5 5 1 4 1 LOW PASS FILTER 5 1 1 SELECT FILTER 0 5 1 LOW PASS FILTER 5 1 2 7 1983 HIGHEST PASS BAND FREQUENCY HZ 3 7 V Z oA Hz PASS ESND GAIN SELECT FILTER 1 LOW PASS FILTER HIGHEST PGSS BOND FREQUENCY HZ 10 MINIMUM PASS BAND GAIN LOWEST graf BAND FREEH HZ3 MAXIMUM STOP BAND GAIN DC 10 Hz 90 20 Hz 5 5 1 3 CHECK D K CY Y N N 5 1 2 Y 5 1 4
56. 2 2 4 3 Disp mVcm Acc 5 mV Gal 7 1983 1 g 2V U 1 1973 2 2 10 Y Y H je _ Vo 1 J 12 gt yiss Ya Y 1 2 2 2 11 1 2 2 9 2 2 8 1 G 2 2 7 2
57. N U3 R N E 2 GD U 1 3 V v 16 8 kByte A AA AN AS CD DA DB DY ES FS F1 2 F4 F5 1 G2 G3 G4 65 66 HL J JA JX K MO M1 N NP NQ NT NU N2 N3 N6 PI RC R No SA SC ST TH sS TX YVL WC WL W2 X XB X XRX E o GD YPS S py I RUN CRT PLSO BRPLRG 85 STRONG MOTION SEISMOGRAM PLOT SEISMOGRAM READY OR UNIT 0 CMT Y Y STATION 769 RECORDER 1 1 LEFT Z RIGHT9 TRIGGER 521 D 1E H 34 M 30 START RECORD 15 TEN SEUONDS EARLIER kok X V T 3 ook ok 3 k k k ok k 1 E u i 2 T T L amp z T SR N Z E Z amp SOREN 2 2 U 2 N THETA E U ok ock k i k ok ook k ok SELECT
58. 3 S N 21 7 1983
59. Z 2 2 11 Z yjs 1 Z 2 2 12 7 1983 2 2 10 2 2 11 2 2 12 7 1983 Yi i 1 5 2 2 10 2 2 11 1 H Yi Ys _ a 8 THEROND B ROT
60. 60 1 C 2 0 999mm 1mm 3 AGC AGC D AGC DC
61. KBREAL 2 RUN R N ENTER KBREAL L DEBUUNCEE amp REAL TIME ROUTINE CURRENT MEMDRY SIZE 65555 AUTO MEMDRY MOP NEW MEMORY SIZE KE _ DEBHUNEE ROUTINE 653933 ESA447 s 65448 65959 REAL TIME ROUTINE CHECK MEMORY MAP NEW MEMORY SIZE 55 BYTES gt 88 BYTES 65000 amp REAL TIME ROUTINE CURRENT MEMORY SIZE 55525 AUTO MEMORY MAP NEW MEMORY SIZE F KE DEBOUNCE ROUTINE 6559 ES447 REAL TIME ROUTINE CHECK MEMORY NEW MEMORY SIZE KB DEBOUNCE LOAD POINT REAL TIME LOAD POINT LOADING MACHINE CODE
62. D h 9 Vo 10C 3 10C 60cm s 1 g
63. o Gi NAS NS 2 2 6 7 1983 1981 5m Gal 1 10 130 dB 1 1 3 2 2 2 5 V4 AG 20 1 gt 21 G Rei R 2 G 0 23 A R 1 0 G AG G 0 G20 Re R Ro KR 25 22 2 h 6 h
64. 1 1 50 Hz 6 mGal G 2 10 50 AD 16 1982 16 3 3 lt J J Y NH K
65. RE MAXIMUM STOP BAND GAIN 5 SELECT FILTER 0 5 2 HIGH PASS FILTER HIGHEST STOP BAND FREQUENCY HZ 1 MAXIMUM STOP BAND BREN H 5 LOWEST PASS BOND FREQUENCY HZY 2 MINIMUM POSS BOND GAIN 7 DC 1 Hz 90 5 2 3 5 1 3 5 2 4 5 1 4 5 3 4 3 BAND PASS FILTER 5 3 1 SELECT FILT tkt BAND PA HIGH PA CAE FILTER PART ER K 55 SS 5 3 2 8 5 2 Hz L 5 2 2 22 6 5 1 2 5 1 3 5 2 2 5 2 3 ook ok ok ok SELECT FILTER 8 2 2 3 BOND FILTER
66. 1 8 2 5 10 8 2 2 16 1 Z50 20 Hz s 7 1983 ODT
67. 32 60 920 8 BOT 3 MT 2 TEAC 2 2 800 bpi I RG TI S O 1 S CT 300 A B
68. AGG pu m Rar R 7 6 o j 2hnoowt wo 9 06 9 o Z 2hs 2hse 2 hn 8 i 2hxoo k V R K x MHR gt 28 V z G x 7 1983 k 9 2 2 6 22
69. CDC4 N2 N63 C01 WCG 1 WC CDCI NTNE Fij F1 FS F2 F248FS RETURN 2 SUBROUTINE INTEGRATER 0 1 0 00522100 CDt02 0 0 CDC 0 0 1 CDC47 1 99704 0 5 Q 0 397042 RETURNE GUBROHUTTNE DIFFERENTTRTER CDi 55 6164 Q CDCI 5 1 4 0 EEE 4 CDC5 4 4 RETURN i pokka Tkt GURROUTINE FILTERING AGSUMPTION FOR JX TO 31 ALL INPUT BEFORE START FIRST DATA FOR J M 1 THEREFORE ALL HUTPUT BEFORE START KFC J 2 DBECJ JX 2 FIRST DATA LOW PASS FILTER IF NT 24080 ELSE FOR K TO 1 XF J K 0 XF EJ 2 0 FOR JA i TD 2 IF 1 0 THENXF J JAD XF CJ 2 ELSE XFEJ JA NEXT JA K FOR 1 TO NZ XF J Z K CDC1 KK 1 2 K 10 CDi K 13 XF CJ 1 K 1 CDCI K 13 XF CJ D K 19 CDC4 1 0 1 CDCS K 19 XFEJ KO NEXT K JX XF J Z N20 FOR K TOL FOR JR 0TDN2 XF J K K 1 JA ENEXT NEXT J z NT 1 NEXT JX RETURN 1 1 W w U A 1 time mar ES EE EL TE NE EE L 1 1 L STATION 789 TRIG
70. READ NEXT BLOCK IF RC OQ THEN OUT2 10 _ 248 PRINT END SEISMOGRAN END FOR K TO 31 FOR J M TO 1 DECJ K y DRX J ENEXT J K IF NQ QQ OR THEN GOSUR 24000 FILTERING GOSUB 11000 PLTSMG PLOT SEISMOGRAM IF RC O THEN OUTZ 1 LPRINT H OUTZ48 END ELSE GOTO GURROUTINE TNI TIOLIZE POKE 16526 0 POKE 16527 48 Y Y INPUT READY Y OR IF Y Y THEN 1040 ELSE 1020 IF USRC11 AND 16 THEN PRINT NHT READY EiGHTH1 2 ELSE RET iOS k k a pae taok SUBROUTINE LABEL READ LABEL BLOCK X USR 5H USRCB 5A USRC4 RC 0 RC RETURN CODE IFCPEEKCX O OR PEEKCX 15 42 THEN PRINT THE CMT IS NDT MOGRAM PUT THE SEISMOGRAM IN UNIT 0 RC 1 RETURN ST PEEK X I AND 159 1 PEEKCX 4 AND 2 amp 0 10 1E PEEK AND 15 STATION VL PEEK CX 75 AND 15 RECORDER UNIT NUMBER DY PEEK X 18 AND 15 1 0 CPEEKCX 17 AND 240 10 16 7 AND 159 DAY OF THE YEAR 16 AND 240 10 16 PEEK X 18 AND 15 HOUR AN PEEK X 19 AND 24 1 1 18 AND 15 MEINUTE SC PEEK X 200 AND 40 1 0 16 PEEK X 20 AND 15 SECOND RETURN 1 aaao kkk kkk o aokk SURROUTINE HEAD HEADING TX Q INPU
71. ipa s 0012 STATI N TUSTIN TD 1 277256 256 716 10 0014 1 2 1 2 16 16 RECIRCER NUMBER 0016 2 1 3 C kF TRIGGER DAY 7 0018 LABEL 3 IX 4 256 100 IX amp IX amp Z256 256 16 10 IX 4 IX 4 7 16 16 NZ ZQ 0020 HOUR 602177777 ABEL 55 IX 5 74096 10 01 5 1 5 57 5095 0092 7 2557777 0022 MIN 0023 LASEL 5 IX 6 74096 10 IX 6 IX 6 6096 4096 7256 7 77 0024 SEC GUS LABEL 6 IX 7 74096 TO 1 7 7 amp 09 amp amp 096 25 777 C C 0026 GO TO 999 sr 0028 999 RETURN 7 OU029 FORMAT A2y1XyA211X A2 18X A 0030 END OPTISNS NAM RLABEL S gt K EK STATISTICS 20URCE CRRUSS T 30 S12ZE 8 STATISTICS ERRORS O SEVERITY CODE G COMPILATION CORFLETE LINE NO STATEMENT 5501 C SKTP OR READ NEXT BLOCK kkk kkk kKkkkKE CODEC U EY TW TAKAHASHI COO2 SUBROUTINE RDATACIX MTs INCI IRC A GOOS IX 2 WAVE FORM LATA 0004 w lt SYMBOLIC DEVICE NUMBER FIR CMT 00 5 IND INPUT C
72. KE _ DEBOUUNCE ROUTINE ES393 65447 REAL TIME ROUTINE E5448 65555 KB ROUTINE COMPLETE REAL TIME ROUTINE COMPLETE READY 55 BYTES 58 BYTES 27 3 BAPLAS 83 6 3 7 1983 0556 RERDY SYSTEM 14 9 SAVE OR LOAD LOAD L 1 FILE NRME DSSG KERERI 0556 READY gt READY RUN DSSG 6 3 6 6 RUN 6 3 DSSG D S S G Displary Seismogram CRT 4 0 kByte A AD CH CM DA DR DY HR J K N PTA SG ST
73. 0 0488cm s AD 0 0244cm s T 1 2 1LSB 0 8 Gal 0 13em 1969 AD 7 1983 1981 1981 16 AD 2 g
74. 10 A D D 3 1 D 3 1 1 ANALOG OR DIGITAL A OR D D START TIME AFTER START TIME OF RECORD 10 0 ENTER CMT 10 CMT 10 3 1 2 DSS BRFLRG STRONG MOTION SEISM GRAM DISPLAY SEISMOGRAM READY Y OR N gt Y STATION 789 RECORDER 1 1 LEFT RTGHT TRIGGER 521 D 12 H 34 M 56 5 START OF RECORD IS TEN SECONDS EARLIER ANALOG
75. 1 641 1 0 rad ge m Z sJ kg Ss7 J 5 LA z Lm BL G TI 1 2 Ess LV sss 7 1983 2 S V yradJ Em V 50 8 1 KR Ra 1 2hex9g99 4 UZK P 5 1 G 6 s Reit Ra Re2 Raz rad s
76. 15190 IF NP 4 THEN LPRINT M 2725 625 ELSE LPRINT M 25 10 12190 IF NQ 0 THEN LPRINT PNO FILTER GOT01Z3Z 12200 IF NQ 1 THEN LPRINT PLOW PASS FILTER ELSE LPRINT PHIGH PASS FILTER 15210 IF NP 4 THEN LPRINT M 2725 525 UPRINT S amp ETF NQ 1 OR NQ 2 THEN LPRINT P G1 X AT Fi Hz ELSE LPRINT P GI 4 AT F5 Hz 12250 IF 4 THEN LPRINT M 2725 425 15240 IF NQ 1 DR 2 THEN _ 2 2 60 0155 ELSE LPRINT P GE AT FG amp Hz 12290 IF NP 4 THEN LPRINT M 2725 325 ELSE LPRINT Ps 7 1983 1 2 amp IF NPD4 THEN LPRINT S G 15270 LPRINT PLOM PASS FILTERE sTF NP 4THEN LPRINT 2725 205 Z280 LPRINT S 4 LPRINT P G1 RTUF1 Hz IF NP THEN LPRINT M 2725 125 2290 2 2 gt 12500 L 5 6 RETURN 14000 SUBROUTINE PLTCMP tkk PLOT COMPONENTS 14010 IF lt S THEN 14050 ELSE LPRINT M 2770 1280 NP25 ezszz 14020 LPRINT D Z800 1400 Z830 1360 2800 1400 2800 gg 2700 dg LPRINT D Z550 900 3510 930 3 550 900 5510 28525 1200 14030 IF NP 5 THEN _ ELSE LPRINT 14040 IF NP 5 THEN LPRINT
77. 7 1983 900 FOR K KA TO NE 910 IF NG N THEN IX 100 5 2000 DF K 1 FL 5 FH FL_2 ELSE 100 5 2000 LOGE DF K 14 3 LOGOCFL 9 C LOGCFH LDOGECFL 3 20 IF 1 0 THEN 980 IF 2100 THEN 990 940 IF THEN 200 CXR K RLL H L 5 ELSE IF XRCK THEN 200 ELSE 2 5 LOGCXRCK LOGCHL CLUGCRH LODG RL gt gt 950 IF 2500 THEN IY 2500 IF 2 THEN 200 970 IF 0 THEN LPRINT M IX PEYIK 1 ELSE LPRINT D IX NEXT 990 GOTO 560 LOOD SUBRDUTINE INIT okoko INITIALIZE okooko 1010 POKE 165726 8 POKE 16527 48 1020 Y Y INPUT READY CY DR 1020 IF Y Y THEN 1040 ELSE 1020 1040 IF USR 11 AND 16 THEN READY 60 01020 ELSE URN 53 ks tta cts eka tte ce tte La aia ata ta eta cis ea ata eA Cs aaa ais Ea dia ats eia CEs cAn CES CES SES OTs CEA SEs CES SEE SEN CEUTE REE TEE AEE CEA WES W 2 SUBROUTINE LABEL bbk READ LABEL BLOCK kkk 2010 X USR USRC8 A USRC4 RC 0 RC RETURN CODE 2020 IFCPEEKCX OBD DR CPEEKCX 1 O 2 THEN PRINT THE CMT IS NOT SEISMOGRAM PUT THE IN UNIT 0 1 RETURN 2010 ST CPEEKCX AND 15 1 0 0 PEEKCX 4 AND 240 10 16 PEEKE X 4 AND 15 17 STATION 2040 VL PEEKCX AND 15 3 RECORDER UNIT
78. 10 TEAC M 2
79. 2 216 2 2 17 2 2 7 U10 5 m V Gal 2 5 20 Hz EET SEN 7 1983 Vel V2 Vs Ve cm s Gal mV mV mV mV mv 2 2 13 A 2 2 7 Hz 7 1983 mV cm s 0 001 0 01 o l I IO 100 Freq Hz 2 2 14 2 2 0 02 lt 20 Hz 2 215 U7 2 2 7 O Vz V o M O OI B IO Freq Hz 7 1983 Disp Vo V V2 Va Vea Ve Gal mV mV mV mV mV mV FN gz V 10000 1000 2 216
80. 2 Q 0 5 Z 1 6 Hz 0 5 6 1 50 Hz 1 5 2 6 20 Hz 1 em em 1 30mm min 1 25mm 2 5 cm 1 1 1g
81. 480 END OF SEIBMUGRRM RERDY 7 2 2 5 7 2 1 7 1 2 7 2 2 7 1 3 7 2 3 AMPLITUDE SCALE t CM S3 GM 1 START TIME AFTER START TIME OF RECORD SECE 2 15 STOP TIME AFTER START TIME OF RECORD SEC 3 7 2 4 CRT 7 2 3 2 6 8 7 3 2 6 7 3 1 THETR CDEG 3 HE THETA 7 3 2 7 1 2 EU 7 3 3 7 1 3 7 3 4 7 2 3 7 3 5 7 2 4 2 6 9 10 CLS PLOG BAPLAS 85 i a z
82. 7 1983 E Ne 1 6 No 1 Y N E U3 HM 6 X THETA Y 1 6 1 3 BHTPUT 3 VELOCITY t THROUGH DISPLACEMENT CINTEGRAT IOAD ACCELERATION DIFFERENTIAL ELECT OUTPUT 0 239 pi 0 2 0 4 5 FITLTER k FILTER 1 1 LOW PASS FILTER z HIGH PASS FILTER 3 BAND PASS FILTER j E SELECT FILTER Ci 0 3 0 0
83. R AM 3 5 2 3 3 7 1983 10 2 3 4 1 12 LABEL DATA DATA DATA DATA TM TM LABEL BLOCK DATA BLOCK 0 1 CH 1 x 0 2 2 1 x 0 0 3
84. 6 0003 3 sassa 0004 MT SYMBOLIC DEVICE NUMBER FOR CMI 0005 REWIND READ LABEL BLOCK 0006 CALL RLABEL LABELsMT 10 pJ C kkk 7 INDICATOR OUTPUT s5 0 NORMAL y Z U 1 I NOTU 5 0008 IF IND NE U GO TO 10 0009 WRITE 61610 LABEL cm 0010 GO TO 20 0011 MRITE 6s611 0012 5 Q 0 1 ca sasa 772 1 TE 6 6 2 0 do neme nemt mirise 0014 DO 30 NBLK 134 0015 NBLK BLOCK NUMBER 0016 IND 1 0017 IND INDICATOR INPUT O SKIP ONE BLOCK 0018 kkk 1 READ UNE BLOCK 01977 IF NBLK LT 24 1ND o 0020 SKIP READ NEXT ONE DATA BLOUCK 0021 CALL 1 0022 IRC RETURN CODE 0 NORMAL 1 END OF CMT 0023 IF IRC NE 0 GO JO 40 0024 IF IND EQs0 GO 30 0D025 CT WRITE DATA ORTANTHOR PROCESSING U UU 0026 WRITE 61630 NBULKe IDATACIJ 194 K 1632 0027 CM WRITE DATA OR ANTHOR PROCESSING CEND 0028 30 CONTINUE 0029 GO TO 50 a 0030 40 WRITE 6 640 0031 50 CONTINUE Ta Sg a SSS uu
85. D TIME CODE GOTO 190 150 LPRINT M S COMPONENT IT s sDRX i sDRX 7 5 zsLPRINT s 100 CDR STRINGS 26 52735 sSTRING 27 52 3 1 CDRX 1 7 IF CM N THEN CH 0 170 IF CM E THEN 1 180 DIM IPCiZ49 190 5 5 52 60 1 10 10 IF THEN 5 9 1 20 200 IF SC THEN 5 5 60 1 210 SC THEN 5 5 60 AN AN i 210 220 CZD CHRE 27 CSE 250 FOR JA 0 64 STEP 52 GHSUE 4000 READ NEXT 240 IF RC OQ THEN IiLPRINT 27 LPRINT END SEISMUGRRM END 2590 FOR 1 FOR J 0TUs 260 107 DAZ K NEXT J JA 270 IF THEN GOSUE 6000 ELSE GOUSUB 90060 200 GOTO 230 1000 SUBRDUTINE INITIALIZE 1010 POKE 16526 0 POKE 16527 48 1020 Y Y INPUT READY Y DR Ny sY 1020 IF Y Y THEN 1040 ELSE 1020 1040 IF USR C11 AND 16 THEN READY 60 701020 ELSE URN 7 k o k k kikiki 2 SUBROUTINE LABEL READ LABEL BLOCK 2010 X USRCD A ZUSRC E 5A USRC4 0 RC RETURN CODE 020 IFC PEEKC X lt 0 OR 1
86. HIGH PASS PART HIGHEST STOP FREQUENCY HZ 1 MAXIMUM STOP BAND GAIN x 5 LOWEST PASS BOND FREQUENCY HZ 2 MINIMUM PASS BAND GAIN X CHECK ABOVE D K CY DR N Y HIGH PASS PART DF ORDER amp HAS DESIGNED LDW PASS PART 7 1983 HIGHEST PASS BOND FREQUENCY HZY iQ MINIMUM PASS BOND GAIN Cx T LOWEST STOP BAND FREQUENCY CHZ 2 MAXIMUM STOP BRND GAIN C 5 CHECK ABOVE D K V DR V LOW PASS PART OF ORDER 4 HAS DESIGNED H tkt BAND PASS FILTER DESIGNED t DC 1 Hz 5 2 Hz 90 DC 10 Hz 90 20 Hz 5 6 4 6 3 0 1 2 _ VELOCITY DISPLACEMENT CCELERATION 7 7 1 2 1 4 7 1 1 TIME SCALE CMM MIN
87. GOSUE 22000 ELSE ACCELERATION GDSUB 23000 450 IF 5 THEN 9 560 SCALE MM MIN 5 IF NP E THEN DEG TH 470 1 PRINT AMPLITUDE SCALE 5 480 IF NU g THEN CM S CM 5AS ELSE IF NU 1 THEN INPUT 5AS ELSE INPUT CBRL CM y RS 490 IF 5 lt 0 THEN 470 500 GOSUB 5000 HEADING 510 ECOR 520 550 540 550 560 570 560 590 600 510 pO 620 40 650 1000 1010 1020 1020 1040 URN 2000 2010 20209 SETS 2020 X amp 2040 2050 CX 1 2 2070 2050 2090 2000 2010 1020 1030 4000 4010 4020 4020 4040 4050 7000 7010 7020 7020 7 1983 IF NP amp THEN TY TX 5 TIME AFTER START TIME R D SEC TY i JF NP 4 AND TY lt TX THEN 510 ELSE TY TY TX DUSUB 12000 PLOT FRAME BOSUB 152 0 1 PLTLEL PLOT LABEL INFORMATION GOSUR 14000 PLTCMP PLOT COMPONENTS FOR 4 0 NEXT TH TH 3 1411593 180 YBCO 2300 NP O YBC1i 1900 NP 500 YB 2Z ZSQ0 2ZSQ0 NP 2 1 IF NP 4 THEN YB 0 l40 1 4 106 YBC0 amp 8 Z500 1 AS 2 000 085 4096 NT Q IF 2 THEN M Z 2 ELSE MQ IF 2 OR NP 5 THEN 1 ELSE 1 2 GOSUR 4000
88. VL X XP Y 1 RUN CRT BDD BAPLAS SZ STRONG MOTION DISPLAY SEISMOGRAN READY Y OR N UNIT 0 CMT Y ENTERK Y 2 OM 7 1983 yokok 0656506 STRONG MOTION SEISMOGRAM DISPLAY SEISMOGRAN READY Y OR Y STATION 799 RECORDER 1 t 1 LEFT Z RIDHT TRIGGER 571 D 12 H 34 M 36 5 START DF RECORD IS TEN SECONDS EARLIER ANALOG OR DIGITAL D 10
89. 2 1 1 1 2 1 1 2 1 1 A B 0 7 1983 SMAC 1979 KHD 1981 1981 1981 1981
90. I I V i I I l S I I I 1 1 l Pes ag sm X 2 2 1 S AS 0 9 2 2 2 1 6 sJ o 2x 1 6 1 4 10 kg M MK SA 0 39 0 056 0 064 S 96 h 100 A 2 6 320 Hz 125 Hz 5V 100 m s 9 4 8 100 cm s 1 3mm E S mV Vo 0 5mV 5V 10 102em s 80 dB 2 2 2
91. POKE VARPTRCIDAZCK J3 2 1 POKE 702 1 PEEKCX 2 K E RJ 3 16 NEXT J sN N 1 RETURN 27 daoo BUBROUUTTNE DBPLBL DISPLAY LABEL INFORMATION PRTNT STEPRINT RECORDER VL U 1 LEFT Z RIGHT 5 65 PRINT START OF RECORD IS SECONDS EARLIER EPRINT RETURN p o a a o k SUBRDUTINE ANAPRT ANALOGDOUSLY PRINT Wokwokaokwukaoka FOR JA 0 93 STEP 5C 5C 0 05 IF 5 59 99 THEN 0 RN RN 1 LPRINTUSING s nN LPRINTUSING H 5 FOR TO IPC K 128 NEXT K IP EZ 23a 112 1 IP0123 25a FOR 2Z IE IDt CCGH y JQ K Z2 DRX 8 125 5 IF THEN IE Q IF IE 2 gt 2 amp 9 THEN 249 Y INT IE 2 1 7 1 2 IF 2 0 THEN IPCY IPCY DR amp K ELSE IP Y FTPCY DR 2 amp MK NEXT K FOR K T 12724 IF IPCK AND 52 THEN EPCK FPCK OR E IF 124 THEN LPREINTCHR CTPCK ELSE LPRINTCHR t IP 4K 5 NEXT K RETURN 2 oo k ko OORSORSEKO OR SEK ORO SUBROUTINE DIGPRT DIGITAL PRINT F R 0 9 STEP 5 56 0 1 IF 5 59 39 THEN 5 LPRINTUSING LPRINTUSING H ISC LPRINT 5 FOR K 5 FOR L
92. 0032 kkk 0033 C SOME PROCESSING Eco 0034 0035 999 STOP 0036 610 FORKNMAT 1H1 33H STRONG MOTION SEISMOGRAM OH STATION e14114H C RECORDER sI2618HT 1 LEFT 2 RIGHT 0038 15H TRIGGER TIME 4 amp 2 D 13 6 2H 3 2 Me13s2H S 0039 611 FORNAT 1H1 27H CMT NOT SLISMOGRAM xt 0020 620 20 30 1 DIGIT 200 4096 CM S 0021 t 51H BLECK Nr e 5 E W U D TIME MARK 0042 630 FORMAT 5I10 00430 0 OTTOTT 25 END OF CMT DETECTED w amp 0044 END OPTIONS 5 K STATISTICS 7 500 CARDS 24 PROGRAM SIZE 529 26 2 84 861I 7 1983 kF STRONG MOTION SEISMOGRAM STATTON 555 RECORDER T CTEUEFT 2 RIGHT TRIGGER TIME 25 D 2 54 M 43 5 lt e ai DIGIT 2007096 BLOCK NIe R 5 E W U D TIME MARK 525 24 2 9 4 264 ok 5 gs 24 1 8 4 269 RS ER 24 1 5 6 271 a 757 5 270 24 1 3 4 255 ea 24 1 amp 1 268 TM iS SSS S DO 24 1 3 1 267 io 3 26 amp 24 1 1 6 274 24 1 3 12 276 EN E
93. 1 5020 Hz 1 6 20 Hz 2 1 3 0 01 Hz 0 015 Hz 0 0 01 Hz 6 dB oct 0 015Hz 6dB oct 0 02 Hz 0 02 Hz 021 3 2 1 4 7 1983 3 dB 2 1 4 6 Hz 6 dB oct 1 6 Hz Q 1 h h 1
94. 12 4040 POKE VARPTRECDAACK 2 2 1 J 4050 DRXCK J DRXCK J2 1E NEXT 1 RETURN 27 5000 SUBROUTINE DIGDSP DISPLAY DIGITALLY 5010 PRINT USIND H s PRINT LSING M PRINT USING HH 5 356505 SO PRINT USING NS J33 5020 PRINT USINO EW DAAC J35 5040 PRINT USING UD DAAC J335 5050 PRINT USING TC H DAY CI J33 ED PRINT BHYSN RETURN p k ook ok o 000 SUBROUTINE ANADSP DISPLAY ANALOGOUSLY 6010 PTX PT 1 IF PTX 45 THEN PTX 42 PRINT UBING M SANS PRINT USING 6 5 55863 PRINT 91019 2 XPY DA CH J 2t DRY 7 64 5 0 IF 127 THEN XP 1Z7 49 IF lt 0 THEN E5 SET XPX PTX SETCE4 PTX RETURN 7 7000 SUBROUTINE DSPLBL DISPLAY LABEL INFORMATION k 7010 PRINT GTATION ST PRINT RECORDER 1 LEFT Z RIDHT 702 PRINT TRIGGER DY D HR H AN M USCS 7050 PRINT START OF RECORD IS TEN SECONDS EARLIER PRINT 7080 RETURN OOO Ei 1 40
95. 13 4 COMPONENT N RIT 8 1 26 100 g NP EE RRRRARAAA EAR AAA RAA AAAA AAAARAA iA S LO CO n cn PAY LO A NA DT NN 1 1 digit 20 Z 4096 em s 3 2 4 DSSG 3 1 3 D 7 1983 lt 19 CLS PRIN PRGG BAPLAS SZ z PREINT GTROHNG MOTION SEISMOGRAM PRINT SEISMOGRAM CDDED EY M TAKAHASHI SEE MRI TECH REP ND E DEFINT DIM Z1 IDC 952 50 GDSUB 1000 INITIALIZE GODSUE 2000 LABEL READ LABEL 70 IF RE 9 5 S0 GOSUE 7000 DISPLAY LABEL INFORMATION g INPUHT DIGITAL A OR D 100 IF 0 THEN CM U INPUT COMPODNENT E OR Uyu DRX B INPUTUSELECT D R 8 12 DRS 110 GOSUE 5000 HEADING 1209 10000 PRINT LABEL INFORMATION 120 LPRINT LCHR 27CHR ES 140 IF THEN 150 ELSE LPRINT M 5 N S W c
96. 321 D 12 H 34 M 56 S PL T STARTS ON 34 M 46 S TIME SCALE 120 mm min AMP SCALE 5 NO FILTER X 2 6 4 PLSG 2 1 3 0 4 0 7 1 1 120 7 1 2 0 5 7 1 3 0 2 6 9 1 div 1 cm T EAE S 618 86T 1 E L L J l J L _ L F r a fynnir STATION 789 TRIG 321 D 12 H 34 M 56 S PLOT STARTS ON 34 M 46 S TIME SCALE 120 mm min AMP SCALE 5 Gal cm LOW PASS FILTER 70 Z AT 10 Hz 1 Z AT 15 Hz 2 65 PLSG 2 2 3 2 4 1 5 1 2 10 70 15 1 5 1 3 CY 7 1 1 9120 7 1 2 5 7 1 3 0 2 8 6861 STATION 789 TRIG 321 D 12 34 M 56 5 PLOT STARTS ON 34 M 46 S TIME SCALE 60 mm min AMP SCALE 1 cm cm 0 PASS FILTER 70 Z RT 20 Hz 40 ZX RT 25 Hz 2 6 6 PLSG 2 3 3 1 4 1 5 1 2 20 70 25 40 5 1 3 CY 7 1 1 60 7 1 2 G0 1 7 1 3 0 Z L
97. 83 BAPLAS 83 BASIC Program Library Analyses of Strony Motion Seismogram Version 83 BAPLAS CMT BASIC 10 7 1983 LINE NO STATEMENT oooi e E REMTND CMT AND READ LABEL BLOCK CODED M TAKAHASHI 0002 SUBROUTINE RLABEL LABEL MT IND 000377 C LABEL LASEUCU INFORMATION 0004 C MT SYMBOLIC DEVICE NUMEER FOR CMT C005 IND CGUTPUT ZG NORMALC 1 f CMT NOT SEISMOGRAM U 0006 INTEGER 2 LABEL 6 IX 7 GOU caog REWIND MT 0009 2 REAECRTs1010 X 7 NNN Se 0C10 C SEISMOGRAM z 1 27 G9 TO 960
98. BASIC References Atkinson G M 1982 Comments on Attenuation relations for strong seismic ground motion in Canada by H S Hasegawa P W Basham and M J Berry Bull Seis Soc Am 72 1765 1770 Hartzell S and D V Helemberger 1982 Strong motion modeling of the Imperial Valley Earthquake of 1979 Bull Seis Soc Am 72 571 596 Peterson J and N Orsini 1976 Seismic research observatories Upgrading the Worldwide Seismic Data Network EOS 57 548 556 Peterson J H M Butler L G Holcomb and C R Hutt 1976 The seismic research observatory Bull Seis Soc Am 66 2049 2068 amp x 1982 KS TAE 87 1963 10 143 169 1980 N 4 233p Hamming R W 1977 Digital Filters Prentice Hall Inc N J USA 1980 I 230p 1976 20 2 21 27 4417 4423 1976
99. 1 5 5 11290 XX XX 1300 YY YY 1300 11200 IF XX EE THEN XX 2600 11510 IF THEN 11520 2609 THEN 2600 11230 IF YY Q THEN 11340 IF N THEN N 1 ELSE LPRINTUUD0 XX YY 11250 000 Ns MUS IPRINTUSINGUH sPRINTUSU 5 SC SC 1 80 0 SC 53 99 THEN 5 0 hM N 1 112760 TY TY 1 Eg IF THEN RC 1 RETURN NP95 6 END 7 1983 11270 NEXT K LPRINT R 9 112380 NEXT J RETURN 7 12000 SUBROUTINE FRAME PLOT FRAME 12 1 DUT2 amp 68 1 LPRINT HT X1 KEY 2 5600 2600 12020 IF 4 THEN Y1 2 2600 120 Yi 12040 FOR 1 XZ STEP 100 12050 1 YI 30 Y1 NEXT 2060 FOR K Y1 TD YE STEP 109 12070 1 K XE XZ NEXT 12080 FOR K X2 STEP 1 12090 _ YZ 2 20 K 1 NEXT 12100 FOR K YE Yi STEP 100 12110 LPRINT D X1 0 1 40 X1 HK NEXT K 12129 IF 4 THEN _ 0 1500 LPRTINT LV1 LPRINT B u 28 LPRINTID 2600 1300 1 1500
100. 2 THEN PRINT THE CMT IS NOT THE SEISMDGRAM IN UNIT 0 ERC 1IRETURN 2030 ST PEEKCX AND 15 4 AND 240 4 AND 15 z STATION 2 4 VL PEEKCX 7 AND 15 RECORDER UNIT NUMBER 2050 DY PEEKC X 16 AND 15 100 PEEK X 17 gt AND Z60 10 1E PEEK CX 17 AND 152 2 7 DAY OF THE YEAR 2060 HR PEEK X 18 AND 240 10 16 PEEK X 18 AND 15 HOUUR 2070 19 AND Z601 10 15 PEEK X 19 AND 15 MINUTE 2080 2090 21000 3010 1020 3020 4000 4010 4020 4020 4040 4050 7000 7010 7020 70 0 7040 5000 0010 5020 20020 5040 254 2050 GE 2070 5050 8030 2100 6110 5120 6130 9000 9010 3020 90 0 3040 3050 3060 9070 9050 10000 10010 10020 sLPRI 10020 10040 10050 10060 10070 10050 10030 10100 7 1983 PEEKCX AND 4 1 1E TCPEEKCX 2 AND 155 SECOND RETURN PGi k k k GURROUTINE HEAD HEADING TX 0 INPUT START TIME AFTER START TIME OF REEURD N TX 15 8 IF THEN RETURN ELSE IF 900 THEN 2910 FOR 1 TD N A USR 6 NEXT RETLRN 2 daabobo SUBROUTINE READ READ NEXT BLOCK kaakao 0 A USRC4 IF A AND 2 THEN 2 1 1 RETURN FOR J TO 51 FOR K TO
101. 2400 925 LPRENT GOTO 14150 ELSE 2900 925 1 GOTO 14130 14050 LLPRTNT 25 2Z51 LPRINT Ptime mark 7 14060 IF 1 THEN _ 25 2129 1 ELPRENT 25 2 02521 1 1 25 1425ELPRINT PE LPRINT M 25 1225 LPRINT PW LPRINT M 25 725 LPRINT PU LPRINT M 25 625 LPRINT GOTO 1412 1 7 t P 14090 IF 2 THEN _ 25 1925 5 f 1 25 295 2SILPRINT 1 25 0625 LP RINT PW GOTO 14120 14090 IF NP 3 THEN LRRINT 25 142511 25 1 GOTO 14120 NR 4 14100 LPRINT 25 15295 LPREINTTPCNTE BE LLPRETNT VMD 2 ILPRT NT PCN E U LPRINT S 2 1 111 1353 LPRINT P2 LP RINT M 203q6 1353 1 LPRINT PSTELPRINT MT 250 13521LPRINT P1 2 14110 LPRINT M 111 353 a LPRINT P20 209 353 1 LPR LPRINTuM ZQ07 0 5535 s LPRINT P2U LPRINT MUSAD U JIT LPRINT P1 2 LPRINT SUEILPRINTuMUQ0U 1400 1 5600 1400 AQA 5600 400 14120
102. LPRINT D 1Z0Q0U 260 z LPRINT L i 12120 RETURN 7 oko o k k aa 12000 SUBROUTINE PLTLEL PLOT LABEL INFORMATION 12010 4 THEN 1 5 6 1 2720 2425 ELSE LPRINT S TA LPRINT M 25 1Z0 12020 1 1 ST 12030 IF THEN LPRINT M 2725 2525 ELSE LPRINT uP 123040 LPRINT PTRIG s oh H 13050 IF NPY THEN 1 29019 2225 12050 1 6 12070 4 THEN LPRINT M 2725 2125 ELSE LPRINT P 12090 5 5 2 amp 1 IF BC THEN SC SC 6 0 RN RN 1 12030 IF SC gt 8 THEN 5 58 6 HN RN 1 1 2090 12100 LPRINT PPLOT STARTS ON ITF NP amp THEN _ 2725 2025 12110 SA INT 5 10 0 53 10 1 5 123120 IF 4 THEN LPRINT 2725 1925911 STOPS 2725 1825 5 586 15150 IF 4 AND SR 60 THEN SR SR EQ 1 GOTO 12120 12140 IF NPY 4 THEN _ 5 1 8 15150 IF 4 THEN _ 2725 1725 GOTO 13160 ELSE LPRIN 7 LPRINT PTIME SCALE TS mm min 12160 LPRINT PAMP SCALE IFNP 4THEN 2725 1625 12170 IF NU THEN LPRINT P AS Ccm sez cm ELSE IF NU 1 THEN LPRINT PURS T cm ELSE LPRINT P AS
103. SKIP 1 READ 0606 IRC 1 GUTFUT G lt NGRMAL3 1 lt END CMT 0007 TNTEGER Z TXC128 oi 0008 1 0009 Yi 1070 900 IX Ci PP 0010 IF IND EG G RETURN 0011 8 DO 10 11 128 nog ES PEA RE RS 0012 1C IX I IX i 16 7 0673 7607 76 999 EE 0014 9C0 1 CO O Tyre 777999 RETURN 0016 1010 FORMAT 128A2 wass END sure 5 Saa qasa n n Lynn I I e kk OPTICNS amp NAM RDATA 5 STATISTICS SOURCE CARDS 17 PROGRAM SIZE 177 STATISTICS ERRORS 7777770 7 COMPILATION COMPLETE 12 61 4 Z 222 1 9 292 A STATISTICS ERRORS SEVERITY CODE O CUMPILATIUN COMPLETE LINE N STATEMENT 0D001 C kkk EXAMPLE TO USE SUBROUTINCS RLABEL AND RDATA k gt kbskkjkk 38 ROR k k 0002 INTEGER 2 4 amp 32
104. 1725 RETURN kanpokoak koo ooh 16000 SUBROUTINE FAST FAST FOURIER TRANSFORM 100 7 1983 1E010 1 TRANSLATED FROM THE FORTRAN 16020 FOR IA 1 TD NA 2 PROGRAM CODED BY Y 1 3 IF IA JA THEN iEQ70 z DZISHINDO SUPEKUTURU 16040 ER XRCJA sz KRISEKI 16050 XRCJHR XRCIR EXE JHR XICTR IE KASHIMA SHUPPANKAL 93 95 XRCITR ER XTCTR ET 1976 dg YEN 16070 ikiski 16000 IF THEN 16100 16090 JA JA MA MA MA 2 IF 2 THEN 16080 16100 JA JA MA NEXT I 16110 1 1120 IF NA THEN RETURN 16150 2 FDR KR 1 TO KM 16140 5 141592 10 I TSH SINCHI gt 16150 FOR IA KA NA STEP IS JA IA KM XA XRCJA XB XI 161 0 5 IXCEXRCTR gt 16170 XR JH ER XICJAI XD EI 161600 XR IQ3 XCG ER XICIAJ XD EI 16190 NEXT i6200 15 2 16120 1713438320 17000 SUBRDUTINE FREGRRX PLOT FREQUENCY AXIS 17010 IF NG G THEN 17080 17020 FOR JF 0 TQ 10 KF 100 5 2000 JF FL3 C FH FL3 170950 IF KF THEN 17070 17040 IF KF 2
105. 2 0 Li 4 2 L2 5 3 0 0 6 3 0 0 7 4 0 N 8 4 0 0 9 1 0 8 10 1 0 0 2 0 4 2 0 0 3 0 0 3 0 1 4 0 0 4 0 D 1 1 2 2 3 3 4 4 2 2 glele o l s 2 12827 2 2 2 2 2212102010 DATA 2 3 4 BOT TM EOT LiLsLs N 1 2 0 1 HiH MiM Z SiS 7 1983 AD 2 16 2 MS B 8 L SB 4 0 1 256 32
106. 861 lt mishu WU 2 211 2 time STATION 289 TRIG TIME SCALE 120 mm min NO FILTER 2 6 7 7 1 2 WW L K 1 321 D 12 H 34 M 56 S PLOT STARTS ON 34 M 46 S AMP SCALE 25 cm sec cm PL SG 2 4 3 0 4 0 7 1 1 G 120 0 25 7 1 3 0 S 5618 6861 2 6 8 PLSG 2 5 3 1 4 3 1 0 1 70 Y 5 70 10 25 Y 7 2 1 0 2 7 2 2 80 7 2 3 100 L C Lu O f Lu p gt STHTIGN 789 TRIG 5321 D 12 34 MEDS PLOT STARTS ON 535 M SSS PLOT STOPS ON 556 M 55S6 S RMP SCRLE 2 cm cm j HIGH PRSS FILTER 1 Z 01 Hz 70 X RT 1 Hz LOW PRSS FILTER 70 5 Hz L L 25 Z 10 Hz 5 3 2 0 01 5618 86 88 pa a Fa rS C Li 1 PL SG 2 6 3 1 4 3 7 3 1 45 7 3 3 80 7 3 4 100 STHTIGN 289 TRIG 321 D
107. BASIC READY gt READY KBREAL CMT PS 80 UNIT 1 gt k 5 Y 5 E NM ENTER __ 1 4 0 0 07 ENTER CRT MEMORY SIZE __ RADIO SHACK LEVEL II BASIC READY SYSTEM 14000 SAVE OR LDRD __ ___ ENTER X ENTER LOAD L 1 KBREAL LOAD L L FILE NAME KEREAL KEREAL READY 7 1983 READY CMT
108. TH 5 LPRINTUSING ID0CK JG L gt NEXT L KOI THEN LPRINT NEXT JA RETURN 57 Goko k k kk k GUBROUTINE PRTLBL PRINT LABEL INFORMATION 248 0 LPRINT CHR 1 27 0 27 LPRINT sLPRINT 1 STRONG MOTION SEISMOGRRM C LPRINT 6 LPRINT RECORDER CC1 LEFT Z RIBHT LPRINT TRIBGER 5 65 LPRINT START DF RECORD IS TEN SECONDS EARLIER LPRINT DYNAMIC RANGE 12 2047 204 amp 8 DIGITS LPRINT 1 DIGIT 10 VOLT 493E 2 441 MILLI VDLT LPRINT 200 CM SEC 4096 04883 CM SEC LPRINT TBRMPLING FREQUENCY 0 HZ LPRINT 1 RETURN 7 kk k a o o e 7 1983 1 60 270 DSSG 6 5 PLSG PLSG Plot Seismogram XY 6
109. lt 20 OR 51 100 THEN 20040 INPUT LOWEST STOP BAND FREQUENCY HZ sF IF F4 F DR F4 THEN 20060 INPUT MRXIMUM STOP BAND GAIN 5 IF 65 lt 64 4 0 DR 4 6 THEN 20050 YP Y ABOVE D K Y DR IF YO THEN 20010 ELSE RETURN SUBROUTINE DESIGN FILTER k IF _NE 1 DR N Q AND THEN Fl F2 F2 F43061 52 D2 54 RC 0 PI 141592 ES SDR CI00 G1y 2 15 AA ig0 GE Fi Fi FS W1 TRN P F125 F2 F2Z FS 1 Wz TANCPI HEED RN LUGCSERCHRT 1 ES LOGCME M1 IF RM THEN HL LOW NEINTCRN 1 MC M1 E 1 N ELSE WC Wl ES 1 N IF 22 THEN SHARP 1 PASS FILTER N N PRINT TRY AGAIN RC 1 RETURN NZ2 N Z IF NZ THEN 21130 FURI NE 1 TO NE MZ R WC 2 1 2 WCESINCPI C2 CT1 N8 1 2Z N IF THEN 0 1 Ly NC 2Z Q CDt462 Ty zZ4 CGDC1 T ELSE 0 1 1 z T3 Z CDC1 L 0 5 1 CDC1 I CDC4 L32340 1 WC 23 R CDC L WCG 2E 1 2Z WCAaeSINCPI C2 1 12 2 N2 23 68 NEXT I 2 IF NZ N THEN 21150 2 2 1 RN gt THEN CDCl NE TNE MC C1TMCE ECDCE NE TNE lt TNE ELSE 1 NMN2 TNE 1 1 MC ECDCE gt NESTNE C DC 1 2 CDC3 NETNE
110. 0em 6 amp 130 cm 6 6 1 4 1 2 FORTRAN 2 6 1 RLABEL 2 MT LABEL 2 3 IND 0 RDATA 1 2 3 I ND 0 1 1 I X 4 RC
111. 100 THEN 17160 17050 Yi 17060 IF JF G FIX JF 5 THEN LPRINTTDTKFT Y4 THEN LPRIN 1 ELSE 60 JF Y 1 ELSE VY 1 17070 NEXT GOTO 17140 17080 FOR 2 T 1 FOR JD 1 TD 3 100 5 2000 LOB JG 1 J 4LOGSCFH y LDBCFL 17030 IF 100 THEN 17150 17100 IF KF 2100 THEN 17140 17110 Yi 17120 IF 6 1 THEN THEN Y ELSE LPRINT M KF E J6t10 JF LPRINTMUKFUU Y1 EL SE LPRINT YZ Y1 17120 NEXT JG JF 17140 LPRINT D Z1 00 Y1 RETURNE 18000 tt SUBROUTINE SPECAX PLOT SPECTRUM AXIS 18010 IF NH G THEN 18100 18020 AW CAH AL2 40 FOR J R ATOE FOR JB 1 TD Z IF JB ZTHEN JB 5 19020 IFJB 10 JD VW THEN 15040 ELSE NEXT JB JA 18040 RA JB 1 OtJA FOR JE AH Z RA RE JE RS 19050 7 CRE RL 5 AHAL IF KF 200 THEN 18090 18060 IF KF 2500 THEN 18160 18070 KF 18080 IF JB 5 FIX JB 5 THEN LPRINT D XZ KF IF THEN LPRIN 1 KF ELSE KF iS LPRINTUSING PHH H Htttt s RE LPRINTEM XI KF ELSE LPRINT DEXZ KF Xi 16090 NEXT JB GOTO 18
112. 12 H 34 M 56 S PL T STARTS 56 M 15 6 S STGPS ON 56 355 6 S SCHLE 2 U 45 deg E gt HIGH PASS FILTER 1 Z RT Q1 Hz 70 Z RT 1 Hz LOW PHSS FILTER 70 Z AT 5 Hz 25 Z RT 10 Hz 5 3 2 0 01 CRIZ y s 861 2 3 4 5 6 Selected 2 6 10 PLSG 2 1 GAIN 10 O I 0 01 ed 90 O 00 O OI IO Freq Hz 2 6 11 PLSG s L 5861 7 1983 3 4 1 2 6 10 2 5 1 4 5 2 4 5 3 2
113. 160 101 7 1983 718100 FOR JF 6 TO EiFUR 1 9 200 5 2Z 00 LDG0JG 10 JF 5 5 CAH 15110 IF 200 THEN 18150 15120 IF KF 2500 THEN 18160 181350 LPRINT D Xi 15140 IF JG 1 THEN 0 THEN LPRINTTDTX1T F ELSE 16 1 PHH 5 1 1 ELSE LPRINT D X 18150 NEXT JG JF 16160 L 1 Z500 1 RETURN 27 kokok 13 6 12 2 6 16 12 26 7 8 29 2 0 21 212 Number Data 2 616 SPEC BW 7 1983 1976 FORTRAN
114. 2 1 ELSE 1112 11070 IF J AND YY 400 THEN 11960 IF J 3 AND YY EE THEN YY 20 11090 IF J 4 AND YY 2600 THEN 2600 11100 IF J 4 AND YY 2400 THEN 2400 11119 GOTO 11210 TIME MARK END Aa a SEISMDGRAM 11120 IF NP 4 AND THEN YY INTC SARE DBM Kt DRT K 3 AS 5 2 11130 IF NP 4 AND J THEN YY iNT SORC DEC Kt DBC1 K DECH K3 2 5 AS 5 gt 11140 lt 4 THEN YYmINT DRCJ KO AS 0 5 9 11150 IF NP 1 THEN YY YY 21 0 J 700 11160 IF 2 THEN 19 1 1 2 11170 IF NP 3 THEN YY YY 1 400 11180 IF 4 THEN YY YY 1400 J 1 00 11190 IF 2600 THEN 2600 11200 IF YY lt 20 0 THEN YY 200 SEISMOGRAM END 2 END 11210 IF F THEN LPRENTTMTXECT T 1 1 XX TNTCXG IF XXY 1600 THEN 112370 1120 LPRINTYD XX ll2am 51 THEN XB T XX YB J YV 11280 XS5S XS TS EQ 11260 1127 1 NP25 G 11270 IF NPES THEN XX INT DB 1 K AS 0 5 ELSE XX INTCCDEC KK CUE TH TDBC1 K GTNCTH 5 59 1 2 0 IF NP 5 THEN YY EiNTCDBC 5 0 59 ELSE
115. 2 13 16 6 i3 13 11 d4 j 14 8 7 7 8 8 x 2 13 19 i3 23 21 3 16 2 17 2 21 2 21 24 16 16 15 15 168 8 8 8 9 9 x 24 17 i8 24 24 W 6 3 5 24 25 5 2 15 16 15 16 j 1 9 39 9 93 8 amp 22 21 25 3 ii HO 6 az 5 2 24 2k 15 15 15 14 12 it 8 7 7 71 8 90 101 9 39 36 65 2 4 25 5 27 27 10 18 10 9 1 7 7 5 4 k 199 Bd J 15 5 27 25 W 3 32 8 3 8 8 8 Q 4 2 3 i 2 iG i7 15 i6 i8 i2 J j57 3 u 3 S E i 8 8 8 B 3 Q i i 2 2 2 12 17 21 2 5 3516 8 3 29 28 2 27 2 9 39 H Jl H iix i i i i 1 k 2 i8 2 20 21 4 35 15 9 2 2 2 19 18 i H ii 12 1 3 3 3 4 4 3 24 27 22 27 24 36 i7 0 18 17 17 15 14 1 13 i2 1 il 3 3 3 4 5 19 19 21 22 3 5 35 17 1 19 i 9 8 7 j H H 12 12 j 5 7 5 5 5 5 27 2 21 19 18 2 3517 2 5 4 3 3 39 f 0 5 6 5 4 6k 23 i5 22 15 i4 3 17 3 1 1 i i 7 7 5 7 7 bb 1 5 4 77 24 22 18 12 HB 6 17 4 2 3 4 4 4 5 4 3 3 5 5 5 5 5 102 5 98 J 17 5 5 5 9 5 53 1 O 1 1 B HH 5 5 4 3 3 3 m 33 99 30 51756 5 lt 5 1 i 2 1 2 3 3 1 I 12 2 2 22 16 13 5177 4 5 5 6x 3 4 4 6 1 2 1 20 2 22 24 21 22 617 8 4 5 5 5 7 8 9 19 12 i4 i 5 4 5 5 4 7 ib 22 i9 20 2 i9 36 17 9 9 7 7 8 8 9 i6 i7 2 2 21 7 5 5 7 7 i6 20 21 24 iB 3
116. 25 240 im mark 14150 1 RETURN 2 EO ROF OOO 19000 SURRDUTINE INPUT 1 19010 IF NQ Z THEN PRINT HIGH PASS PART ed 19020 ITNPUHT HITGHEST STOP BAND FREQUENCY HZ 3F1 19020 IF 1 OR 1 2 THEN 19020 19040 INPUT MRXIMUM STOP BAND GAIN gt 561 19 5 IF 61 lt 0 1 8 THEN 19040 19060 INPUT LOWEST PASS BAND FREQUENCY HZ FZ 19070 IF F2 lt F1 DR 7 5 THEN 19060 1908 INPUHT MINIMUM PASS BAND GRIN CA DZ 19090 IF 2 1 OR 62290 DR 62 100 THEN 19080 19100 YP Y ABOVE 0 CY DR N YP 19110 IF YPO THEN 19010 ELSE RETURN opkook k k 200009 SUBROUTINE INPUTZ ok o o 2 1 IF ND THEN PRINT LOW PASS PART 20020 200 0 20040 20050 20060 20070 200650 20090 20100 20110 21000 21010 21020 21020 21040 21050 21060 21070 21060 21090 21100 21110 21120 21150 CDEL 21140 21150 22000 2201 22020 23000 221010 22020 24000 24010 24020 240390 24040 24030 24060 24070 24080 24090 24100 24110 7 1983 INPUT HIGHEST PASS BAND FREQUENCY HZ 5 5 IF DR FE Z THEN 20020 1NPUT MINIMUM PASS BAND GAIN 5605 IF GZ
117. 270 Y Y FREQUENCY AXIS Y OR N Y 200 IF Y O THEN 22 Z900 PRINT AMPLITUDE AXIS 300 NH N INPUT LINEAR CN OR LOG G IF NOTCNH N DR NH G gt THEN 200 310 0 AMPLITUDE CM OR CMt2 53 0 T 510 520 0 ENPUT TMRXEMUN AMPLITUDE CM DR 2 55 IF H 0 THEN 550 ELSE IFAH AL THEN 220 730 IFNH G AND 0 THEN AL AH 1000 40 Y Y AMPLITUDE AXIS Y OR N Y 350 IF VO YS THEN 290 ELSE Y N BY 1525 GOTO 590 J60 Y Y INPUT PLOT OVER THE FIGURE Y DR Y 370 IF NOTCY Y DR Y N THEN 260 6 IF Y N THEN LPRINT uH DUT268 END z790 BW 0 WIDTH HZ TT NN E 0 DF i TT IF BW 0 THEN 480 ELSE UF 1 854 303 BW DF 410 IF UFD 5 THEN PRINT TOOD NARROW BRND WIDTH GOTO 290 2 LMSFIXCZ UF 1 IF LMD 101 DR BWZ DF 7 NN 15 THEN PRINT TOD WID E BAND WIDTH GOTO 3790 PI o k h i 430 MMC 1 0 75 UF TRANSLATED FROM THE FORTRAN 440 FOR J Z TD LM z PROGRAM CODED BY Y OHSAKI 4590 DI 1 57079E J 1 UF 7 DZISHINDO NO SUPEKUTORU AED MMUCJ MMC1 BTNCDT DE T487 NYUMON KASHIMA ab 7 1983 470 NEXT J s SHUPPONKRI 167 169 197E 420 IF Y Y THEN 530 1 koo o o 490 IF N THEN 500 ELSE FOR 1 TO N USRCE
118. 6 18 9 i 11 i 12 14 25 26 2 28 3 31 5 7 7 S 24 5 22 0 19 35 18 1 13 14 i4 i4 15 i4 32 32 3 3 4 7 5 5 k 25 21 27 193 19 36 18 2 l4 i4 i4 14 13 15 34 32 3i 31 3 2 5 5 5 5 4 21 22 19 18 21 28 36 18 3 i4 15 14 i4 i4 13 28 27 2 235 23 3 2 2 i ik 22 2 22 36 18 4 12 1i i i0 2 i8 i7 i6 15 i3 1 i 32 9 35 102 102 3518 5 7 8 6 7 5 5 ii ii 19 19 8 Q 3 2 3 2 5 10 101 98 7 3 36 186 5 3 2 3 3 9 8 7 7 7 4 5 4 4 4 4 16 29 i7 20 22 22 J6 i8 7 3 2 2 2 3 7 7 7 8 8 4 5 5 5 5 24 21 233 24 22 25 3 1 3 DSSGA 3 1 3 3 2 A 3 2 1 DSSG 3 2 1 8 8 3 2 2 DSSG 3 1 1 3 2 3 7 1983 TO MOT ION SE K k STRTTUN 789 RECORDER 1 1 1 2 RTGHT TRIGGER 521 12 H 54 M SE 5 START RECORD IS SECONDS EARLIER DYNAMIC RANGE 12 BIT 2047 TO 2 48 DIGITS 1 DIGIT 1 VOLT 4095 2 441 MILLI VOLT 200 CM SEC 4 096 0 048893 CM SEC SPMPLING FREQUENCY 60 008 HZ
119. 7 Hz 8 Hz 3 3 2 0 02 20 Hz AD 2 3 3 3 1 AD 1 60 Hz 12 10
120. EL INFORMATION 70 INPUT FUURIER SPECTRUM OR POWER SPECTRUM F DR P3 SFPE IF THEN 70 8g CM U N E OR U 5CM IF NOT CM N 0 R DR CM U THEN SQ 90 0 INPUT START TIME AFTER THE TRIGGER TIME SEC 5 TX 100 TX TX 10 N TX 15 0 IFN THEN11 ELSE IF 900 THEN 110 TY 1 z INPUT STOP TIME AFTER THE START TIME SEC TY 120 IF THEN 110 ELSE FOR K 4 TO 12 IF INT C2 K 0 5090 NM THEN 150 ELSE NEXT K 140 MANY DATA DECREASE STOP TIME 5 GOTO 110 15 PRINT NUMEER OF DATA NN 24K 0 5 PRINT FOURIER TRANSFORM NEEDS 160 PRINT NN NM TRAILING ZEROS WILL BE ADDED 3 170 Y Y K Y DR N Y 180 IF Y N THEN NM NN TY NMM EQ PRINT STOP TIME BECOMES T 190 ABOVE 0 CY OR Y 200 IF Y N THEN Eg 210 DIM XICNN 4023 IF 1000 DIM XRCNNDELSE DIM 4002 220 PRINT FREQUENCY AXIS 250 NG N TLENERR CN OR LOG G sNG IF NDT ND N DR 5 THEN 230 i 240 IF NG N THEN FL 0 ELSE FL 6 0 NN i 250 INPUT LOWEST FREQUENCY HZ FL IF cCNG N AND FL X DR 5 AND FL THEN 240 260 2 INPUT HIGHEST FREQUENCY CHZ IF FH lt FL DR 30 THEN 260
121. G 24 1 7 11 z76 24 1 10 7 274 w s 24 1 9 5 271 sss ss uma sh 24 2 11 1 265 EMTT 7700 4 0 Med x TTOTTE T T a 2 5 2 24 2 8 8 250 Sh SSE 24 3 5 11 258 s 3 16 253 24 2 2 21 250 25 72257 24 2 8 2 243 i egao 25 2 17 26 244 Ey 22 247 25 1 24 17 250 EE 26 12 255 25 1 27 262 E 26 gt 6 9 25 0 23 16 278 TS 27 Z88 2 6 3 2 6 2 7 1983 6 2 KBREAL TEAC PS 80 bounce 1 PS 80 CRT MEMORY SIZE __ ENTER RADIO SHACK LEVEL II
122. GRAM PRINT SEISMOGRAM READY Y DR N Y STATION 783 RECORDER 1 1 LEFT RTGHT 521 D 12 H amp 5 START OF RECORD IS TEN SECONDS EARLIER ANALOG OR DIGITAL OR D 3 DSSG D 3 1 D 3 1 1 DSSG 3 1 1 3 1 2 7 1983 W TR MOT ITON SE SSFICYCSEZEYNF k STATION 783 RECORDER 1 LEFT Z RIGHT TRIGGER 521 D 172 H 54 5E S START OF RECORD IS TEN SECONDS EARLIER DYNAMIC RANGE 12 2047 TO 2048 DIGITS 1 DIGIT 1 VOLT 4096 2 441 MILLI VOLT 200 CM SEC 4096 04583 CM SEC SAMPLING FREQUENCY 00 HZ M S N 5 4 7 E W gt U D c TIME CODE 15 6 19 18 18 16 16 14 15 15 16 15 15 i gt BS i ix 12 2 14 18 8 2 36 15 7 12 12 18 18 9 7 14 15 15 16 j j i i i i 2 gt iB 2 17 21 22 i8 158 5 6 5 5 4 gt H 15 15 16 H i 3 3 3 4 2 5 2 21 22 21 17 5 i 3 2 3 3 S 5 14 13 f H 1 4 5 6 5 6 5 28 24 27 23 233 19 5 68 4 4 5 5 8 H 14 jt PE H 15 7 3 7 6 6k 25 19 25 19 17 18 1 9 H 1
123. LOW PASS FILTER WRITTEN BY HAMMING 200 PRINT z 5 HIGH PASS FILTER TRANSLATED BY 210 PRINT Nt 2 BAND PASS FILTER 3 MIVAGAWA amp IMAI 20 PRINT k w ok okoko 2 KAGAKUGIJUTSU 230 NQ INPUT SELECT FILTER CQ 3 5 2 GHUPPANSHA 19880 MA IF OR THEN 230 IF 0 AND NQ THEN VELOCITY GOTO 450 ELSE DIM CDCI 2201 FC sFS E0 2 0 NE IF THEN 440 370 IF NQ 1 THEN PRINT tt LOW PASS FILTER ELSE 5909 38 GOSUE 20000 GUHSUBS1 OO IF RC O THEN 5890 ELSE PRINT LOW PASS FILTER OF ORDER NI HAS DESIGNED GOTO 440 190 IF NQ Z THEN PRINT HIGH PASS FILTER ELSE 410 400 GOSUB 19000 GOSUE 21000 IF RC THEN 400 ELSE HIGH PASS FILTER OF ORDER 5 HAS DESIGNED 0 0440 410 PRINT BAND PASS FILTER Hw 420 GOSUB 19000 GOSUE 21000 IF RC 0 THEN 4209 ELSE PRINT HIGH PASS PART SINS HAS DESIGNED F1 2 z G1 GE D2Z 2 450 GOSUBRZ Q Q Q GOSUB2Z1000 IF THEN 430 ELSE PRENT LOW PASS PART OF ORDER HAS DESIGNED BAND PA SS FILTER HAS DESIGNED 4 IF NU THEN PRINT VELOCITY 0 1 0 1 2 TO CDK NEXT K ELSE IF NU 1 THEN PRINT DISPLACEMENT
124. NB 1 XRCK SRRCXRCK TT 2 NEXT K 890 UUTE4B 1 700 IF THEN 590 710 GUSUB15 720 LPRINT PCOMPHNENT LPRINT M 2725 1625 LPRENT PBR ND WIDTH 730 LPRINT MU100 0 Z200 Y1 gkY 185 Y 1 7 1 0050617000 740 LLPRTNT 100 2500 Y 1 2500 Y 1 5 Y 5 Ya 0 O0SUB1 7000 750 LPRINT M 75 0 1 LPRINTTPFREBUENCEY Hz 7ZE9 LPRINT G4 LPRINT M DD 200 770 IF HO THEN 85 79 FOR J i TO NB IF XRCJ THEN H XR J 790 NEXT J IF HH THEN PRINT RLL DATA ZEROSTIEND ELSE IF L THEN L 0 PRINT U MINIMUM AMPLITUDE IS SET ZERD IF NH N THEN H 1 Z H 0 2 _ GOTODSA 610 IF AL THEN HL RH 1000 ZD AH AH t0 2 IF 0 AND NHt G THEN AL AH 1000 4 100 XX 7 70 0 GOSUBI1S000Q 950 LPRENT 2100 200 1 2100 2 2115 5 2150 4 71195 EEO GOSUE 18000 1 5 870 LPRINT 2500 2000 5 THEN LPRINT PFOUR SPECTRUM cm sy ys gt ELSE LPREINTTPPOMER SPECTRUM CCcEm 2 78 LPREINT TST2ILPRENT TMP CSSg 945SEILPRENT TPSEVTILPRTENT TS S80 LPRINT RAND 890 KC 2725 z LPRINT PuBWHz BVYxZ BV 100 LPREINT THU IF NG N THEN KA 1 ELSE KA
125. NEXT J 500 IF THEN K ELSE IF Ch E THEN K t ELSE K 2 510 ID JA 6 TX N 6 15 1 IV VARPTRCID 520 A USRC4 IF A ANDZ OF DATA DETECTED AND TRAIL ING ZEROS ARE ADDED 0 570 5 0 FOR J JA 1 POKE PEEK X Z2 K 8 J 1 5 560 IF IV 32767 THEN POKE 52768 PEEK X 2 K 8 J ELSE POKE 1 2 550 NX NX 1 IF NX NM THEN 579 ELSE XRCNX ID 16 56 0 NEXT J 0 GOTO 520 570 190 10 1 NA NN GOSUE 16000 FAST 580 2 1 FOR 1 TO NB XI J CXR J Z XICJYy Z Y Z NN NE XT J z XIC 1 XIt 1 Z XI NEB XI NB 2 590 IF RW THEN FOR J 1TUNBEXR J XT J INEXTJEGOTO 670 600 LM 1 LN LL 1 NE LT t LL 1 2 NE LE LT LM 1 E10 FOR 1 TD LT XRCK NEXT K E20 FOR 1 TH NB XRC CL 1 XTCK NEXT K amp K LM TO LE MMC1 XRCK FOR L TO LM EAD G MMCL CXRCK 1 XR K 1 NEXT L XICK NR S NEXT K ES FOR L z TO LM XTC 1 NB XT L TNB XT 1 TNB XTCLN TNEB XECLN 1 TNB XTCLN TNB NEXT L FOR k TO XRCK XT L K TNEB NEXT K 670 IF FP P THEN ELSE XRC1 SERCXRC1 TT XRCNB BERCX FOR K Z TO
126. NUMBER 2050 DY CPEEKCX 15 AND 15 1 17 AND 240 1 0 16 PEEK CX 17 AND 15 2 DAY OF THE YEAR 2060 HR PEEK X 18 AND 24 1 1 1 AND 151 HODUR 2070 HHN CPEEKCX 19 AND Z4 10 164 PEEKCX 19 AND 15927 MINUTE 2080 5 20 AND 240 gt 10 16 205 AND 15 2090 RETURN 171 daooani ooo o OOO ORO iii iOS OR OORIO 7000 7 SUBROUTINE DSPLBL DISPLAY LABEL INFORMATION 7010 ST PRINT RECORDER VL 2 RIGHT 7020 PRINT TRIGGER DY D HR H AN M SC S 7030 PRINT START OF RECORD IS TEN SECONDS EARLIER PRINT 7040 RETURN 57 akooo ok ko ok k 15000 SUBROUTINE SPLBL PLOT LABEL INFORMATION Hki 15010 LPRINT S E LPRINT M 2725 2425 LPRINT PSTATION ST 15020 LPRINT M 2725 2325 LPRINT PTRIG DY D HR H 15030 LPRINT M S 19 2225 LPRINT P AN M SC S 15040 _ 2725 2125 BC BC TX 1 15050 IF SPX THEN SC 5C 60 RN RN 1 15060 IF 5 60 THEN SC 8SC 60 RHN RN 1 GDTD150E0Q 15070 LPRINT 2 FROM LPRINT M 2725 2025 15080 SA INT SC 10 0 5 1 0 LLPRENTTPPTRNTMTSRTG 15090 LPRINT M 2723 1925 LPRINT PTO 15100 LPRINT M 2725 1825 GR GC TY 1 AM AN 15110 IF GR 60 THEN SA SA 6 AM AM i 15110 15120 SA 1i 0 0 5 1 6 15120 LPRINT M 2725
127. OR DIGITAL OR D D START TIME AFTER START TIME RECORD 10 12H 55 65 NS 1 EW Z UD 0 17 Bh 19 12 55 65 NS 2 EW 2 UD 2 TC 2Z BR 19 12 34M 55 65 NS Ew i UD i T 23 B 19 12 4M 55 75 NS 1 Ew UD 1 TC 25 19 12 4M 55 75 NS i Ew UD 2 z2 B 19 12 34 55 7 NS 1 EW 0 UD 2 7 1983 4 22 19 1 digit 200 4096 em s 3 1 3 END OF SEISMOGRAM READY 3 2 2 A 3 2 1 ANALOG OR DIGITAL A OR D A COMPONENT CN E U 1 N SELECT D R 7 12 D R 7 12
128. PRINT NDT READY 1 2 ELSE 7 1983 URN ok o k o k k ko o 2000 SUBROUTINE LABEL Hekk READ LABEL BLOCK 2010 X USR A USR E 5 USGRC amp 3 RC 0 7 RC RETURN CODE 2020 TFCPEEKCX O0 DR PEEK X 11y 2 THEN CMT IS NOT SEISMOGRAM PUT THE SEISMOGRAM IN UNIT 0 RC 1 RETURN z030 ST PEEK X 3 AND 15 i PEEKCX 4 AND 24 1 1 X 4 AND 153 17 STATION 2040 VLU PEEK X 7 AND 15 1 RECORDER UNIT NUMBER 2050 DY PEEK X 1E AND 1 1 PEEK CX 17 40 1 0 16 iPEEK CX 17 AND 195 DAY OF THE YEAR 2060 HR PEEKCX 18 AND 240 10 16 PEEK X 10 150 HDUR 2070 19 AND 240 10 16 PEEK X 19 AND 150 MINUTE 2060 SC PEEKC X 20 AND 2401 0 16 i PEEKCX 203 AND 157 2090 RETURN 7 o o oo h 2000 SUERDUTINE HEAD HEADING CMT 23010 TX INPUT TBTRRT TIME AFTER START TIME OF RECORD TX 7020 N TX 13 8 IF THEN RETURN ELSE IF 900 THEN 5010 FOR J 1 TD N USR dE NEXT RETURN 2 SUBRUUTENE READ READ NEXT BLOCK 4010 HUSRC4 IF A AND Z THEN DUT2 10 RC 1 RETURN 4020 FOR J T 31 FOR 3 4020 POKE VRRPTRCDRXCK J33
129. PRINT STRONG MOTION SEISMOGRAM PLOT SEISMOGRAM 20 7 CODED BY M TAKAHASHI SEE MRI TECH REP DEFINT 1 N DIM DAY CZ 319 XBC4 YBC4 DBCZ 3193 50 GOSUE 1000 INIT INITIALIZE 60 GOSUB 2000 1 LRBEL READ LABEL 70 IF RC OD GHTUSg 00 GOSUE 7000 DISPLAY LABEL INFORMATION 7 1983 90 PRINT NO X OR 9 k 100 PRINT 1 T N U 119 PRINT 2 T E 120 5 T U 13g 4 T 508 N 2 5 140 SQRC N 2 E 2 2 150 PRINT 5 E N 160 N CTHETA E U 170 N 180 NP 1 1 s NP 190 IF NP lt 1 OR THEN 180 ZO NO OUTPUT k k 210 z VELDCITY c THROUGH 220 PRTNT 1 1 DISPLACEMENT INTEGRATION 250 z ACCELERATION DIFFERENTIAL 240 PRIN k kok ok O 3 SO h 3 250 NU INPUT SELECT OUTPUT C 20 3NU THE DESIGN METHOD 260 IF NU lt 0 OR 2 THEN 250 OF DIGITAL FILTER 270 NO FILTER 2 16 BASED DN 260 PRINT 0 NO FILTER DIGITAL FILTERS 290 PRINT 1
130. R THE START TIME SEC j5 NUMBER OF DATA 900 FOURIER TRANSFORM NEEDS 1924 DATA 124 TRAILING ZEROS WILL BE ADDED D K CY DR N 7 1983 0 Y N N NUMBER OF SQQ FOURIER TRANSFORM NEEDS 1024 124 TRAILING ZEROS WILL BE ADDED D K Y DR N STOP TIME BECOMES 17 667 SEC g 5 17 0667 Y 7 2 6 CHECK ABOVE D K Y DR N Y 8 N 2 Y 8 FREQUENCY AXIS LINEAR N gt OR LOG G 3 G L LOWEST FREQUENCY HZ 2
131. T START TIME AFTER START TIME OF RECORD SEC STX N TX 15 8 IF THEN RETURN ELSE IF 900 THEN 5010 FUR J 1 N H USRCB NEXT RETURN 1 kkk GUBROUTINE READ READ NEXT BLOCK RC A USR 4 IF A AND 2 THEN OUTE 10 RC 1 RETURN FOR 0 TO 3i FOR TO 5 POKE VARPTRECDAACK J gt PEEK CX Z K 8 J 1 5 POKE VARPTRCDAACK J23 1 2 Jy DRZ K J 716 NEXT J sN N 1 RETURN 17ko GUBROUTINE DSPLBL ttk DISPLAY LABEL INFORMATION kkk VL C1 LEFT 2 RIGHT PRINT TRIGGER amp 9 5 PRINT START OF RECORD IS SECONDS EARLIER EPRTNT 7 1983 7840 RETURN EI k k k k k 11000 SUBRDUTINE PLTSMG PLOT SEISMDDRSM 11010 09 FOR TO 4 11020 IF NPA AND OR CNP S OR 4 AND J 2x NP Z J E THEN 11380 ELSE XG N TB 5 11030 IF 1 5 5 0 THEN RC 1 RETURN 11040 FOR TO 1 11050 IF NP 4 THEN 1127 2 amp TIME MARK mmm 11060 IF D THEN YY INT DRBRXZ Z K5 5 0 505 2
132. U 3 k N E U U 4 FOURIER SPECTRUM OR POWER SPECTRUM F OR P F COMPONENT N E DR D U START TIME AFTER THE TRIGGER TIME SEC 10 0 5 FOURIER SPECTRUM DR POWER SPECTRUM F DR P FE COMPONENT E OR U5 U START TIME AFTER THE TRIGGER TIME SEC 10 STOP TIME AFTER THE START TIME SEC 4 68 1 6 FEF 2 2 0 FOURIER SPECTRUM DR POWER SPECTRUM OR P F COMPONENT E DR U U m START TIME AFTER THE TRIGGER TIME SEC 10 STOP TIME AFTE
133. Vo V4 Vo 2 2 7 ZAR Hz 7 1983 IOO 180 90 90 0 0 0 1 1O IOO Freq Hz 2 2 17 2 2 7 1 6 20 Hz 7 1983 4 7 C2 118 2k Ri Ci Vi A I 2ook 4 2 218 7Y gt TER CJ 7 CRRA G 5 2 R Cs 2C2 0 98 65 5 1 1 2
Download Pdf Manuals
Related Search