DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦e22797aec⟧ TextFile

    Length: 1472 (0x5c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »KONVERT.K«

Derivation

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

Mikados K File

 
    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;

Mikados K File

0x000…003 Line {l1=0x01, l2=» «, l3=0x01}
0x003…02e Line {l1=0x29, l2=»    SEGMENT PROCEDURE KONVERT(X,Y:VEKTOR;«, l3=0x29}
0x02e…05e Line {l1=0x2e, l2=»                              VAR A,F:VEKTOR);«, l3=0x2e}
0x05e…094 Line {l1=0x34, l2=»    (*  KONVERTERING AF REAL- OG IMAGINAERDEL X OG Y«, l3=0x34}
0x094…0bd Line {l1=0x27, l2=»        TIL AMPLITUDE OG FASE A OG F *)«, l3=0x27}
0x0bd…0c3 Line {l1=0x04, l2=»    «, l3=0x04}
0x0c3…0d8 Line {l1=0x13, l2=»    VAR RE,IM:REAL;«, l3=0x13}
0x0d8…0e5 Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x0e5…0fe Line {l1=0x17, l2=»      FOR I:=0 TO N1 DO«, l3=0x17}
0x0fe…10d Line {l1=0x0d, l2=»        BEGIN«, l3=0x0d}
0x10d…120 Line {l1=0x11, l2=»        RE:=X(I);«, l3=0x11}
0x120…133 Line {l1=0x11, l2=»        IM:=Y(I);«, l3=0x11}
0x133…15c Line {l1=0x27, l2=»        IF ABS(RE)<=1E-10 THEN RE:=0.0;«, l3=0x27}
0x15c…185 Line {l1=0x27, l2=»        IF ABS(IM)<=1E-10 THEN IM:=0.0;«, l3=0x27}
0x185…1a9 Line {l1=0x22, l2=»        A(I):=SQRT(RE*RE + IM*IM);«, l3=0x22}
0x1a9…1bf Line {l1=0x14, l2=»        IF RE>0 THEN«, l3=0x14}
0x1bf…1d0 Line {l1=0x0f, l2=»          BEGIN«, l3=0x0f}
0x1d0…1fe Line {l1=0x2c, l2=»          IF IM>=0 THEN F(I):= ARCTAN(IM/RE)«, l3=0x2c}
0x1fe…22c Line {l1=0x2c, l2=»            ELSE F(I):=ARCTAN(IM/RE) + TOPI;«, l3=0x2c}
0x22c…23b Line {l1=0x0d, l2=»          END«, l3=0x0d}
0x23b…249 Line {l1=0x0c, l2=»        ELSE«, l3=0x0c}
0x249…25a Line {l1=0x0f, l2=»          BEGIN«, l3=0x0f}
0x25a…272 Line {l1=0x16, l2=»          IF RE=0 THEN«, l3=0x16}
0x272…285 Line {l1=0x11, l2=»            BEGIN«, l3=0x11}
0x285…2a7 Line {l1=0x20, l2=»            IF IM=0 THEN F(I):=0«, l3=0x20}
0x2a7…2bb Line {l1=0x12, l2=»              ELSE«, l3=0x12}
0x2bb…2d2 Line {l1=0x15, l2=»                BEGIN«, l3=0x15}
0x2d2…315 Line {l1=0x41, l2=»                IF IM>0 THEN F(I):=PIHALV  ELSE  F(I):=PI+PIHALV;«, l3=0x41}
0x315…32a Line {l1=0x13, l2=»                END«, l3=0x13}
0x32a…33b Line {l1=0x0f, l2=»            END«, l3=0x0f}
0x33b…366 Line {l1=0x29, l2=»          ELSE F(I):= ARCTAN(IM/RE) + PI;«, l3=0x29}
0x366…376 Line {l1=0x0e, l2=»          END;«, l3=0x0e}
0x376…384 Line {l1=0x0c, l2=»        END;«, l3=0x0c}
0x384…391 Line {l1=0x0b, l2=»       END;«, l3=0x0b}
0x391…3a0 00 00 45 47 49 4e 0d 11 20 20 20 20 20 20 20                                                      ┆  EGIN         ┆
0x3a0…3c0 20 52 45 3a 3d 58 28 49 29 3b 11 11 20 20 20 20 20 20 20 20 49 4d 3a 3d 59 28 49 29 3b 11 27 20   ┆ RE:=X(I);          IM:=Y(I); ' ┆
0x3c0…3e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
          […0xe…]
0x5a0…5c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20   ┆                                ┆

Reduced view