sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/sacdoc.ft

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