%BENTLER         Calcula el indice de complejidad de Bentler
%               A   ->  Factor soultion
function [s] = bentler (A);

       C = A.*A;

       D =  sqrt(diag(diag(C'*C)));
       
       S = D^(-1) * C' * C * D^(-1);
     
       s = det(S);
