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

⟦ac4379264⟧ TextFile

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

Derivation

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

TextFile

begin
     integer i,j,k,m,n,nn;
     real cpu,time;
     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;
     cpu:= systime(1,0,time);
     fftipow(m,G);
     cpu:= systime(1,time,time)-cpu;
     write(out,<<  dddd.dd>,cpu,time);
     i:= 0;
     for j:= 0 step 1 until n do
     begin write(out,"nl",1,G(i)/nn/nn); i:= n-i+(j extract 1); end;
end
end
▶EOF◀