DataMuseum.dk

algol<
Lab. f. anv. mat. fys.
S. Chr.
antal, iterationer
integration, eksakt
begin integer p,q,r;
_____ _______
select (8); writechar (42);
for p:=1 step 1 until 10 do
___      ____   _____    __
begin array S[1:p];
_____ _____
[end]
procedure H(Z,A); value Z; real Z; array A;
_________         _____    ____    _____
for q:=1 step 1 until p do A[q]:=Z∧(q-1);
___      ____   _____   __        |
r:=10;
Romberg special (H,p,0,1,110-6,r,S);
writecr;
write (|_-ddd|,p,r);
       <,    >
for q:=1 step 1 until p do
___      ____   _____   __
   begin writecr;
   _____
   write (|___-p.ddd_ddd_dd10-dd|,S[q],1/q)
          <,,,      ,   ,      >
   end q
   ___
end p
___
end
___
run<