DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »algflinda2«

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

TextFile

;kemlab5 1
gonewtext=set 50
gonewtext=edit algflinda
g15/flinda/flinda2/
l-2,r/160/162/
l./zone z2/,l2,d./end z2;/,i?
p:= 128//Na;  q:= NK//p+1;
comment p = number of columns/segment while
        q = number of segments;
begin array a(1:Na,1:p); integer pi; pi:= 0;
for k:=1 step 1 until q do begin
   n:= if k=q then NK mod p + 1 else p;
   setposition(z2,0,0);
   for i:=1 step 1 until Na do begin inrec(z2,NC);
   for j:=1 step 1 until  n do a(i,j):= z2(pi+j) end;
   pi:= pi+p;
   for j:=1 step 1 until  n do begin outrec(z,Na);
   for i:=1 step 1 until Na do z(i):= a(i,j) end;
end k;
close(z,true); close(z2,true);
end a end column storing;
?,l5,r/a(/b(/,r/,1:NC//,l1,i/
zone z2(128*2,2,stderror);
/,l11,i?
open(z2,4,<:atrack:>,0);
l:= 128//Na; setposition(z,0,NK//l);
inrec(z,(NK mod l)*Na); inrec(z,Na);
for i:=1 step 1 until Na do b(i):= z(i);
?,l./new/,l2,d1
l5,r/;/; inrec(z,Na);/,l2,r/a(i,j/z(i/,l3,
r/end /end; setposition(z,0,0) /,l./length/,i/
   inrec(z,Na); setposition(z2,0,0);
/,l2,r/a(i,j)/z(i)/,l4,i/
      swoprec(z2,Na);
/,l2,r/a(i,j)*a(i,k)/z(i)*z2(i)/
l2,g/a(i,j)/z(i)/,r/a(i,k)/z2(i)/,l2,i/
   swoprec(z2,Na);
/,l10,i/
      z2(i):= z(i);
/,g2/a(i,j)/z(i)/,r/a(i,NC)/b(i)/
l./close(z/,r/;/; close(z2,true);/,f
i gonewtext
▶EOF◀