1gap> START_TEST("print"); 2gap> LoadPackage("crisp", "", false); 3true 4gap> CRISP_Read("tst/samples.g"); 5gap> 6gap> if PRINT_METHODS then 7> TraceMethods(PrintObj, ViewObj); 8> fi; 9gap> 10gap> old := fail; 11fail 12gap> cl := classes(); 13[ [2,5]-grps by boundary, [2,5]-grps by locdef, [2,5]-grps by membersip, 14 [2,5]-grps by res, [2,5]-grps by rad, [2,5]-grps by inj, [2,5]-grps by proj 15 ] 16gap> for i in [1..Length(cl)] do 17> View(cl[i]); 18> Print("\n",cl[i], "\n"); 19> for j in [i+1..Length(cl)] do 20> I := Intersection(cl[i], cl[j]); 21> View(I); 22> Print("\n", I, "\n"); 23> od; 24> od; 25[2,5]-grps by boundary 26[2,5]-grps by boundary 27Intersection([ [2,5]-grps by boundary, [2,5]-grps by locdef ]) 28Intersection([ [2,5]-grps by boundary, [2,5]-grps by locdef ]) 29Intersection([ [2,5]-grps by boundary, [2,5]-grps by membersip ]) 30Intersection([ [2,5]-grps by boundary, [2,5]-grps by membersip ]) 31Intersection([ [2,5]-grps by boundary, [2,5]-grps by res ]) 32Intersection([ [2,5]-grps by boundary, [2,5]-grps by res ]) 33Intersection([ [2,5]-grps by boundary, [2,5]-grps by rad ]) 34Intersection([ [2,5]-grps by boundary, [2,5]-grps by rad ]) 35Intersection([ [2,5]-grps by boundary, [2,5]-grps by inj ]) 36Intersection([ [2,5]-grps by boundary, [2,5]-grps by inj ]) 37Intersection([ [2,5]-grps by boundary, [2,5]-grps by proj ]) 38Intersection([ [2,5]-grps by boundary, [2,5]-grps by proj ]) 39[2,5]-grps by locdef 40[2,5]-grps by locdef 41Intersection([ [2,5]-grps by locdef, [2,5]-grps by membersip ]) 42Intersection([ [2,5]-grps by locdef, [2,5]-grps by membersip ]) 43Intersection([ [2,5]-grps by locdef, [2,5]-grps by res ]) 44Intersection([ [2,5]-grps by locdef, [2,5]-grps by res ]) 45Intersection([ [2,5]-grps by locdef, [2,5]-grps by rad ]) 46Intersection([ [2,5]-grps by locdef, [2,5]-grps by rad ]) 47Intersection([ [2,5]-grps by locdef, [2,5]-grps by inj ]) 48Intersection([ [2,5]-grps by locdef, [2,5]-grps by inj ]) 49Intersection([ [2,5]-grps by locdef, [2,5]-grps by proj ]) 50Intersection([ [2,5]-grps by locdef, [2,5]-grps by proj ]) 51[2,5]-grps by membersip 52[2,5]-grps by membersip 53Intersection([ [2,5]-grps by membersip, [2,5]-grps by res ]) 54Intersection([ [2,5]-grps by membersip, [2,5]-grps by res ]) 55Intersection([ [2,5]-grps by membersip, [2,5]-grps by rad ]) 56Intersection([ [2,5]-grps by membersip, [2,5]-grps by rad ]) 57Intersection([ [2,5]-grps by membersip, [2,5]-grps by inj ]) 58Intersection([ [2,5]-grps by membersip, [2,5]-grps by inj ]) 59Intersection([ [2,5]-grps by membersip, [2,5]-grps by proj ]) 60Intersection([ [2,5]-grps by membersip, [2,5]-grps by proj ]) 61[2,5]-grps by res 62[2,5]-grps by res 63Intersection([ [2,5]-grps by res, [2,5]-grps by rad ]) 64Intersection([ [2,5]-grps by res, [2,5]-grps by rad ]) 65Intersection([ [2,5]-grps by res, [2,5]-grps by inj ]) 66Intersection([ [2,5]-grps by res, [2,5]-grps by inj ]) 67Intersection([ [2,5]-grps by res, [2,5]-grps by proj ]) 68Intersection([ [2,5]-grps by res, [2,5]-grps by proj ]) 69[2,5]-grps by rad 70[2,5]-grps by rad 71Intersection([ [2,5]-grps by rad, [2,5]-grps by inj ]) 72Intersection([ [2,5]-grps by rad, [2,5]-grps by inj ]) 73Intersection([ [2,5]-grps by rad, [2,5]-grps by proj ]) 74Intersection([ [2,5]-grps by rad, [2,5]-grps by proj ]) 75[2,5]-grps by inj 76[2,5]-grps by inj 77Intersection([ [2,5]-grps by inj, [2,5]-grps by proj ]) 78Intersection([ [2,5]-grps by inj, [2,5]-grps by proj ]) 79[2,5]-grps by proj 80[2,5]-grps by proj 81gap> for C in cl do 82> SetIsOrdinaryFormation(C, true); 83> od; 84gap> for C in cl do 85> for D in cl do 86> P := FormationProduct(C, D); 87> View(P); 88> Print("\n", P, "\n"); 89> od; 90> od; 91FormationProduct([2,5]-grps by boundary, [2,5]-grps by boundary) 92FormationProduct([2,5]-grps by boundary, [2,5]-grps by boundary) 93FormationProduct([2,5]-grps by boundary, [2,5]-grps by locdef) 94FormationProduct([2,5]-grps by boundary, [2,5]-grps by locdef) 95FormationProduct([2,5]-grps by boundary, [2,5]-grps by membersip) 96FormationProduct([2,5]-grps by boundary, [2,5]-grps by membersip) 97FormationProduct([2,5]-grps by boundary, [2,5]-grps by res) 98FormationProduct([2,5]-grps by boundary, [2,5]-grps by res) 99FormationProduct([2,5]-grps by boundary, [2,5]-grps by rad) 100FormationProduct([2,5]-grps by boundary, [2,5]-grps by rad) 101FormationProduct([2,5]-grps by boundary, [2,5]-grps by inj) 102FormationProduct([2,5]-grps by boundary, [2,5]-grps by inj) 103FormationProduct([2,5]-grps by boundary, [2,5]-grps by proj) 104FormationProduct([2,5]-grps by boundary, [2,5]-grps by proj) 105FormationProduct([2,5]-grps by locdef, [2,5]-grps by boundary) 106FormationProduct([2,5]-grps by locdef, [2,5]-grps by boundary) 107FormationProduct([2,5]-grps by locdef, [2,5]-grps by locdef) 108FormationProduct([2,5]-grps by locdef, [2,5]-grps by locdef) 109FormationProduct([2,5]-grps by locdef, [2,5]-grps by membersip) 110FormationProduct([2,5]-grps by locdef, [2,5]-grps by membersip) 111FormationProduct([2,5]-grps by locdef, [2,5]-grps by res) 112FormationProduct([2,5]-grps by locdef, [2,5]-grps by res) 113FormationProduct([2,5]-grps by locdef, [2,5]-grps by rad) 114FormationProduct([2,5]-grps by locdef, [2,5]-grps by rad) 115FormationProduct([2,5]-grps by locdef, [2,5]-grps by inj) 116FormationProduct([2,5]-grps by locdef, [2,5]-grps by inj) 117FormationProduct([2,5]-grps by locdef, [2,5]-grps by proj) 118FormationProduct([2,5]-grps by locdef, [2,5]-grps by proj) 119FormationProduct([2,5]-grps by membersip, [2,5]-grps by boundary) 120FormationProduct([2,5]-grps by membersip, [2,5]-grps by boundary) 121FormationProduct([2,5]-grps by membersip, [2,5]-grps by locdef) 122FormationProduct([2,5]-grps by membersip, [2,5]-grps by locdef) 123FormationProduct([2,5]-grps by membersip, [2,5]-grps by membersip) 124FormationProduct([2,5]-grps by membersip, [2,5]-grps by membersip) 125FormationProduct([2,5]-grps by membersip, [2,5]-grps by res) 126FormationProduct([2,5]-grps by membersip, [2,5]-grps by res) 127FormationProduct([2,5]-grps by membersip, [2,5]-grps by rad) 128FormationProduct([2,5]-grps by membersip, [2,5]-grps by rad) 129FormationProduct([2,5]-grps by membersip, [2,5]-grps by inj) 130FormationProduct([2,5]-grps by membersip, [2,5]-grps by inj) 131FormationProduct([2,5]-grps by membersip, [2,5]-grps by proj) 132FormationProduct([2,5]-grps by membersip, [2,5]-grps by proj) 133FormationProduct([2,5]-grps by res, [2,5]-grps by boundary) 134FormationProduct([2,5]-grps by res, [2,5]-grps by boundary) 135FormationProduct([2,5]-grps by res, [2,5]-grps by locdef) 136FormationProduct([2,5]-grps by res, [2,5]-grps by locdef) 137FormationProduct([2,5]-grps by res, [2,5]-grps by membersip) 138FormationProduct([2,5]-grps by res, [2,5]-grps by membersip) 139FormationProduct([2,5]-grps by res, [2,5]-grps by res) 140FormationProduct([2,5]-grps by res, [2,5]-grps by res) 141FormationProduct([2,5]-grps by res, [2,5]-grps by rad) 142FormationProduct([2,5]-grps by res, [2,5]-grps by rad) 143FormationProduct([2,5]-grps by res, [2,5]-grps by inj) 144FormationProduct([2,5]-grps by res, [2,5]-grps by inj) 145FormationProduct([2,5]-grps by res, [2,5]-grps by proj) 146FormationProduct([2,5]-grps by res, [2,5]-grps by proj) 147FormationProduct([2,5]-grps by rad, [2,5]-grps by boundary) 148FormationProduct([2,5]-grps by rad, [2,5]-grps by boundary) 149FormationProduct([2,5]-grps by rad, [2,5]-grps by locdef) 150FormationProduct([2,5]-grps by rad, [2,5]-grps by locdef) 151FormationProduct([2,5]-grps by rad, [2,5]-grps by membersip) 152FormationProduct([2,5]-grps by rad, [2,5]-grps by membersip) 153FormationProduct([2,5]-grps by rad, [2,5]-grps by res) 154FormationProduct([2,5]-grps by rad, [2,5]-grps by res) 155FittingFormationProduct([2,5]-grps by rad, [2,5]-grps by rad) 156FittingFormationProduct([2,5]-grps by rad, [2,5]-grps by rad) 157FittingFormationProduct([2,5]-grps by rad, [2,5]-grps by inj) 158FittingFormationProduct([2,5]-grps by rad, [2,5]-grps by inj) 159FormationProduct([2,5]-grps by rad, [2,5]-grps by proj) 160FormationProduct([2,5]-grps by rad, [2,5]-grps by proj) 161FormationProduct([2,5]-grps by inj, [2,5]-grps by boundary) 162FormationProduct([2,5]-grps by inj, [2,5]-grps by boundary) 163FormationProduct([2,5]-grps by inj, [2,5]-grps by locdef) 164FormationProduct([2,5]-grps by inj, [2,5]-grps by locdef) 165FormationProduct([2,5]-grps by inj, [2,5]-grps by membersip) 166FormationProduct([2,5]-grps by inj, [2,5]-grps by membersip) 167FormationProduct([2,5]-grps by inj, [2,5]-grps by res) 168FormationProduct([2,5]-grps by inj, [2,5]-grps by res) 169FittingFormationProduct([2,5]-grps by inj, [2,5]-grps by rad) 170FittingFormationProduct([2,5]-grps by inj, [2,5]-grps by rad) 171FittingFormationProduct([2,5]-grps by inj, [2,5]-grps by inj) 172FittingFormationProduct([2,5]-grps by inj, [2,5]-grps by inj) 173FormationProduct([2,5]-grps by inj, [2,5]-grps by proj) 174FormationProduct([2,5]-grps by inj, [2,5]-grps by proj) 175FormationProduct([2,5]-grps by proj, [2,5]-grps by boundary) 176FormationProduct([2,5]-grps by proj, [2,5]-grps by boundary) 177FormationProduct([2,5]-grps by proj, [2,5]-grps by locdef) 178FormationProduct([2,5]-grps by proj, [2,5]-grps by locdef) 179FormationProduct([2,5]-grps by proj, [2,5]-grps by membersip) 180FormationProduct([2,5]-grps by proj, [2,5]-grps by membersip) 181FormationProduct([2,5]-grps by proj, [2,5]-grps by res) 182FormationProduct([2,5]-grps by proj, [2,5]-grps by res) 183FormationProduct([2,5]-grps by proj, [2,5]-grps by rad) 184FormationProduct([2,5]-grps by proj, [2,5]-grps by rad) 185FormationProduct([2,5]-grps by proj, [2,5]-grps by inj) 186FormationProduct([2,5]-grps by proj, [2,5]-grps by inj) 187FormationProduct([2,5]-grps by proj, [2,5]-grps by proj) 188FormationProduct([2,5]-grps by proj, [2,5]-grps by proj) 189gap> cl := classes(); 190[ [2,5]-grps by boundary, [2,5]-grps by locdef, [2,5]-grps by membersip, 191 [2,5]-grps by res, [2,5]-grps by rad, [2,5]-grps by inj, [2,5]-grps by proj 192 ] 193gap> for C in cl do 194> SetIsFittingClass(C, true); 195> od; 196gap> for C in cl do 197> for D in cl do 198> P := FittingProduct(C, D); 199> View(P); 200> Print("\n", P, "\n"); 201> od; 202> od; 203FittingProduct([2,5]-grps by boundary, [2,5]-grps by boundary) 204FittingProduct([2,5]-grps by boundary, [2,5]-grps by boundary) 205FittingProduct([2,5]-grps by boundary, [2,5]-grps by locdef) 206FittingProduct([2,5]-grps by boundary, [2,5]-grps by locdef) 207FittingProduct([2,5]-grps by boundary, [2,5]-grps by membersip) 208FittingProduct([2,5]-grps by boundary, [2,5]-grps by membersip) 209FittingProduct([2,5]-grps by boundary, [2,5]-grps by res) 210FittingProduct([2,5]-grps by boundary, [2,5]-grps by res) 211FittingProduct([2,5]-grps by boundary, [2,5]-grps by rad) 212FittingProduct([2,5]-grps by boundary, [2,5]-grps by rad) 213FittingProduct([2,5]-grps by boundary, [2,5]-grps by inj) 214FittingProduct([2,5]-grps by boundary, [2,5]-grps by inj) 215FittingProduct([2,5]-grps by boundary, [2,5]-grps by proj) 216FittingProduct([2,5]-grps by boundary, [2,5]-grps by proj) 217FittingProduct([2,5]-grps by locdef, [2,5]-grps by boundary) 218FittingProduct([2,5]-grps by locdef, [2,5]-grps by boundary) 219FittingFormationProduct([2,5]-grps by locdef, [2,5]-grps by locdef) 220FittingFormationProduct([2,5]-grps by locdef, [2,5]-grps by locdef) 221FittingProduct([2,5]-grps by locdef, [2,5]-grps by membersip) 222FittingProduct([2,5]-grps by locdef, [2,5]-grps by membersip) 223FittingFormationProduct([2,5]-grps by locdef, [2,5]-grps by res) 224FittingFormationProduct([2,5]-grps by locdef, [2,5]-grps by res) 225FittingProduct([2,5]-grps by locdef, [2,5]-grps by rad) 226FittingProduct([2,5]-grps by locdef, [2,5]-grps by rad) 227FittingProduct([2,5]-grps by locdef, [2,5]-grps by inj) 228FittingProduct([2,5]-grps by locdef, [2,5]-grps by inj) 229FittingProduct([2,5]-grps by locdef, [2,5]-grps by proj) 230FittingProduct([2,5]-grps by locdef, [2,5]-grps by proj) 231FittingProduct([2,5]-grps by membersip, [2,5]-grps by boundary) 232FittingProduct([2,5]-grps by membersip, [2,5]-grps by boundary) 233FittingProduct([2,5]-grps by membersip, [2,5]-grps by locdef) 234FittingProduct([2,5]-grps by membersip, [2,5]-grps by locdef) 235FittingProduct([2,5]-grps by membersip, [2,5]-grps by membersip) 236FittingProduct([2,5]-grps by membersip, [2,5]-grps by membersip) 237FittingProduct([2,5]-grps by membersip, [2,5]-grps by res) 238FittingProduct([2,5]-grps by membersip, [2,5]-grps by res) 239FittingProduct([2,5]-grps by membersip, [2,5]-grps by rad) 240FittingProduct([2,5]-grps by membersip, [2,5]-grps by rad) 241FittingProduct([2,5]-grps by membersip, [2,5]-grps by inj) 242FittingProduct([2,5]-grps by membersip, [2,5]-grps by inj) 243FittingProduct([2,5]-grps by membersip, [2,5]-grps by proj) 244FittingProduct([2,5]-grps by membersip, [2,5]-grps by proj) 245FittingProduct([2,5]-grps by res, [2,5]-grps by boundary) 246FittingProduct([2,5]-grps by res, [2,5]-grps by boundary) 247FittingFormationProduct([2,5]-grps by res, [2,5]-grps by locdef) 248FittingFormationProduct([2,5]-grps by res, [2,5]-grps by locdef) 249FittingProduct([2,5]-grps by res, [2,5]-grps by membersip) 250FittingProduct([2,5]-grps by res, [2,5]-grps by membersip) 251FittingFormationProduct([2,5]-grps by res, [2,5]-grps by res) 252FittingFormationProduct([2,5]-grps by res, [2,5]-grps by res) 253FittingProduct([2,5]-grps by res, [2,5]-grps by rad) 254FittingProduct([2,5]-grps by res, [2,5]-grps by rad) 255FittingProduct([2,5]-grps by res, [2,5]-grps by inj) 256FittingProduct([2,5]-grps by res, [2,5]-grps by inj) 257FittingProduct([2,5]-grps by res, [2,5]-grps by proj) 258FittingProduct([2,5]-grps by res, [2,5]-grps by proj) 259FittingProduct([2,5]-grps by rad, [2,5]-grps by boundary) 260FittingProduct([2,5]-grps by rad, [2,5]-grps by boundary) 261FittingProduct([2,5]-grps by rad, [2,5]-grps by locdef) 262FittingProduct([2,5]-grps by rad, [2,5]-grps by locdef) 263FittingProduct([2,5]-grps by rad, [2,5]-grps by membersip) 264FittingProduct([2,5]-grps by rad, [2,5]-grps by membersip) 265FittingProduct([2,5]-grps by rad, [2,5]-grps by res) 266FittingProduct([2,5]-grps by rad, [2,5]-grps by res) 267FittingProduct([2,5]-grps by rad, [2,5]-grps by rad) 268FittingProduct([2,5]-grps by rad, [2,5]-grps by rad) 269FittingProduct([2,5]-grps by rad, [2,5]-grps by inj) 270FittingProduct([2,5]-grps by rad, [2,5]-grps by inj) 271FittingProduct([2,5]-grps by rad, [2,5]-grps by proj) 272FittingProduct([2,5]-grps by rad, [2,5]-grps by proj) 273FittingProduct([2,5]-grps by inj, [2,5]-grps by boundary) 274FittingProduct([2,5]-grps by inj, [2,5]-grps by boundary) 275FittingProduct([2,5]-grps by inj, [2,5]-grps by locdef) 276FittingProduct([2,5]-grps by inj, [2,5]-grps by locdef) 277FittingProduct([2,5]-grps by inj, [2,5]-grps by membersip) 278FittingProduct([2,5]-grps by inj, [2,5]-grps by membersip) 279FittingProduct([2,5]-grps by inj, [2,5]-grps by res) 280FittingProduct([2,5]-grps by inj, [2,5]-grps by res) 281FittingProduct([2,5]-grps by inj, [2,5]-grps by rad) 282FittingProduct([2,5]-grps by inj, [2,5]-grps by rad) 283FittingProduct([2,5]-grps by inj, [2,5]-grps by inj) 284FittingProduct([2,5]-grps by inj, [2,5]-grps by inj) 285FittingProduct([2,5]-grps by inj, [2,5]-grps by proj) 286FittingProduct([2,5]-grps by inj, [2,5]-grps by proj) 287FittingProduct([2,5]-grps by proj, [2,5]-grps by boundary) 288FittingProduct([2,5]-grps by proj, [2,5]-grps by boundary) 289FittingProduct([2,5]-grps by proj, [2,5]-grps by locdef) 290FittingProduct([2,5]-grps by proj, [2,5]-grps by locdef) 291FittingProduct([2,5]-grps by proj, [2,5]-grps by membersip) 292FittingProduct([2,5]-grps by proj, [2,5]-grps by membersip) 293FittingProduct([2,5]-grps by proj, [2,5]-grps by res) 294FittingProduct([2,5]-grps by proj, [2,5]-grps by res) 295FittingProduct([2,5]-grps by proj, [2,5]-grps by rad) 296FittingProduct([2,5]-grps by proj, [2,5]-grps by rad) 297FittingProduct([2,5]-grps by proj, [2,5]-grps by inj) 298FittingProduct([2,5]-grps by proj, [2,5]-grps by inj) 299FittingProduct([2,5]-grps by proj, [2,5]-grps by proj) 300FittingProduct([2,5]-grps by proj, [2,5]-grps by proj) 301gap> 302gap> if PRINT_METHODS then 303> UnTraceMethods(PrintObj, ViewObj); 304> fi; 305gap> STOP_TEST("print", 950000); 306print 307GAP4stones: 0 308gap> 309gap> 310gap> ############################################################################ 311gap> ## 312gap> #E 313gap> ## 314gap> 315