|
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: »bitxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »bitxt«
pH ved bisection
begin
real COH, KW, S, x;
integer i,j,n;
boolean SV;
n:= readi(<: antal syre/base-par :>);
begin
array C,K(1:n);
write(out,<:indlæs pK-værdierne og koncentrationerne i par:>);
outendcur('nl');
for i := 1 step 1 until n do read (in,K(i),C(i));
for i := 1 step 1 until n do K(i) := 10**(-K(i));
KW:='-14;
NEW:
COH:=readr(<:koncentration af stærk base tilsat:>);
begin
real procedure F(x);
value x;
real x;
begin
S:= x - KW/x + COH;
for j := 1 step 1 until n do S:= S - K(j)*C(j)/(K(j) + x);
F:=S;
end F(x);
bisec(F(x),x,1,'-14,'-15);
write (out,"nl",1,<: pH-værdien bliver = :>, -ln(x)/ln10);
SV:=readb(<: Kørsler med andre base-koncentrationer (ja/nej) :>);
if SV then goto NEW else
end
end
end
▶EOF◀