|
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: »tfloattest3«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tfloattest3«
begin <*progarm algol speed *>
integer no;
real cp1,cp2,cpu,time,pi,delta,v,fejl,sum;
write(out,"nl",1,<:no:>,"sp",11,<:sum:>,"sp",10,
<:fejl:>,"sp",11,<:cpu:>);
cp1:=systime(1,0,time);
delta:=pi:=arcsin(1);
for no:=1 step 1 until 20 do
begin
v:=sum := 0;
delta := 0.5*delta;
forx: v:=v+delta ;
if v >= pi then goto forxx;
sum:=sum+delta*sin(v);
goto forx;
forxx:
cp2:=systime(1,0,time);
cpu := cp2-cp1;
cp1 := cp2;
fejl := 1 - sum;
write(out,"nl",1,<<dd>,no,<<-dddd.dddddddd>,sum,fejl,
<<-ddddddddd.dddd>,cpu);
end;
end;
▶EOF◀