NB. J keel, versioon 6 NB. jsoftware.com load 'c:\kursa\IDN5120\Tour_moodul.txt' + tabel =: 737734 gettable 3 6 0 0 0 1 1 0 0 0 1 0 1 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 1 0 1 1 1 0 0 0 0 all_seqs_=: all_seqs #y NB. 2x kiirem, 25% mälumahukam all_seqs =: 13 : '(bdiag y) sort_table ((i.!y) A. (i.y))' all_seqs_=: all_seqs #tabel $ all_seqs_ 720 6 6 all_rankings5 tabel NB. rikete arv optimaalses paremusjärjestuses 2 all_rankings2 tabel NB. optimaalsed paremusjärjestused 0 1 2 4 3 5 0 1 4 2 3 5 1 0 2 4 3 5 1 0 4 2 3 5 1 2 0 4 3 5 1+ all_rankings2 tabel 1 2 3 5 4 6 1 2 5 3 4 6 2 1 3 5 4 6 2 1 5 3 4 6 2 3 1 5 4 6 load 'c:\kursa\IDN5120\AHP_Bill_ver6.txt' (%+/) power tabel NB. omavektor1 power meetodi abil 0.157873 0.192428 0.17168 0.110021 0.17168 0.196318 \:~ (%+/) power tabel NB. ümberjärjestatud 0.196318 0.192428 0.17168 0.17168 0.157873 0.110021 \: (%+/) power tabel NB. paremusjärjestus omavektori kaalude alusel 5 1 2 4 0 3 tabel sort_table \: (%+/) power tabel NB. turniiritabeli ümberjärjestus omavektori alusel 0 1 0 0 1 0 0 0 1 1 0 0 1 0 0 0 0 1 1 0 0 0 0 1 0 0 0 1 0 1 1 0 0 0 0 0 /: \: (%+/) power tabel 4 1 2 5 3 0 >: /: \: (%+/) power tabel 5 2 3 6 4 1 mp=: +/ . * NB. maatrikskorrutis mp~ tabel NB. tabeli maatrikskorrutis iseendaga 0 0 0 1 0 2 0 0 0 2 0 2 1 1 0 0 0 1 1 1 0 0 0 0 1 1 0 0 0 1 0 0 1 1 2 0 mp~^:(i.8) tabel NB. turniiritabeli maatrikskorrutis iseendaga. Iteratiivselt. 0 0 0 1 1 0 0 0 1 0 1 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 1 0 1 1 1 0 0 0 0 0 0 0 1 0 2 0 0 0 2 0 2 1 1 0 0 0 1 1 1 0 0 0 0 1 1 0 0 0 1 0 0 1 1 2 0 1 1 2 2 4 0 2 2 2 2 4 0 0 0 1 4 2 4 0 0 0 3 0 4 0 0 1 4 2 4 4 4 0 0 0 3 3 3 10 34 20 32 6 6 14 38 28 32 16 16 3 24 6 40 16 16 0 9 0 24 16 16 3 24 6 40 24 24 16 16 32 9 1819 1819 674 1754 1348 2496 2102 2102 782 2294 1564 3264 1632 1632 1051 2224 2102 2320 864 864 768 1617 1536 1456 1632 1632 1051 2224 2102 2320 1456 1456 864 3168 1728 3921 1.55818e7 1.55818e7 8.2772e6 2.26038e7 1.65544e7 2.75091e7 1.8805e7 1.8805e7 1.0108e7 2.77762e7 2.02161e7 3.36884e7 1.68442e7 1.68442e7 9.40251e6 2.45646e7 1.8805e7 2.90501e7 1.06649e7 1.06649e7 6.17933e6 1.58489e7 1.23587e7 1.83852e7 1.68442e7 1.68442e7 9.40251e6 2.45646e7 1.8805e7 2.90501e7 1.83852e7 1.83852e7 1.06649e7 2.92029e7 2.13298e7 3.43868e7 1.70091e15 1.70091e15 9.53013e14 2.55658e15 1.90603e15 3.03646e15 2.07303e15 2.07303e15 1.16178e15 3.11632e15 2.32356e15 3.70085e15 1.85043e15 1.85043e15 1.03652e15 2.77919e15 2.07303e15 3.30083e15 1.18603e15 1.18603e15 6.64392e14 1.78076e15 1.32878e15 2.11479e15 1.85043e15 1.85043e15 1.03652e15 2.77919e15 2.07303e15 3.30083e15 2.11479e15 2.11479e15 1.18603e15 3.17921e15 2.37207e15 3.77394e15 2.11632e31 2.11632e31 1.18604e31 3.18011e31 2.37209e31 3.77628e31 2.57955e31 2.57955e31 1.44564e31 3.87617e31 2.89129e31 4.60283e31 2.30142e31 2.30142e31 1.28977e31 3.45824e31 2.57955e31 4.10655e31 1.47486e31 1.47486e31 8.26552e30 2.21621e31 1.6531e31 2.63169e31 2.30142e31 2.30142e31 1.28977e31 3.45824e31 2.57955e31 4.10655e31 2.63169e31 2.63169e31 1.47486e31 3.95452e31 2.94973e31 4.69587e31 mp~^:(7) tabel 2.11632e31 2.11632e31 1.18604e31 3.18011e31 2.37209e31 3.77628e31 2.57955e31 2.57955e31 1.44564e31 3.87617e31 2.89129e31 4.60283e31 2.30142e31 2.30142e31 1.28977e31 3.45824e31 2.57955e31 4.10655e31 1.47486e31 1.47486e31 8.26552e30 2.21621e31 1.6531e31 2.63169e31 2.30142e31 2.30142e31 1.28977e31 3.45824e31 2.57955e31 4.10655e31 2.63169e31 2.63169e31 1.47486e31 3.95452e31 2.94973e31 4.69587e31 load 'stats' (%+/)~ geomean"1 (mp~^:(7) tabel) NB. omavektor1 kaalud 0.157873 0.192428 0.17168 0.110021 0.17168 0.196318 tabel sort_table \: (%+/)~ geomean"1 (mp~^:(7) tabel) NB. ümberjärjestatud turniiritabel omavektori alusel 0 1 0 0 1 0 0 0 1 1 0 0 1 0 0 0 0 1 1 0 0 0 0 1 0 0 0 1 0 1 1 0 0 0 0 0