78 lines
1.9 KiB
Mathematica
78 lines
1.9 KiB
Mathematica
|
function [F,h] = loadsdpafile(varargin)
|
||
|
|
%LOADSDPAFILE Loads a problem definition in the SDPA format
|
||
|
|
%
|
||
|
|
% [F,h] = loadsdpafile('filename') Loads the problem min(h(x)), F(x)>0 from file 'filename'
|
||
|
|
% [F,h] = loadsdpafile A "Open" - box will be opened
|
||
|
|
|
||
|
|
filename = varargin{1};
|
||
|
|
|
||
|
|
% Does the file exist
|
||
|
|
if ~exist(filename)
|
||
|
|
filename = [filename '.dat-s'];
|
||
|
|
if ~exist(filename)
|
||
|
|
error(['No such file.']);
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
% Load using SeDuMi
|
||
|
|
try
|
||
|
|
[At,b,c,K] = fromsdpa(filename);
|
||
|
|
fid = fopen(filename, 'r');
|
||
|
|
% Ugly code to find the integer data...
|
||
|
|
tline = fgetl(fid);
|
||
|
|
found = 0;
|
||
|
|
integers = [];
|
||
|
|
while ischar(tline) && ~found
|
||
|
|
if isequal(tline,'*INTEGERS*') || isequal(tline,'*INTEGER')
|
||
|
|
found = 1;
|
||
|
|
end
|
||
|
|
tline = fgetl(fid);
|
||
|
|
end
|
||
|
|
if found
|
||
|
|
while ischar(tline)
|
||
|
|
integers = [integers str2num(tline(2:end))];
|
||
|
|
tline = fgetl(fid);
|
||
|
|
end
|
||
|
|
end
|
||
|
|
fclose(fid);
|
||
|
|
catch
|
||
|
|
error('LOADSDPAFILE currently requires SeDuMi to be installed');
|
||
|
|
end
|
||
|
|
|
||
|
|
nvars = length(b);
|
||
|
|
x = sdpvar(nvars,1);
|
||
|
|
|
||
|
|
F = ([]);
|
||
|
|
if ~isempty(integers)
|
||
|
|
F = [F, integer(x(integers))];
|
||
|
|
end
|
||
|
|
top = 1;
|
||
|
|
if isfield(K,'l')
|
||
|
|
if K.l(1)>0
|
||
|
|
X = c(top:top+K.l-1)-At(top:top+K.l-1,:)*x;
|
||
|
|
F = F + (X(:)>=0);
|
||
|
|
top = top + K.l;
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
if isfield(K,'s')
|
||
|
|
if K.s(1)>0
|
||
|
|
for i = 1:length(K.s)
|
||
|
|
[ix,iy,iv] = find([c(top:top+K.s(i)^2-1) At(top:top+K.s(i)^2-1,:)]);
|
||
|
|
off = (ix-1)/(K.s(i)+1);
|
||
|
|
if all(off == round(off))
|
||
|
|
X = c(top:top+K.s(i)^2-1)-At(top:top+K.s(i)^2-1,:)*x;
|
||
|
|
F = F + (diag(reshape(X,K.s(i),K.s(i))) >= 0);
|
||
|
|
top = top + K.s(i)^2;
|
||
|
|
else
|
||
|
|
X = c(top:top+K.s(i)^2-1)-At(top:top+K.s(i)^2-1,:)*x;
|
||
|
|
F = F + (reshape(X,K.s(i),K.s(i)) >= 0);
|
||
|
|
top = top + K.s(i)^2;
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
h = -b'*x;
|
||
|
|
|