DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦1dd81ecd0⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »tpolfittest«

Derivation

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

TextFile

begin
integer i,j,n,r;
n:=readi(<:n:>); r:=readi(<:degree:>);
begin
array X,Y,YY(1:n),C,S,CC,SS(0:r);
real a,b,c;
write(out,<:X,Y:>); outend(10);
for i:=1 step 1 until n do begin
   read(in,X(i),Y(i)); YY(i):=Y(i) end;
a:=polfit(n,1.0,X(n),Y(n),C,S,r);
b:=polfit1(X,YY,n,CC,SS,r);
write(out,<:<10>C(fit)    C(fit1)   S(fit)   S(fit1)<10>:>);
for i:=0 step 1 until r do
   write(out,<<  -d.dddddd'+dd>,C(i),CC(i),S(i),SS(i),nl,1);
write(out,<:spredning:>,<<   d.ddddddd'+dd>,a,b,nl,1);
write(out,nl,1,<:X       Y         DY:>,nl,1);
for i:=1 step 1 until n do
   write(out,<<   -d.dddddddd'+dd>,X(i),Y(i),YY(i),nl,1);
end end
▶EOF◀