35 lines
1.1 KiB
Mathematica
35 lines
1.1 KiB
Mathematica
|
%%*****************************************************************
|
||
|
|
%% convertRcone: convert rotated cone to socp cone
|
||
|
|
%%
|
||
|
|
%% [blk,At,C,b,T] = convertRcone(blk,At,C,b);
|
||
|
|
%%*****************************************************************
|
||
|
|
%% SDPT3: version 4.0
|
||
|
|
%% Copyright (c) 1997 by
|
||
|
|
%% K.C. Toh, M.J. Todd, R.H. Tutuncu
|
||
|
|
%% Last Modified: 16 Sep 2004
|
||
|
|
%%*****************************************************************
|
||
|
|
|
||
|
|
|
||
|
|
function [blk,At,C,b,T] = convertRcone(blk,At,C,b);
|
||
|
|
|
||
|
|
T = cell(size(blk,1),1);
|
||
|
|
for p = 1:size(blk,1)
|
||
|
|
pblk = blk(p,:);
|
||
|
|
if strcmp(pblk{1},'r')
|
||
|
|
if (min(pblk{2}) < 3)
|
||
|
|
error('rotated cones must be at least 3-dimensional');
|
||
|
|
end
|
||
|
|
n = sum(pblk{2}); len = length(pblk{2});
|
||
|
|
ss = [0,cumsum(pblk{2})];
|
||
|
|
idx = 1+ss(1:len)';
|
||
|
|
ir2 = 1/sqrt(2)*ones(len,1);
|
||
|
|
dd = [idx,idx,ir2-1; idx,idx+1,ir2;
|
||
|
|
idx+1,idx,ir2; idx+1,idx+1,-ir2-1];
|
||
|
|
T{p} = speye(n,n) + spconvert([dd; n,n,0]);
|
||
|
|
blk{p,1} = 'q';
|
||
|
|
At{p,1} = T{p}*At{p,1};
|
||
|
|
C{p,1} = T{p}*C{p,1};
|
||
|
|
end
|
||
|
|
end
|
||
|
|
%%***************************************************************
|