|
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: »dettxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »dettxt«
begin
integer n;
n:= readi(<:n:>);
begin
integer i,j,m;
real l,lmin,dl,lmax,fac;
real array L,S,A(0:n,0:n);
for j:= 0 step 1 until n do
for i:= 0 step 1 until n do
begin m:= i+j+1; fac:= m;
for m:= m-1 while m>1 do fac:= fac*m;
L(i,j):= fac*(n+m+4)*m*n/(m+2)/(n+2);
S(i,j):= fac;
end;
readr(<:lmin:>);
lmax:= readr(<:lmax:>);
dl:= readr(<:dl:>);
for l:= lmin step dl until lmax do
begin
for j:= 0 step 1 until n do
for i:= 0 step 1 until n do
A(i,j):= L(i,j)-l*S(i,j);
write(out,"nl",1,<< -d.dddd'-dd>,l,detgauss(n,0,A,lend));
end;
lend:
end
end
▶EOF◀