Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C\r |
2 | C FOLGENDE SUCHSCHRITTE\r\r | |
3 | C1. DO 20 I=STARTW,ENDW\r | |
4 | C BESTIMME SACCADEN ANFANGSZEITPUNKT UND DIE ART DER RASCHEN PHASE\r | |
5 | C IF DFIR(I) THEN TIME1:=I ; \ BEGINN DER RASCHEN PHASE \\r | |
6 | C \ RICHTUNG DER RASCHEN PHASE := IF FIR(I) < 0 THEN AUF PHASE ELSE AB PHASE \\r | |
7 | C ELSE DFIR(I) NICHT GEFUNDEN FEHLER #1 FI \r | |
8 | C\r | |
9 | C2. DO 33 I=TIME1,ENDW\r | |
10 | C SOLANGE DFIR(I) BESTIMME MAXIMUM VON FIR(I) : AMP1:=MAX(ABS(FIR)) ;\r | |
11 | C TIME2 := I AN DER STELLE AMP1 \ KORREKTUR DER ANFANGSZEIT SACBEG: \\r | |
12 | C \ AN DER STELLE DES MAXIMUMS NEHME DEN ANFANG DER R.P. AN \\r | |
13 | C IF I=ENDW FEHLER # 2 \ DA KEIN SACCADENENDE GEFUNDEN\\r | |
14 | C ELSE TIME3:= I FI\r | |
15 | C\r | |
16 | C3. DO 50 I=TIME3,TIME3+10\r | |
17 | C \ SUCHE IN DEN NAECHSTEN 10 MESSWERTEN DANN DFIR(I) \\r | |
18 | C IF I=TIME3+10 THEN TIME4:=1 ; FEHLER # 3 ELSE\r | |
19 | C TIME4:=I FI\r | |
20 | C\r | |
21 | C4. DO 60 I=TIME4,ENDW\r | |
22 | C \ SUCHE STELLE DES MAXIMUMS VON FIR(I) UND NEHME DORT ENDE DER R.P. AN \\r | |
23 | C TIME5:=SACEND:=I \ AND DER STELLE DES MAXIMUMS \\r | |
24 | C\r | |
25 | C5. AUSGABE AUF DRUCKER:\r | |
26 | C 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 |