Quelle  bing.txt

A:=List([1,2],i->1);
A:=List([1,2,3,4,5],i->StructuralCopy(A));
A:=List([1,2,3],i->StructuralCopy(A));

M:=PureCubicalComplex(A);
M:=PureCubicalComplexToCubicalComplex(M);
A:=M!.binaryArray;

#0-cells: we need them all

#3-cells: we remove all of them
for i in [1..7] do
for j in [1..11] do
for k in [1..5] do
if IsEvenInt(i) and IsEvenInt(j) and IsEvenInt(k) then
A[i][j][k]:=0; 
fi;
od;od;od;

#2-cells
for i in [2..6] do
for j in [2..10] do
if IsOddInt(i+j) then
A[i][j][2]:=0;
A[i][j][4]:=0;
fi;
od;od;

#A[4][2][2]:=1;
#A[5][2][2]:=1;

#remove the four doors
A[4][4][1]:=0;
A[4][4][3]:=0;
A[4][8][3]:=0;
A[4][8][5]:=0;

#Add panels
A[3][4][2]:=1;
A[5][4][2]:=1;
A[4][3][2]:=1;
A[4][5][2]:=1;

A[3][8][4]:=1;
A[5][8][4]:=1;
A[4][7][4]:=1;
A[4][9][4]:=1;

#1-cells
for i in [2..6] do
for j in [2..10] do
if IsOddInt(i) and IsOddInt(j) then
A[i][j][2]:=0;
A[i][j][4]:=0;
fi;
od;od;

#Add panel edges
A[3][3][2]:=1;
A[5][3][2]:=1;
A[3][5][2]:=1;
A[5][5][2]:=1;

A[3][7][4]:=1;
A[5][7][4]:=1;
A[3][9][4]:=1;
A[5][9][4]:=1;

#Add two extra panels
A[3][2][2]:=1;
A[3][10][4]:=1;

BingsHouse:=CubicalComplexToRegularCWComplex(M);


A[4][2][2]:=1;
A[5][2][2]:=1;


BingsModifiedHouse:=CubicalComplexToRegularCWComplex(M);