DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

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

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦31390bb88⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »ffta1txt«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »ffta1txt«

TextFile

begin
     integer i,j,k,m,n,nn;
     integer field jf;
     m:= readi(<:m:>);
     n:= 1 shift (m-1); nn:= 1 shift m;
begin
     real array G(0:n);
     k:= readi(<:k:>);
     for jf:= 0 step 2 until 2*nn-2 do G.jf:= 0;
     jf:= 2*k;
     G.jf:= 1024;
     fftipowa(m,G);
     i:= 0;
     for j:= 0 step 1 until n do
     begin write(out,nl,1,G(i)); i:= n-i+(j extract 1); end;
end
end
▶EOF◀