<<DiscreteMath`Combinatorica`

OutputFile = "/home/asuka0/fumi/tri/Nonregular.output";

\(<< "/home/asuka0/fumi/tri/mis.m"; 
    
<< "/home/asuka0/fumi/tri/generalpoints.m"; \)

ClearAll[vertex,NumberOfVertices];
vertex[1]={ 0, 0};
vertex[2]={ 4, 0};
vertex[3]={ 0, 4};
vertex[4]={ 1, 1};
vertex[5]={ 2, 1};
vertex[6]={ 1, 2};
NumberOfVertices=6;

enumerateSimplices;

ClearAll[wholeVolume];
wholeVolume = 6;

Timing[enumerate]

?? simplex

?? simplexVolume

!! "/home/asuka0/fumi/tri/Nonregular.output"