|
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: »etxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »etxt«
Euler
begin
real dx,x,y,l,xo,yo;
integer i,n,j,r;
dx:=readr (<:trinstørrelse dx:>);
xo:=readr (<:startværdi xo:>);
yo:=readr(<:yo:>);
l:= readr(<:interesseintervals længde:>);
r:=readi(<:grad af approx polynomium:>);
n:=abs(round(l/dx));
begin
array X,Y(1:n+1), C,S(0:r);
x:=xo;
y:=yo; for i:=2 step 1 until n+1 do
begin
y:= y+f(x,y)*dx;
x:= x+dx;
write(out, x, y,"nl",1) ;
X(i):=x; Y(i):=y;
X(1):=xo; Y(1):=yo;
end;
polfit(X,Y,n,C,S,r);
for j:=0 step 1 until r do write(out, j, C(j),"nl",1);
end; end;
▶EOF◀