|
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: »atdiagram«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦f3ee86806⟧ »rymac«
└─⟦this⟧
;
del:=DE(sq);
end;
y2:=f(i);
int:=y2*y2*del;
overl:=overl-int;
r1m:=r1m-int/x;
if i>=ilimit then
begin
dr:=delr(x,i,dnorm,dr1m,false);
ilimit:=i+1;
end;
x:=x+del;
f(i):=0;
end adjust <1/r>;
rint:=renorm(f,DE,B,NE,q,r1m);
dr:=delr(rval(ilimit),ilimit,dnorm,dr1m,true);
if nukey then write(out,nl,1,<:after adjustment <1/r>e <1/r> :>,r1me,
(r1m+dr1m)/(1+dnorm),
<: cut :>,rval(i));
end r1mcriterion;
if autcut and l>0 and randr1mcrit and -,nsgl1 then begin
if nukey then write(out,nl,1,
<:************************** error adjust ***************************:>);
overl:=1; del:=DE(0); x:=del; i:=sq:=0;
up_lim:=NE(0);
newerror:=error:=abs((rint+dr)/(1+dnorm)-1.5/(r1m+dr1m)/(1+dnorm)+ll2);
c