Log Message:
-----------
HEAD backport: Fixed index problem with matrix multiplciation (dpvc)
Tags:
----
rel-2-1-patches
Modified Files:
--------------
pg/lib/Value:
Matrix.pm
Revision Data
-------------
Index: Matrix.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Matrix.pm,v
retrieving revision 1.12
retrieving revision 1.12.2.1
diff -Llib/Value/Matrix.pm -Llib/Value/Matrix.pm -u -r1.12 -r1.12.2.1
--- lib/Value/Matrix.pm
+++ lib/Value/Matrix.pm
@@ -233,9 +233,9 @@
#
my @l = $l->value; my @r = $r->value;
my @M = ();
- foreach my $j (0..$dr[1]-1) {
+ foreach my $i (0..$dl[0]-1) {
my @row = ();
- foreach my $i (0..$dl[0]-1) {
+ foreach my $j (0..$dr[1]-1) {
my $s = 0;
foreach my $k (0..$dl[1]-1) {$s += $l[$i]->[$k] * $r[$k]->[$j]}
push(@row,$s);
|
