"Source: Text/Topology/SmpCpx.text";
"Line: 876";
"Date: Tue Jun  7 22:27:15 2016";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Topology/SmpCpx.text, line: 876
// Example: H153E15 ()
print "Example: H153E15";
ei := GetEchoInput();
SetEchoInput(true);
circ := SimplicialComplex([{1,2},{2,3},{3,1}]);
torus := Product(circ,circ);
Normalization(~torus);
oneholetorus := Prune(torus,{1,2,7});
twoholetorus := Prune(Prune(torus,{1,2,7}),{6,8,9});
threetori := oneholetorus + twoholetorus + oneholetorus;
threetorus := Glue(threetori,[<1,10>,<2,11>,<7,16>,<15,19>,<17,20>,<18,25>]);
HomologyGenerators(threetorus,Integers());
HomologyGenerators(SimplicialProjectivePlane(),Integers());
HomologyGenerators(Cone(SimplicialProjectivePlane()),Integers());
HomologyGenerators(Suspension(SimplicialProjectivePlane()),Integers());
SetEchoInput(ei);
