Angharad has asked for the wisdom of the Perl Monks concerning the following question:
I'm trying to write some code to calculate the MoorePenrose Pseudoinverse Matrix of a matrix (strangely enough :) ).
B is the pseudoinverse of A if the following terms are true.
As someone relatively inexperienced, I am just asking if this is the best way to go about solving this task and if not, any suggestions as to how else I could tackle it would be much appreciated. I'm not necessarily asking for code by the way, just suggestions, but if you have a snippet or two, that would obviously be appreciated too.
Thanks in advance.
B is the pseudoinverse of A if the following terms are true.
I was wondering what the best way to tackle this might be. I'm familisising myself with PDL which is good because it allows me to transpose matrices very easily. I was thinking in terms of something like thisA.B.A = A B.A.B = B A(transposed) = A B(transposed) = B
The Inverseinv function would then do the tests to see if B does equal A as set up above.($flag) = Inverseinv(A) # A being a matrix if(Inversepinv == 1) { B = A # where B is the transpose of A }
As someone relatively inexperienced, I am just asking if this is the best way to go about solving this task and if not, any suggestions as to how else I could tackle it would be much appreciated. I'm not necessarily asking for code by the way, just suggestions, but if you have a snippet or two, that would obviously be appreciated too.
Thanks in advance.


Replies are listed 'Best First'.  

Re: MoorePenrose PseudoInverse Matrix
by chas (Priest) on Aug 01, 2005 at 20:11 UTC  
by Angharad (Pilgrim) on Aug 02, 2005 at 10:48 UTC 
Back to
Seekers of Perl Wisdom