Daniel@0: function Xi = lossHingeMKLFull(W, Psi, M, gradient)
Daniel@0: %
Daniel@0: %   Xi = lossHingeMKLFull(W, Psi, M, gradient)
Daniel@0: %   
Daniel@0: %   W:          d*d*m metric
Daniel@0: %   Psi:        d*d*m feature matrix
Daniel@0: %   M:          the desired margin
Daniel@0: %   gradient:   if 0, returns the loss value
Daniel@0: %               if 1, returns the gradient of the loss WRT W
Daniel@0:     
Daniel@0:     m = size(W, 3);
Daniel@0: 
Daniel@0:     Xi = M;
Daniel@0:     for i = 1:m
Daniel@0:         Xi = Xi -  sum(sum(W(:,:,i) .* Psi(:,:,i)));
Daniel@0:     end
Daniel@0:     Xi = max(0, Xi);
Daniel@0: 
Daniel@0:     if gradient & Xi > 0
Daniel@0:         Xi = -Psi;
Daniel@0:     end
Daniel@0: end