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 |
---|