´

get_intersection_matrix_Iknn(km, label);

Example:

gap> V := get_intersection_matrix_Iknn(km, "0");
discreta_batch get_intersection_matrix_Iknn KM_PGGL_2_32_t5_k6.txt discreta_ba\
tch_output.g discreta_tmp 0 
[ 0, 5, [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 ], 
  [ [ [ 21868, 21871, 43744, 43748, 21867, 8748, 8748, 8748, 21877, 43750, 
              21877, 21873, 7291 ], 
          [ 21871, 21866, 43744, 43738, 21871, 8750, 8750, 8750, 21873, 
              43752, 21873, 21879, 7293 ], 
          [ 21872, 21872, 43746, 43745, 21872, 8749, 8749, 8749, 21873, 
              43746, 21873, 21873, 7291 ], 
          [ 21874, 21869, 43745, 43741, 21874, 8750, 8750, 8750, 21871, 
              43747, 21871, 21876, 7292 ], 
          [ 21867, 21871, 43744, 43748, 21868, 8748, 8748, 8748, 21877, 
              43750, 21877, 21873, 7291 ], 
          [ 21870, 21875, 43745, 43750, 21870, 8749, 8748, 8748, 21875, 
              43745, 21875, 21870, 7290 ], 
          [ 21870, 21875, 43745, 43750, 21870, 8748, 8749, 8748, 21875, 
              43745, 21875, 21870, 7290 ], 
          [ 21870, 21875, 43745, 43750, 21870, 8748, 8748, 8749, 21875, 
              43745, 21875, 21870, 7290 ], 
          [ 21877, 21873, 43746, 43742, 21877, 8750, 8750, 8750, 21870, 
              43742, 21869, 21873, 7291 ], 
          [ 21875, 21876, 43746, 43747, 21875, 8749, 8749, 8749, 21871, 
              43742, 21871, 21870, 7290 ], 
          [ 21877, 21873, 43746, 43742, 21877, 8750, 8750, 8750, 21869, 
              43742, 21870, 21873, 7291 ], 
          [ 21873, 21879, 43746, 43752, 21873, 8748, 8748, 8748, 21873, 
              43740, 21873, 21868, 7289 ], 
          [ 21873, 21879, 43746, 43752, 21873, 8748, 8748, 8748, 21873, 
              43740, 21873, 21867, 7290 ] ], 
      [ [ 35814, 35800, 71590, 71570, 35820, 14322, 14322, 14322, 35770, 
              71560, 35770, 35790, 11930 ], 
          [ 35800, 35824, 71590, 71620, 35800, 14312, 14312, 14312, 35790, 
              71550, 35790, 35760, 11920 ], 
          [ 35795, 35795, 71579, 71585, 35795, 14317, 14317, 14317, 35790, 
              71580, 35790, 35790, 11930 ], 
          [ 35785, 35810, 71585, 71604, 35785, 14312, 14312, 14312, 35800, 
              71575, 35800, 35775, 11925 ], 
          [ 35820, 35800, 71590, 71570, 35814, 14322, 14322, 14322, 35770, 
              71560, 35770, 35790, 11930 ], 
          [ 35805, 35780, 71585, 71560, 35805, 14316, 14322, 14322, 35780, 
              71585, 35780, 35805, 11935 ], 
          [ 35805, 35780, 71585, 71560, 35805, 14322, 14316, 14322, 35780, 
              71585, 35780, 35805, 11935 ], 
          [ 35805, 35780, 71585, 71560, 35805, 14322, 14322, 14316, 35780, 
              71585, 35780, 35805, 11935 ], 
          [ 35770, 35790, 71580, 71600, 35770, 14312, 14312, 14312, 35804, 
              71600, 35810, 35790, 11930 ], 
          [ 35780, 35775, 71580, 71575, 35780, 14317, 14317, 14317, 35800, 
              71599, 35800, 35805, 11935 ], 
          [ 35770, 35790, 71580, 71600, 35770, 14312, 14312, 14312, 35810, 
              71600, 35804, 35790, 11930 ], 
          [ 35790, 35760, 71580, 71550, 35790, 14322, 14322, 14322, 35790, 
              71610, 35790, 35814, 11940 ], 
          [ 35790, 35760, 71580, 71550, 35790, 14322, 14322, 14322, 35790, 
              71610, 35790, 35820, 11934 ] ], 
      [ [ 19410, 19435, 38890, 38930, 19395, 7770, 7770, 7770, 19495, 38950, 
              19495, 19455, 6485 ], 
          [ 19435, 19390, 38890, 38830, 19435, 7790, 7790, 7790, 19455, 
              38970, 19455, 19515, 6505 ], 
          [ 19445, 19445, 38915, 38900, 19445, 7780, 7780, 7780, 19455, 
              38910, 19455, 19455, 6485 ], 
          [ 19465, 19415, 38900, 38865, 19465, 7790, 7790, 7790, 19435, 
              38920, 19435, 19485, 6495 ], 
          [ 19395, 19435, 38890, 38930, 19410, 7770, 7770, 7770, 19495, 
              38950, 19495, 19455, 6485 ], 
          [ 19425, 19475, 38900, 38950, 19425, 7785, 7770, 7770, 19475, 
              38900, 19475, 19425, 6475 ], 
          [ 19425, 19475, 38900, 38950, 19425, 7770, 7785, 7770, 19475, 
              38900, 19475, 19425, 6475 ], 
          [ 19425, 19475, 38900, 38950, 19425, 7770, 7770, 7785, 19475, 
              38900, 19475, 19425, 6475 ], 
          [ 19495, 19455, 38910, 38870, 19495, 7790, 7790, 7790, 19430, 
              38870, 19415, 19455, 6485 ], 
          [ 19475, 19485, 38910, 38920, 19475, 7780, 7780, 7780, 19435, 
              38875, 19435, 19425, 6475 ], 
          [ 19495, 19455, 38910, 38870, 19495, 7790, 7790, 7790, 19415, 
              38870, 19430, 19455, 6485 ], 
          [ 19455, 19515, 38910, 38970, 19455, 7770, 7770, 7770, 19455, 
              38850, 19455, 19410, 6465 ], 
          [ 19455, 19515, 38910, 38970, 19455, 7770, 7770, 7770, 19455, 
              38850, 19455, 19395, 6480 ] ], 
      [ [ 4360, 4340, 8660, 8620, 4380, 1740, 1740, 1740, 4280, 8600, 4280, 
              4320, 1440 ], 
          [ 4340, 4380, 8660, 8720, 4340, 1720, 1720, 1720, 4320, 8580, 4320, 
              4260, 1420 ], 
          [ 4330, 4330, 8630, 8650, 4330, 1730, 1730, 1730, 4320, 8640, 4320, 
              4320, 1440 ], 
          [ 4310, 4360, 8650, 8680, 4310, 1720, 1720, 1720, 4340, 8630, 4340, 
              4290, 1430 ], 
          [ 4380, 4340, 8660, 8620, 4360, 1740, 1740, 1740, 4280, 8600, 4280, 
              4320, 1440 ], 
          [ 4350, 4300, 8650, 8600, 4350, 1720, 1740, 1740, 4300, 8650, 4300, 
              4350, 1450 ], 
          [ 4350, 4300, 8650, 8600, 4350, 1740, 1720, 1740, 4300, 8650, 4300, 
              4350, 1450 ], 
          [ 4350, 4300, 8650, 8600, 4350, 1740, 1740, 1720, 4300, 8650, 4300, 
              4350, 1450 ], 
          [ 4280, 4320, 8640, 8680, 4280, 1720, 1720, 1720, 4340, 8680, 4360, 
              4320, 1440 ], 
          [ 4300, 4290, 8640, 8630, 4300, 1730, 1730, 1730, 4340, 8670, 4340, 
              4350, 1450 ], 
          [ 4280, 4320, 8640, 8680, 4280, 1720, 1720, 1720, 4360, 8680, 4340, 
              4320, 1440 ], 
          [ 4320, 4260, 8640, 8580, 4320, 1740, 1740, 1740, 4320, 8700, 4320, 
              4360, 1460 ], 
          [ 4320, 4260, 8640, 8580, 4320, 1740, 1740, 1740, 4320, 8700, 4320, 
              4380, 1440 ] ], 
      [ [ 375, 380, 770, 790, 360, 150, 150, 150, 410, 800, 410, 390, 130 ], 
          [ 380, 365, 770, 740, 380, 160, 160, 160, 390, 810, 390, 420, 140 ],
          [ 385, 385, 790, 775, 385, 155, 155, 155, 390, 780, 390, 390, 130 ],
          [ 395, 370, 775, 765, 395, 160, 160, 160, 380, 785, 380, 405, 135 ],
          [ 360, 380, 770, 790, 375, 150, 150, 150, 410, 800, 410, 390, 130 ],
          [ 375, 400, 775, 800, 375, 165, 150, 150, 400, 775, 400, 375, 125 ],
          [ 375, 400, 775, 800, 375, 150, 165, 150, 400, 775, 400, 375, 125 ],
          [ 375, 400, 775, 800, 375, 150, 150, 165, 400, 775, 400, 375, 125 ],
          [ 410, 390, 780, 760, 410, 160, 160, 160, 385, 760, 370, 390, 130 ],
          [ 400, 405, 780, 785, 400, 155, 155, 155, 380, 770, 380, 375, 125 ],
          [ 410, 390, 780, 760, 410, 160, 160, 160, 370, 760, 385, 390, 130 ],
          [ 390, 420, 780, 810, 390, 150, 150, 150, 390, 750, 390, 375, 120 ],
          [ 390, 420, 780, 810, 390, 150, 150, 150, 390, 750, 390, 360, 135 ] 
         ], 
      [ [ 12, 14, 26, 22, 18, 6, 6, 6, 8, 20, 8, 12, 4 ], [ 14, 14, 26, 32, 
              14, 4, 4, 4, 12, 18, 12, 6, 2 ], 
          [ 13, 13, 19, 25, 13, 5, 5, 5, 12, 24, 12, 12, 4 ], 
          [ 11, 16, 25, 24, 11, 4, 4, 4, 14, 23, 14, 9, 3 ], 
          [ 18, 14, 26, 22, 12, 6, 6, 6, 8, 20, 8, 12, 4 ], 
          [ 15, 10, 25, 20, 15, 0, 6, 6, 10, 25, 10, 15, 5 ], 
          [ 15, 10, 25, 20, 15, 6, 0, 6, 10, 25, 10, 15, 5 ], 
          [ 15, 10, 25, 20, 15, 6, 6, 0, 10, 25, 10, 15, 5 ], 
          [ 8, 12, 24, 28, 8, 4, 4, 4, 10, 28, 16, 12, 4 ], 
          [ 10, 9, 24, 23, 10, 5, 5, 5, 14, 23, 14, 15, 5 ], 
          [ 8, 12, 24, 28, 8, 4, 4, 4, 16, 28, 10, 12, 4 ], 
          [ 12, 6, 24, 18, 12, 6, 6, 6, 12, 30, 12, 12, 6 ], 
          [ 12, 6, 24, 18, 12, 6, 6, 6, 12, 30, 12, 18, 0 ] ] ] ]
