Quelle  data248.txt   Sprache: unbekannt

S:=
[ [ 16, 35, 92 ], [ 17, 37, 56 ], [ 17, 43, 51 ], [ 18, 38, 55 ], 
  [ 20, 48, 91 ], [ 20, 51, 56 ], [ 21, 34, 83 ], [ 22, 31, 61 ], 
  [ 23, 29, 86 ], [ 23, 48, 91 ], [ 23, 52, 54 ], [ 24, 43, 52 ], 
  [ 25, 21, 83 ], [ 25, 28, 55 ], [ 25, 57, 46 ], [ 26, 38, 85 ], 
  [ 26, 42, 56 ], [ 28, 55, 43 ], [ 29, 27, 60 ], [ 30, 29, 62 ], 
  [ 32, 56, 50 ], [ 33, 20, 57 ], [ 34, 49, 96 ], [ 34, 52, 91 ], 
  [ 35, 27, 77 ], [ 36, 25, 72 ], [ 40, 18, 67 ], [ 43, 63, 49 ], 
  [ 44, 55, 97 ], [ 46, 24, 63 ], [ 46, 54, 52 ], [ 46, 54, 91 ], 
  [ 46, 57, 41 ], [ 47, 17, 60 ], [ 47, 20, 75 ], [ 50, 12, 73 ], 
  [ 50, 18, 70 ], [ 51, 18, 62 ], [ 52, 57, 45 ], [ 52, 60, 94 ], 
  [ 54, 59, 47 ], [ 55, 16, 73 ], [ 55, 60, 46 ], [ 56, 20, 63 ], 
  [ 58, 67, 91 ], [ 64, 16, 69 ], [ 65, 16, 75 ], [ 65, 22, 73 ], 
  [ 65, 65, 47 ], [ 66, 68, 99 ], [ 67, 11, 65 ], [ 67, 63, 44 ], 
  [ 68, 15, 67 ], [ 69, 66, 97 ], [ 74, 69, 51 ], [ 79, 67, 90 ], 
  [ 81, 14, 69 ], [ 81, 18, 78 ], [ 82, 22, 69 ], [ 82, 69, 52 ], 
  [ 84, 22, 71 ], [ 85, 19, 69 ], [ 88, 63, 49 ], [ 90, 62, 91 ], 
  [ 91, 65, 96 ], [ 93, 25, 68 ], [ 93, 54, 88 ], [ 98, 20, 71 ], 
  [ 98, 59, 88 ], [ 100, 54, 47 ], [ 100, 65, 52 ], [ 102, 17, 69 ], 
  [ 103, 22, 82 ], [ 104, 60, 97 ], [ 105, 16, 81 ], [ 105, 24, 54 ], 
  [ 105, 54, 97 ], [ 109, 31, 85 ], [ 110, 22, 57 ], [ 111, 60, 48 ], 
  [ 112, 24, 76 ], [ 112, 31, 90 ], [ 113, 24, 84 ], [ 113, 27, 53 ], 
  [ 113, 50, 88 ], [ 113, 59, 87 ], [ 115, 42, 51 ], [ 115, 43, 91 ], 
  [ 115, 53, 55 ], [ 115, 53, 87 ], [ 115, 59, 50 ], [ 116, 34, 54 ], 
  [ 119, 35, 81 ], [ 120, 29, 54 ], [ 120, 48, 96 ], [ 121, 34, 55 ], 
  [ 122, 30, 83 ], [ 123, 37, 81 ], [ 124, 34, 91 ], [ 125, 43, 87 ] ];

Y:=NullMat(90,120);
Y:=List([1..150],i->StructuralCopy(Y));;
for x in S do
Y[x[1]][x[2]][x[3]]:=1;
od;
Y:=PureCubicalComplex(Y);