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

⟦d39b5a576⟧ TextFile

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

Derivation

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

TextFile

Neutralisationsvarme
begin
integer n,r,i;
real t,Kw,p,dH,G,dCp;
real array X,R(1:5),C,S(0:2);
G:=8.3144;
for i:=1 step 1 until 5 do
begin
Kw:=readr(<:p:>)*'-14;
R(i):=ln(Kw);
X(i):=1/(readr(<:t:>) +273.15);
end;
polfit(X,R,5,C,S,2);
for r:=0 step 1 until 2 do write (out,C(r));
for i:=1 step 1 until 5 do
begin
dH:=-(2*C(2)*X(i)+C(1))*G;
dCp:=2*C(2)*(X(i)**2)*G;
 write (out,"nl",1,<:dH=:>,dH, "sp" ,10,<:dCp=:>,dCp);
end;end
▶EOF◀