projects / pdp8.git / blame
| 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 |