DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »hrtext« 

TextFile

beregning af partialtryk
dette er den endelige version
begin
integer i;
real pwr,pw,pwt;
real array xa(1:7),pa(1:7),epw(1:7);
pwt:=0.0;
pwr:=readr(<:partialtryk rent vand:>);
epw(1):=pwr;
epw(2):=0.967*pwr;
epw(7):=0.000;
for i:=1 step 1 until 7 do begin
xa(i):=readr(<:molbrøk acetone:>);
pa(i):=readr(<:partialtryk acetone:>);
end indlæsning;
pwt:=ln(0.967);
for i:=2 step 1 until 5 do begin
pw:=-(xa(i+1)/(1-xa(i+1))/pa(i+1)+xa(i)/(1-xa(i))/pa(i))/2*(pa(i+1)-pa(i));
pwt:=pw  + pwt;
epw(i+1):=exp(pwt)*pwr;
end;
for i:=1 step 1 until 7 do 
write1(out,"nl",1,<:xa=:>,xa(i),<:pa(xa)=:>,epw(i));
end;
▶EOF◀