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

⟦5a6b5b94b⟧ TextFile

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

Derivation

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »compress«

TextFile

kompressibiliteten for gasser
begin
integer n,r,t,i,pv,s;
t:=readr(<:temp:>);
n:=readr(<:antal tryk:>);
r:=readr(<:polynomiets grad:>);
s:=readr(<:øvre grænse for tryk:>);
begin
array p(1:n),pV(1:n),C(0:r),S(0:r);
read(in,p,pV);
polfit1(p,pV,n,C,S,r);
write(out,<:Ci:>,C(0),C(1),C(2),C(3),
<:temp:>,t);
for i:=100 step 10 until s do
begin
pv:=C(0)+i*(C(1)+i*(C(2)+C(3)*i));
write(out,<:tryk:>,i,<:pV:>,pv
);
end;
end;
end;
▶EOF◀