|
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: »fidotxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »fidotxt«
partialtryk af vand i acetone - vandblanding
begin
real int,fb,fa,Pw1;
integer i;
Pw1:=readr(<:vands damptryk:>);
begin
real array Pw, P, x (1:7);
write (out,"nl",1,<:molbrøk af acetone, partialtryk af acetone<nl>:>);
int:=Pw(7):=0;
outendcur('nl');
for i:=1 step 1 until 7 do read(in,x(i),P(i));
fb:=x(2)/P(2);
for i:=2 step 1 until 6 do
begin
fa:=fb;
fb:=x(i)/(1-x(i))/P(i);
int:=(fa+fb)/2*(P(i)-P(i-1))+ int;
Pw(i):= Pw1 * exp (-int)
end;
write (out,<:vands partialtryk:>);
for i:=2 step 1 until 7 do
write (out, Pw(i),"nl",1);
end
end
a▶EOF◀