<<DiscreteMath`Combinatorica`

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

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

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

enumerateSimplices;

ClearAll[wholeVolume];
wholeVolume = 73/128;

Timing[enumerate]

?? simplex

?? simplexVolume

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