view toolboxes/distance_learning/mlr/regularize/regularizeMKLDiag.m @ 0:cc4b1211e677 tip

initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"

function r = regularizeMKLDiag(W, X, gradient)
%
% r = regularizeMKL(W, X, gradient)
%
%

    [d,n,m] = size(X);

    if gradient
        r = zeros(d,m);
        for i = 1:m
            r(:,i) = diag(X(:,:,i));
        end
    else
        r = 0;
        for i = 1:m
            r = r + W(:,i)' * diag(X(:,:,i));
        end
    end
end