[37] | 1 | function [lb,ub,cand_rows] = findulb(F_struc,K) |
---|
| 2 | %FINDULB Internal function to extract upper and lower variable bounds |
---|
| 3 | |
---|
| 4 | % Author Johan Löfberg |
---|
| 5 | % $Id: findulb.m,v 1.4 2006/09/08 08:40:55 joloef Exp $ |
---|
| 6 | |
---|
| 7 | n = size(F_struc,2)-1; |
---|
| 8 | lb = -inf*ones(n,1); |
---|
| 9 | ub = inf*ones(n,1); |
---|
| 10 | cand_rows = []; |
---|
| 11 | |
---|
| 12 | if (K.f ~=0) |
---|
| 13 | A = -F_struc(1:K.f,2:end); |
---|
| 14 | b = F_struc(1:K.f,1); |
---|
| 15 | n = size(F_struc,2)-1; |
---|
| 16 | cand_rows = find(sum(A~=0,2)==1); |
---|
| 17 | for i = 1:length(cand_rows) |
---|
| 18 | j = find(A(cand_rows(i),:)); |
---|
| 19 | ub(j)=min(ub(j),b(cand_rows(i))/A(cand_rows(i),j)); |
---|
| 20 | lb(j)=max(lb(j),b(cand_rows(i))/A(cand_rows(i),j)); |
---|
| 21 | end |
---|
| 22 | end |
---|
| 23 | |
---|
| 24 | if (K.l ~=0) |
---|
| 25 | A = -F_struc(K.f+1:K.f+K.l,2:end); |
---|
| 26 | b = F_struc(K.f+1:K.f+K.l,1); |
---|
| 27 | n = size(F_struc,2)-1; |
---|
| 28 | cand_rows = find(sum(A~=0,2)==1); |
---|
| 29 | for i = 1:length(cand_rows) |
---|
| 30 | j = find(A(cand_rows(i),:)); |
---|
| 31 | if A(cand_rows(i),j)>0 |
---|
| 32 | ub(j)=min(ub(j),b(cand_rows(i))/A(cand_rows(i),j)); |
---|
| 33 | else |
---|
| 34 | lb(j)=max(lb(j),b(cand_rows(i))/A(cand_rows(i),j)); |
---|
| 35 | end |
---|
| 36 | end |
---|
| 37 | end |
---|