DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »øv3f1«

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

TextFile

opløselighed med ionstyrke
begin
  real L,s,s1,I,lnL,f;
  integer ip,in,lp,ln;
  L:=readr(<:opl.produkt>);
OM:
  lp:=readi(<:positiv ions ladning:>);
  ln:=readi(<:negativ  -      -:>);
  if ln<0 then ln:=-ln;
  if lp<=0 or ln=0 then
  begin
    write1(out,<:illegal ladning:>);
    goto OM
  end;
  if ln mod lp:=0 then
  begin
    in:=1; ip:=ln//1p 
  end
  else
  if lp mod ln=0 then
  begin
    ip:=1; in:=lp//ln
  end;
  else
  begin
  ip:=ln; in:=lp;
  write1(out,<:sammensætning:  P:>,ip,<:  N:>,in,'nl',1);
  lnL:=ln(L/ip**ip/in**in)/(ip+in);
  f:=.509*ln10*(ip*lp*lp+in*ln*ln)/(ip+in);
  s:-0;
L:
  I:=.5*(lp**2*ip+ln**2*in)*s,
  s1:=exp(lnL+f*sqrt(I));
  if abs(s-s1)>.001*s then
  begin
    s:=s1;
    goto L
  end
  write1(out,<:opløselighed:>,s,<: mol/l:>)
end
▶EOF◀