gap> V[1];
0
gap> V[2];
5
gap> V[3];
[ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 ]
gap> VV := V[4];;
gap> I0 := VV[1];;
gap> I1 := VV[2];;
gap> I2 := VV[3];;
gap> I3 := VV[4];;
gap> I4 := VV[5];;
gap> I5 := VV[6];;
gap> PrintArray(I0);
[ [  21868,  21871,  43744,  43748,  21867,   8748,   8748,   8748,  21877,  4\
3750,  21877,  21873,   7291 ],
  [  21871,  21866,  43744,  43738,  21871,   8750,   8750,   8750,  21873,  4\
3752,  21873,  21879,   7293 ],
  [  21872,  21872,  43746,  43745,  21872,   8749,   8749,   8749,  21873,  4\
3746,  21873,  21873,   7291 ],
  [  21874,  21869,  43745,  43741,  21874,   8750,   8750,   8750,  21871,  4\
3747,  21871,  21876,   7292 ],
  [  21867,  21871,  43744,  43748,  21868,   8748,   8748,   8748,  21877,  4\
3750,  21877,  21873,   7291 ],
  [  21870,  21875,  43745,  43750,  21870,   8749,   8748,   8748,  21875,  4\
3745,  21875,  21870,   7290 ],
  [  21870,  21875,  43745,  43750,  21870,   8748,   8749,   8748,  21875,  4\
3745,  21875,  21870,   7290 ],
  [  21870,  21875,  43745,  43750,  21870,   8748,   8748,   8749,  21875,  4\
3745,  21875,  21870,   7290 ],
  [  21877,  21873,  43746,  43742,  21877,   8750,   8750,   8750,  21870,  4\
3742,  21869,  21873,   7291 ],
  [  21875,  21876,  43746,  43747,  21875,   8749,   8749,   8749,  21871,  4\
3742,  21871,  21870,   7290 ],
  [  21877,  21873,  43746,  43742,  21877,   8750,   8750,   8750,  21869,  4\
3742,  21870,  21873,   7291 ],
  [  21873,  21879,  43746,  43752,  21873,   8748,   8748,   8748,  21873,  4\
3740,  21873,  21868,   7289 ],
  [  21873,  21879,  43746,  43752,  21873,   8748,   8748,   8748,  21873,  4\
3740,  21873,  21867,   7290 ] ]
gap> PrintArray(I1);
[ [  35814,  35800,  71590,  71570,  35820,  14322,  14322,  14322,  35770,  7\
1560,  35770,  35790,  11930 ],
  [  35800,  35824,  71590,  71620,  35800,  14312,  14312,  14312,  35790,  7\
1550,  35790,  35760,  11920 ],
  [  35795,  35795,  71579,  71585,  35795,  14317,  14317,  14317,  35790,  7\
1580,  35790,  35790,  11930 ],
  [  35785,  35810,  71585,  71604,  35785,  14312,  14312,  14312,  35800,  7\
1575,  35800,  35775,  11925 ],
  [  35820,  35800,  71590,  71570,  35814,  14322,  14322,  14322,  35770,  7\
1560,  35770,  35790,  11930 ],
  [  35805,  35780,  71585,  71560,  35805,  14316,  14322,  14322,  35780,  7\
1585,  35780,  35805,  11935 ],
  [  35805,  35780,  71585,  71560,  35805,  14322,  14316,  14322,  35780,  7\
1585,  35780,  35805,  11935 ],
  [  35805,  35780,  71585,  71560,  35805,  14322,  14322,  14316,  35780,  7\
1585,  35780,  35805,  11935 ],
  [  35770,  35790,  71580,  71600,  35770,  14312,  14312,  14312,  35804,  7\
1600,  35810,  35790,  11930 ],
  [  35780,  35775,  71580,  71575,  35780,  14317,  14317,  14317,  35800,  7\
1599,  35800,  35805,  11935 ],
  [  35770,  35790,  71580,  71600,  35770,  14312,  14312,  14312,  35810,  7\
1600,  35804,  35790,  11930 ],
  [  35790,  35760,  71580,  71550,  35790,  14322,  14322,  14322,  35790,  7\
1610,  35790,  35814,  11940 ],
  [  35790,  35760,  71580,  71550,  35790,  14322,  14322,  14322,  35790,  7\
1610,  35790,  35820,  11934 ] ]
gap> PrintArray(I2);
[ [  19410,  19435,  38890,  38930,  19395,   7770,   7770,   7770,  19495,  3\
8950,  19495,  19455,   6485 ],
  [  19435,  19390,  38890,  38830,  19435,   7790,   7790,   7790,  19455,  3\
8970,  19455,  19515,   6505 ],
  [  19445,  19445,  38915,  38900,  19445,   7780,   7780,   7780,  19455,  3\
8910,  19455,  19455,   6485 ],
  [  19465,  19415,  38900,  38865,  19465,   7790,   7790,   7790,  19435,  3\
8920,  19435,  19485,   6495 ],
  [  19395,  19435,  38890,  38930,  19410,   7770,   7770,   7770,  19495,  3\
8950,  19495,  19455,   6485 ],
  [  19425,  19475,  38900,  38950,  19425,   7785,   7770,   7770,  19475,  3\
8900,  19475,  19425,   6475 ],
  [  19425,  19475,  38900,  38950,  19425,   7770,   7785,   7770,  19475,  3\
8900,  19475,  19425,   6475 ],
  [  19425,  19475,  38900,  38950,  19425,   7770,   7770,   7785,  19475,  3\
8900,  19475,  19425,   6475 ],
  [  19495,  19455,  38910,  38870,  19495,   7790,   7790,   7790,  19430,  3\
8870,  19415,  19455,   6485 ],
  [  19475,  19485,  38910,  38920,  19475,   7780,   7780,   7780,  19435,  3\
8875,  19435,  19425,   6475 ],
  [  19495,  19455,  38910,  38870,  19495,   7790,   7790,   7790,  19415,  3\
8870,  19430,  19455,   6485 ],
  [  19455,  19515,  38910,  38970,  19455,   7770,   7770,   7770,  19455,  3\
8850,  19455,  19410,   6465 ],
  [  19455,  19515,  38910,  38970,  19455,   7770,   7770,   7770,  19455,  3\
8850,  19455,  19395,   6480 ] ]
gap> PrintArray(I3);
[ [  4360,  4340,  8660,  8620,  4380,  1740,  1740,  1740,  4280,  8600,  428\
0,  4320,  1440 ],
  [  4340,  4380,  8660,  8720,  4340,  1720,  1720,  1720,  4320,  8580,  432\
0,  4260,  1420 ],
  [  4330,  4330,  8630,  8650,  4330,  1730,  1730,  1730,  4320,  8640,  432\
0,  4320,  1440 ],
  [  4310,  4360,  8650,  8680,  4310,  1720,  1720,  1720,  4340,  8630,  434\
0,  4290,  1430 ],
  [  4380,  4340,  8660,  8620,  4360,  1740,  1740,  1740,  4280,  8600,  428\
0,  4320,  1440 ],
  [  4350,  4300,  8650,  8600,  4350,  1720,  1740,  1740,  4300,  8650,  430\
0,  4350,  1450 ],
  [  4350,  4300,  8650,  8600,  4350,  1740,  1720,  1740,  4300,  8650,  430\
0,  4350,  1450 ],
  [  4350,  4300,  8650,  8600,  4350,  1740,  1740,  1720,  4300,  8650,  430\
0,  4350,  1450 ],
  [  4280,  4320,  8640,  8680,  4280,  1720,  1720,  1720,  4340,  8680,  436\
0,  4320,  1440 ],
  [  4300,  4290,  8640,  8630,  4300,  1730,  1730,  1730,  4340,  8670,  434\
0,  4350,  1450 ],
  [  4280,  4320,  8640,  8680,  4280,  1720,  1720,  1720,  4360,  8680,  434\
0,  4320,  1440 ],
  [  4320,  4260,  8640,  8580,  4320,  1740,  1740,  1740,  4320,  8700,  432\
0,  4360,  1460 ],
  [  4320,  4260,  8640,  8580,  4320,  1740,  1740,  1740,  4320,  8700,  432\
0,  4380,  1440 ] ]
gap> PrintArray(I4);
[ [  375,  380,  770,  790,  360,  150,  150,  150,  410,  800,  410,  390,  1\
30 ],
  [  380,  365,  770,  740,  380,  160,  160,  160,  390,  810,  390,  420,  1\
40 ],
  [  385,  385,  790,  775,  385,  155,  155,  155,  390,  780,  390,  390,  1\
30 ],
  [  395,  370,  775,  765,  395,  160,  160,  160,  380,  785,  380,  405,  1\
35 ],
  [  360,  380,  770,  790,  375,  150,  150,  150,  410,  800,  410,  390,  1\
30 ],
  [  375,  400,  775,  800,  375,  165,  150,  150,  400,  775,  400,  375,  1\
25 ],
  [  375,  400,  775,  800,  375,  150,  165,  150,  400,  775,  400,  375,  1\
25 ],
  [  375,  400,  775,  800,  375,  150,  150,  165,  400,  775,  400,  375,  1\
25 ],
  [  410,  390,  780,  760,  410,  160,  160,  160,  385,  760,  370,  390,  1\
30 ],
  [  400,  405,  780,  785,  400,  155,  155,  155,  380,  770,  380,  375,  1\
25 ],
  [  410,  390,  780,  760,  410,  160,  160,  160,  370,  760,  385,  390,  1\
30 ],
  [  390,  420,  780,  810,  390,  150,  150,  150,  390,  750,  390,  375,  1\
20 ],
  [  390,  420,  780,  810,  390,  150,  150,  150,  390,  750,  390,  360,  1\
35 ] ]
gap> PrintArray(I5);
[ [  12,  14,  26,  22,  18,   6,   6,   6,   8,  20,   8,  12,   4 ],
  [  14,  14,  26,  32,  14,   4,   4,   4,  12,  18,  12,   6,   2 ],
  [  13,  13,  19,  25,  13,   5,   5,   5,  12,  24,  12,  12,   4 ],
  [  11,  16,  25,  24,  11,   4,   4,   4,  14,  23,  14,   9,   3 ],
  [  18,  14,  26,  22,  12,   6,   6,   6,   8,  20,   8,  12,   4 ],
  [  15,  10,  25,  20,  15,   0,   6,   6,  10,  25,  10,  15,   5 ],
  [  15,  10,  25,  20,  15,   6,   0,   6,  10,  25,  10,  15,   5 ],
  [  15,  10,  25,  20,  15,   6,   6,   0,  10,  25,  10,  15,   5 ],
  [   8,  12,  24,  28,   8,   4,   4,   4,  10,  28,  16,  12,   4 ],
  [  10,   9,  24,  23,  10,   5,   5,   5,  14,  23,  14,  15,   5 ],
  [   8,  12,  24,  28,   8,   4,   4,   4,  16,  28,  10,  12,   4 ],
  [  12,   6,  24,  18,  12,   6,   6,   6,  12,  30,  12,  12,   6 ],
  [  12,   6,  24,  18,  12,   6,   6,   6,  12,  30,  12,  18,   0 ] ]
