Post Reply 
Help: Port prg to Home Mode( Minor linear_algebra)
02-02-2014, 11:43 PM (This post was last modified: 02-10-2014 02:09 PM by compsystems.)
Post: #1
Help: Port prg to Home Mode( Minor linear_algebra)
http://en.wikipedia.org/wiki/Minor_(linear_algebra)

ENTRY LINE EDITON Sad
Code:
minor_CAS0(m1):=
begin  
  return(seq(seq(det(delRow(delCol(m1,j),I)),j,1,colDim(m1)),I,1,rowDim(m1)))​​;  
end;
[enter]

then

minor_CAS0([[1,2,3],[4,5,6],[7,8,9]]); [enter] returns
[[-3,-6,-3],
[-6,-12,-6],
[-3,-6,-3]] OK Smile


//////

but HOME MODE

PRG EDITOR
Code:
EXPORT minor_HOME0(m1)
begin
  local out;
  local j:="jj", ii:="ii"; // trick =(
  out := seq(seq(det(delRow(delCol(m1,j),ii)),j,1,colDim(m1)),ii,1,rowDim(m1));
  return(out);
end;

minorHOME([[1,2,3],[4,5,6],[7,8,9]]); [enter] returns "Error: Bad Argument Type" ????
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Help: Port prg to Home Mode( Minor linear_algebra) - compsystems - 02-02-2014 11:43 PM



User(s) browsing this thread: 1 Guest(s)