|
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: 1536 (0x600)
Types: TextFile
Names: »ffag3txt«, »pgsw1«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »ffag3txt«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »ffag3txt«
└─⟦this⟧ »pgsw1«
begin
integer i,n,k;
real x,y;
integer array I(1:90);
real array P,R(1:3),X(1:90);
read(in,P);
connectcuri(<:ffagfile:>);
read(in,n);
k:= 0;
while n>=0 do
begin
k:= k+1;
for i:= 1 step 1 until 7 do read(in,x);
x:= 0; read(in,R);
for i:= 1,2,3 do R(i):= R(i)/100*n;
for i:= 1,2,3 do x:= x+R(i)*P(i);
x:= x/n; X(k):= x; I(k):= k;
write(out,"nl",1,<<ddd>,n,"sp",4,<<dd.d>,100*x);
y:= 0;
for i:= 1,2,3 do y:= y+R(i)*(P(i)-x)**2;
write(out,<:+-:>,<<dd>,100*sqrt(y/(n-1)));
write(out,<: :>,<<dd.d>,100*sqrt(y/n/(n-1)));
read(in,n);
end;
order(1,k,I,X);
for i:= 1 step 1 until k do
write(out,"nl",1,<<ddd>,I(i),"sp",3,<<dd.d>,100*X(i));
for i:= 1 step 1 until k do
begin X(i):= I(i); I(i):= k+1-i; end;
order(1,k,I,X);
for i:= 1 step 1 until k do
write(out,"nl",1,<< ddd>,i,I(i));
end
▶EOF◀