\(ClearAll[k, l]; 
k = 2; 
l = 2; 

    OutputFile\  = \ "/home/asuka0/fumi/tri/delta2delta2.output"; \)

<< DiscreteMath`Combinatorica`

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

\(\(
enumerateVerticesDeltakDeltal; 

ClearAll[NumberOfVertices]; 

    NumberOfVertices\  = \ \((k + 1)\) \((l + 1)\); 

enumerateSimplices; 

    
ClearAll[wholeVolume]; 
wholeVolume\  = \ 1/\((\(k!\)\ \(l!\))\); 


    Timing[enumerate]\)\)

?? vertex

?? simplex

?? simplexVolume

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

\(ClearAll[k, l]; 
k = 2; 
l = 2; 

    OutputFile\  = \ "/home/asuka0/fumi/tri/delta2delta2.output2"; \)

<< DiscreteMath`Combinatorica`

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

\(\(
enumerateVerticesDeltakDeltal; 

ClearAll[NumberOfVertices]; 

    NumberOfVertices\  = \ \((k + 1)\) \((l + 1)\); 

enumerateSimplices; 

    
ClearAll[wholeVolume]; 
wholeVolume\  = \ 1/\((\(k!\)\ \(l!\))\); 


    memorizeIntersectProperQ; 

Timing[enumerate]\)\)