function V=volumesimplexe2(X)

D=size(X);
dimesp=D(2);
dimsimp=D(1);

XX=zeros(dimsimp-1,dimesp);
for i=1:dimsimp-1
    XX(i,:)=X(i+1,:)-X(1,:);
end


Gram=XX*XX';
DG=size(Gram);
dimsimp=DG(1)+1;

V=sqrt(abs(det(Gram)))/gamma(dimsimp);    
