A large commit.
[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / sacdoc.ft
... / ...
CommitLineData
1C\r
2C FOLGENDE SUCHSCHRITTE\r\r
3C1. DO 20 I=STARTW,ENDW\r
4C BESTIMME SACCADEN ANFANGSZEITPUNKT UND DIE ART DER RASCHEN PHASE\r
5C IF DFIR(I) THEN TIME1:=I ; \ BEGINN DER RASCHEN PHASE \\r
6C \ RICHTUNG DER RASCHEN PHASE := IF FIR(I) < 0 THEN AUF PHASE ELSE AB PHASE \\r
7C ELSE DFIR(I) NICHT GEFUNDEN FEHLER #1 FI \r
8C\r
9C2. DO 33 I=TIME1,ENDW\r
10C SOLANGE DFIR(I) BESTIMME MAXIMUM VON FIR(I) : AMP1:=MAX(ABS(FIR)) ;\r
11C TIME2 := I AN DER STELLE AMP1 \ KORREKTUR DER ANFANGSZEIT SACBEG: \\r
12C \ AN DER STELLE DES MAXIMUMS NEHME DEN ANFANG DER R.P. AN \\r
13C IF I=ENDW FEHLER # 2 \ DA KEIN SACCADENENDE GEFUNDEN\\r
14C ELSE TIME3:= I FI\r
15C\r
16C3. DO 50 I=TIME3,TIME3+10\r
17C \ SUCHE IN DEN NAECHSTEN 10 MESSWERTEN DANN DFIR(I) \\r
18C IF I=TIME3+10 THEN TIME4:=1 ; FEHLER # 3 ELSE\r
19C TIME4:=I FI\r
20C\r
21C4. DO 60 I=TIME4,ENDW\r
22C \ SUCHE STELLE DES MAXIMUMS VON FIR(I) UND NEHME DORT ENDE DER R.P. AN \\r
23C TIME5:=SACEND:=I \ AND DER STELLE DES MAXIMUMS \\r
24C\r
25C5. AUSGABE AUF DRUCKER:\r
26C SACBEG, SACEND-SACBEG, -Y(SACBEG)+Y(SACEND),CH2(SACBEG)\r
27\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0