|
SpinsPerSecond := rec();
SpinInners := MakeImmutable(rec(
smallint := function(loops)
local i, x;
x := 0;
for i in [1..loops] do
x := (x + i) mod 2^26;
od;
end,
largeint := function(loops)
local x, i;
x := 2^100;
for i in [1..loops] do
x := x + i;
od;
end,
listNoAlloc := function(loops)
local x, i;
x := [1,3,2];
for i in [1..loops] do
x[i mod 3 + 1] := (x[ (i +2) mod 3 + 1] + i) mod 2^26;
od;
end,
listAllocating := function(loops)
local x, i;
x := [1,3,2];
for i in [1..loops] do
x := ShallowCopy(x) * i mod 2^26;
od;
end));
Spin := function(which, microseconds)
SpinInners.(which)(QuoInt(microseconds*SpinsPerSecond.(which),1000000));
return true;
end;
for n in NamesOfComponents(SpinInners) do
ct := 1;
repeat
t := Runtime();
SpinInners.(n)(ct);
ct := ct*5;
t := Runtime()-t;
until t > 1000;
SpinsPerSecond.(n) := QuoInt(200*ct,t);
od;
MakeImmutable(SpinsPerSecond);
TimeDiff := function(t,t2)
return (t2-t)*1.E-9;
end;
TestParList := function(parListFun,ntasks, nworkers, spintype, taskLenFun)
local lens, t, tr;
lens := List([1..ntasks],taskLenFun);
t := Runtime();
tr := NanosecondsSinceEpoch();
parListFun(lens, t->Spin(spintype,t), nworkers);
return [Runtime()-t,Int(1000*TimeDiff(NanosecondsSinceEpoch(),tr))];
end;
[ Dauer der Verarbeitung: 0.7 Sekunden
(vorverarbeitet)
]
|
