|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen GIER Computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen GIER Computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 646 (0x286) Description: Bits:30000637 Test af Romberg special 14/8 - 70 (1310) Types: 8-hole paper tape Notes: Gier Text, Has10
algol< Lab. f. anv. mat. fys. S. Chr. antal, iterationer integration, eksaktbegin integer p,q,r; _____ _______select (8); writechar (42);for p:=1 step 1 until 10 do ___ ____ _____ __begin array S[1:p]; _____ _____[ e n d ] 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<