File: 12.18.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 (18 lines) | stat: -rw-r--r-- 401 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
gap> A1:= [ [1,2], [3,4], [5,6] ];;
gap> A2:=[ [1,2], [3,5], [4,6] ];;
gap> A3:=[ [1,4], [2,6], [3,5] ];;
gap> D8:=DihedralGroup(IsPermGroup,8);;

gap> Manifolds:=[];;
gap> for A in [A1,A2,A3] do
> for x in D8 do
> for y in D8 do
> for z in D8 do
> G:=[x,y,z];
> F:=PoincareCubeCWComplex(A,G);
> b:=IsClosedManifold(F);
> if b=true then Add(Manifolds,F); fi;
> od;od;od;od;

gap> Size(Manifolds);
163