On Fri, Jul 08, 2022 at 05:53:19PM +0000, Ed . wrote: > Hi Luis, > > Glad to hear that more substantial speedups are possible with matrix > multiplication! What results are you seeing?
Here are some examples for 2x2, 4x4 and 8x8 matrix multiplications: 2x2: mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(2,2,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 0 Time: 0.080798864364624 Threads: 0 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(2,2,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 2 Time: 0.0626440048217773 Threads: 2 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(2,2,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 4 Time: 0.0534470081329346 Threads: 4 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(2,2,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 8 Time: 0.041100025177002 Threads: 8 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(2,2,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' Time: 0.0347418785095215 Threads: 48 4x4: mochan@tlahuilli:~$ mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(4,4,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 0 Time: 0.250298976898193 Threads: 0 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(4,4,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 2 Time: 0.169501066207886 Threads: 2 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(4,4,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 4 Time: 0.126749038696289 Threads: 4 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(4,4,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 8 Time: 0.113579988479614 Threads: 8 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(4,4,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' Time: 0.132315874099731 Threads: 48 8x8: mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(8,8,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 0 Time: 1.30779314041138 Threads: 0 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(8,8,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 2 Time: 0.862032890319824 Threads: 2 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(8,8,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 4 Time: 0.621423959732056 Threads: 4 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(8,8,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' 8 Time: 0.449688911437988 Threads: 8 mochan@tlahuilli:~$ perl -MTime::HiRes=time -MPDL -E 'set_autopthread_targ(shift) if @ARGV; $x = random(8,8,500,5000); $t=time; $z=$x x $x; say "Time: ",time-$t; say "Threads: ", get_autopthread_actual();' Time: 0.44658899307251 Threads: 48 Regards, Luis -- o W. Luis Mochán, | tel:(52)(777)329-1734 /<(*) Instituto de Ciencias Físicas, UNAM | fax:(52)(777)317-5388 `>/ /\ Av. Universidad s/n CP 62210 | (*)/\/ \ Cuernavaca, Morelos, México | moc...@fis.unam.mx /\_/\__/ GPG: 791EB9EB, C949 3F81 6D9B 1191 9A16 C2DF 5F0A C52B 791E B9EB _______________________________________________ pdl-general mailing list pdl-general@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/pdl-general