This is an automated email from the git hooks/post-receive script.
dkogan-guest pushed a commit to branch realupstream
in repository libpdl-linearalgebra-perl.
commit 25b39915833e32e843e4dea49a82179e8bb98313
Author: Chris Marshall <devel.chm...@gmail.com>
Date: Sun Mar 2 14:35:24 2014 -0500
Add mpascal patch from RT ticket #38167
This gives the same result for the symmetric matrix as the
MATLAB routine documentation. We don't appear to give the
same results for upper/lower triangular forms. TODO?
---
Special/Special.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Special/Special.pm b/Special/Special.pm
index df69a71..88d4828 100644
--- a/Special/Special.pm
+++ b/Special/Special.pm
@@ -316,7 +316,7 @@ sub PDL::mpascal {
require PDL::GSLSF::GAMMA;
if ($n > 1){
$mat = xvals($m);
- return PDL::GSLSF::GAMMA::gsl_sf_choose($mat +
$mat->dummy(0),$mat);
+ return (PDL::GSLSF::GAMMA::gsl_sf_choose($mat +
$mat->dummy(0),$mat))[0];
}else{
$mat = xvals($m, $m);
return
(PDL::GSLSF::GAMMA::gsl_sf_choose($mat->tritosym,$mat->xchg(0,1)->tritosym))[0]->mtri($n);
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libpdl-linearalgebra-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
