File: 12.23.txt

package info (click to toggle)
gap-hap 1.70%2Bds-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 56,612 kB
  • sloc: xml: 16,139; sh: 216; javascript: 155; makefile: 126; ansic: 47; perl: 36
file content (20 lines) | stat: -rw-r--r-- 467 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
gap> LoadPackage("Simpcomp");;

gap> inv3:=function(m)
> local K;
> K:=BarycentricSubdivision(m);
> K:=MaximalSimplicesOfSimplicialComplex(K);
> K:=SC(K);
> if not SCIsStronglyConnected(K) then Print("WARNING!\n"); fi;
> return SCExportIsoSig( K );
> end;
function( m ) ... end

gap> DD:=[];;
gap> for x in D do
> y:=Classify(x,inv3);
> Add(DD,List(y,z->z[1]));
> od;

gap> List(DD,Size);
[ 9, 1, 3, 3, 3, 1, 1, 1, 1, 1, 2, 1, 2, 7, 4, 4, 3, 1, 1, 1, 1, 3, 1, 1, 3 ]