|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »gonimstark«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦1248b0c55⟧ »gobib«
└─⟦this⟧
;gosav time.300
r=edit gonimfreq23
g6/nimfreq/nimstark/
l./r8,r9/,r/;/,stl,st;/
l./freq:= 0;/,r/0;/st:= 0;/
l./psum:= 0;/,r/0;/stl:= 0;/
l./if k<Kmax/,i/
stl:= stl+k*y*y;
/,l-1,p1,l./J:= J2/,i?
if J<>0 then st:= st+stl*lev/((J+1)*J);
?,p,l1
l./dd>,freq/,r/ -d/-/,l1,d2,i?
<<dddd.dd>,B,LS,<: :>,<<-dd.dd>,hf(1),hf(2),hf(3));
if m0//3*3<>m0 then begin
j:= if J1<J2 then J1 else J2;
write(out,<<-dddd.dd>,st*1.5*1.7421*
(j+1)*(if J1=J2 then j/(2*j+1) else (j+2)/(4*j+5)));
end;
write(out,nl,1);
?,f
i r
▶EOF◀