Maybe you want a function something like
(%i77) m : matrix([1,2,3],[4,5,6])$
(%i81) f(m,v) := args(map(lambda([s], rest(s,-1) . v > last(s)),m))$
(%i82) f(m,[x,y]);
(%o82) [2*y+x>3,5*y+4*x>6]
If I had a augmented matrix:
M : [ 2 3 | 4 ]
[ 0 1 | 2 ]
A useful function might be augmatrix_to_linear(M, [a, b], ">"), which would give:
[2*a + 3*b > 4, 1*a > 2]
Thanks
Maybe you want a function something like
(%i77) m : matrix([1,2,3],[4,5,6])$
(%i81) f(m,v) := args(map(lambda([s], rest(s,-1) . v > last(s)),m))$
(%i82) f(m,[x,y]);
(%o82) [2*y+x>3,5*y+4*x>6]
Log in to post a comment.