DataMuseum.dk

top - metrics - download

    Length: 1472 (0x5c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »KONVERT«

└─⟦d110b5765⟧ Bits:30005308 Eksamensopgave i dynamiske systemer med FFT
    └─⟦this⟧ »KONVERT« 

Text

 
    SEGMENT PROCEDURE KONVERT(X,Y:VEKTOR;
                              VAR A,F:VEKTOR);
    (*  KONVERTERING AF REAL- OG IMAGINAERDEL X OG Y
        TIL AMPLITUDE OG FASE A OG F *)
    
    VAR RE,IM:REAL;
      BEGIN
      FOR I:=0 TO N1 DO
        BEGIN
        RE:=X(I);
        IM:=Y(I);
        IF ABS(RE)<=1E-10 THEN RE:=0.0;
        IF ABS(IM)<=1E-10 THEN IM:=0.0;
        A(I):=SQRT(RE*RE + IM*IM);
        IF RE>0 THEN
          BEGIN
          IF IM>=0 THEN F(I):= ARCTAN(IM/RE)
            ELSE F(I):=ARCTAN(IM/RE) + TOPI;
          END
        ELSE
          BEGIN
          IF RE=0 THEN
            BEGIN
            IF IM=0 THEN F(I):=0
              ELSE
                BEGIN
                IF IM>0 THEN F(I):=PIHALV  ELSE  F(I):=PI+PIHALV;
                END
            END
          ELSE F(I):= ARCTAN(IM/RE) + PI;
          END;
        END;
       END;