function [d] = ScaleIndependentDistance(A,V)
    d = 0;
    V_prime = inv(V);
    aux = zeros(1,length(A));
    aux2 = 0;
    for i=1:length(A)
        for j=1:length(V)
            aux2 = aux2 + A(j)*V_prime(j,i);
        end
        aux(i)=aux2;
    end
 
    for k=1:length(A)
        d = d + aux(k)*A(k);
    end
end