gap> 

get_intersection_matrix_Iknm(km, label);

Example:



block_intersection_type(design_orbits, orbit_index, intersection_vector, k_min, k_max, orbit_length);

Example:

gap> V := get_intersection_matrix_Iknn(km, "0");;
discreta_batch get_intersection_matrix_Iknn KM_PGGL_2_32_t5_k6.txt discreta_ba\
tch_output.g discreta_tmp 0 
gap> VV := V[4];;
gap> I := block_intersection_type(O, 1, VV, 0, 5, ol);
[ 161840, 264946, 143770, 32160, 2795, 104 ]
gap> 

block_intersection_type_decomposed(design_orbits, orbit_index, intersection_vector, k_min, k_max, orbit_length);

Example:

gap> V := get_intersection_matrix_Iknn(km, "0");;
discreta_batch get_intersection_matrix_Iknn KM_PGGL_2_32_t5_k6.txt discreta_ba\
tch_output.g discreta_tmp 0 
gap> VV := V[4];;
gap> I := block_intersection_type(O, 1, VV, 0, 5, ol);
[ 161840, 264946, 143770, 32160, 2795, 104 ]
gap> I := block_intersection_type_decomposed(O, 1, VV, 0, 5, ol);
[ [ 21871, 21866, 43744, 43738, 21871, 8750 ], 
  [ 35800, 35824, 71590, 71620, 35800, 14312 ], 
  [ 19435, 19390, 38890, 38830, 19435, 7790 ], 
  [ 4340, 4380, 8660, 8720, 4340, 1720 ], [ 380, 365, 770, 740, 380, 160 ], 
  [ 14, 14, 26, 32, 14, 4 ] ]
gap> 


Back to the DISCRETA-GAP interface
Back to the typical GAP-session
Last updated: July 26, 1999, Evi Haberberger

University of Bayreuth -