view core/tools/machine_learning/save_svmlight_inequalities.m @ 0:e9a9cd732c1e tip

first hg version after svn

function success = save_svmlight_inequalities(lhs, rhs, factors, file)
% success = save_svmlight_inequalities(lhs, rhs, file)
%
% saves the optimisation problem given by lhs and rhs to
% a svmlight data file. the individual equations can 
% be weighted using 
%
% success = save_svmlight_inequalities(lhs, rhs, factors, file)

if nargin == 3
    file = factors;
    factors = [];
end

% open file
fid = fopen(file, 'w+');
if fid < 1 
    success = 0;
    return;
end

try 
    % write individual constraint rows
    for i = 1:size(lhs,1)

        % ---
        % print rows:" rhs #fnum:#fval #fnum:#fval #fnum:#fval ..."
        % ---

        % print right hand side
        fprintf(fid,'%d ', rhs(i));

        % print cost factors if availablefactor
        if (numel(lhs{i,1}) > 0) && (numel(factors) >= i)

            fprintf(fid,'cost:%f ', factors(i));
        end

        % print left hand side
        for j = 1:numel(lhs{i,1})

            fprintf(fid,'%d:%2.16f ', lhs{i,1}(j), lhs{i,2}(j));
        end

        % finish line
        fprintf(fid,'\n');
    end  
catch
    success = 0;
    fclose(fid);
    return;
end
success = 1;
fclose(fid);