23 lines
717 B
Mathematica
23 lines
717 B
Mathematica
|
function [lb,ub,A,b] = remove_bounds_from_Ab(A,b,lb,ub);
|
||
|
|
|
||
|
|
if size(A,1)>0
|
||
|
|
cand_rows_lp = find(sum(A~=0,2)==1);
|
||
|
|
if ~isempty(cand_rows_lp)
|
||
|
|
[ii,jj,kk] = find(A(cand_rows_lp,:));
|
||
|
|
s_pos = find(kk>0);
|
||
|
|
s_neg = find(kk<=0);
|
||
|
|
if ~isempty(s_pos)
|
||
|
|
for s = 1:length(s_pos)
|
||
|
|
ub(jj(s_pos(s)),1) = full(min(ub(jj(s_pos(s))),b(cand_rows_lp(ii(s_pos(s))))./kk(s_pos(s))));
|
||
|
|
end
|
||
|
|
end
|
||
|
|
if ~isempty(s_neg)
|
||
|
|
for s = 1:length(s_neg)
|
||
|
|
lb(jj(s_neg(s)),1) = full(max(lb(jj(s_neg(s))),b(cand_rows_lp(ii(s_neg(s))))./kk(s_neg(s))));
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
A(cand_rows_lp,:) = [];
|
||
|
|
b(cand_rows_lp,:) = [];
|
||
|
|
end
|