* * Ort.prg * declare knoten[26] declare tnoten[26] declare kante[2526] declare erstkn[26] declare compkn[26] comp = 0 sum_e01 = 0 sum_e02 = 0 sum_e03 = 0 sum_e04 = 0 sum_e05 = 0 sum_e06 = 0 sum_e07 = 0 sum_e08 = 0 sum_e09 = 0 sum_e10 = 0 sum_e11 = 0 sum_e12 = 0 sum_e13 = 0 snr01 = 0 snr02 = 0 snr03 = 0 snr04 = 0 snr05 = 0 snr06 = 0 snr07 = 0 snr08 = 0 snr09 = 0 snr10 = 0 snr11 = 0 snr12 = 0 snr13 = 0 snr14 = 0 snr15 = 0 snr16 = 0 snr17 = 0 snr18 = 0 snr19 = 0 snr20 = 0 snr21 = 0 snr22 = 0 snr23 = 0 snr24 = 0 snr25 = 0 snr26 = 0 sich13 = 0 alles_x = 16190 sum_min = 0 min_max = 0 sum_max = 9000 sum_may = 9999 runde = 0 ************************ clear nr = 1 do while nr < 27 knoten[nr] = 0 nr = nr + 1 enddo nr = 1 do while nr < 27 tnoten[nr] = 0 nr = nr + 1 enddo nr = 1 do while nr < 27 erstkn[nr] = 0 nr = nr + 1 enddo nr = 1 do while nr < 27 compkn[nr] = 0 nr = nr + 1 enddo nr = 1 do while nr < 2527 kante[nr] = 0 nr = nr + 1 enddo @ 01,16 say "Maximale L„nge des Gesamtgraphen .................:" @ 02,16 say "Unterer Grenzwert: alle Teilgraphen gr”áer als ...:" @ 03,16 say "Oberer Grenzwert: alle Teilgraphen kleiner/gleich:" @ 04,16 say "Berechnungs-Start: 1.Teilgraph kleiner/gleich ....:" @ 01,70 get alles_x @ 02,70 get sum_min @ 03,70 get min_max @ 04,70 get sum_max read ***** Beginn aller Rundreisen ******************************* @ 01,03 say time() datei = "KN" + ltrim(str(sum_min)) + ".TXT" set print on set printer to &datei set console off ? time() ? ? " Maximale L„nge des Gesamtgraphen .................: " + str(alles_x) ? " Unterer Grenzwert: alle Teilgraphen gr”áer als ...: " + str(sum_min) ? " Oberer Grenzwert: alle Teilgraphen kleiner/gleich: " + str(min_max) ? " Berechnungs-Start: 1.Teilgraph kleiner/gleich ....: " + str(sum_min) ? set console on reise = 0 reise = reise + 1 comp = 0 runde = 0 do kanteneu @ 00,15 say " berechnete Rundreisen:" + str(reise,6) do kante01 ? time() set printer to set print off @ 22,02 say time() @ 23,02 say "Programm-Ende" * * * Ende Ort.prg* * kanteneu.prg * ****** Lissabon kante[102] = 4074 kante[103] = 639 kante[104] = 4326 kante[105] = 4528 kante[106] = 4073 kante[107] = 3730 kante[108] = 3691 kante[109] = 3641 kante[110] = 3354 kante[111] = 3314 kante[112] = 3504 kante[113] = 2671 kante[114] = 3438 kante[115] = 3078 kante[116] = 3148 kante[117] = 2318 kante[118] = 2260 kante[119] = 2098 kante[120] = 2926 kante[121] = 2294 kante[122] = 2299 kante[123] = 1276 kante[124] = 2019 kante[125] = 2542 kante[126] = 1801 * Helsinki kante[203] = 3532 kante[204] = 3128 kante[205] = 3386 kante[206] = 2665 kante[207] = 2562 kante[208] = 383 kante[209] = 907 kante[210] = 2753 kante[211] = 1884 kante[212] = 1035 kante[213] = 3148 kante[214] = 1130 kante[215] = 1855 kante[216] = 1459 kante[217] = 1803 kante[218] = 2337 kante[219] = 1962 kante[220] = 1800 kante[221] = 2571 kante[222] = 2260 kante[223] = 3725 kante[224] = 2422 kante[225] = 1843 kante[226] = 2263 * Madrid kante[304] = 3687 kante[305] = 3889 kante[306] = 3475 kante[307] = 1986 kante[308] = 3466 kante[309] = 3094 kante[310] = 2715 kante[311] = 2675 kante[312] = 1846 kante[313] = 952 kante[314] = 2967 kante[315] = 2605 kante[316] = 2509 kante[317] = 1781 kante[318] = 1718 kante[319] = 1561 kante[320] = 2347 kante[321] = 1728 kante[322] = 1641 kante[323] = 637 kante[324] = 1380 kante[325] = 1903 kante[326] = 1709 * Istanbul kante[405] = 1141 kante[406] = 638 kante[407] = 577 kante[408] = 3356 kante[409] = 3306 kante[410] = 972 kante[411] = 1400 kante[412] = 2689 kante[413] = 2306 kante[414] = 2125 kante[415] = 1656 kante[416] = 2304 kante[417] = 2795 kante[418] = 3141 kante[419] = 2276 kante[420] = 1968 kante[421] = 2046 kante[422] = 2219 kante[423] = 3075 kante[424] = 2363 kante[425] = 2361 kante[426] = 2913 * Athen kante[506] = 1254 kante[507] = 847 kante[508] = 3549 kante[509] = 3499 kante[510] = 1174 kante[511] = 1602 kante[512] = 2798 kante[513] = 2508 kante[514] = 2278 kante[515] = 1858 kante[516] = 2506 kante[517] = 3027 kante[518] = 3296 kante[519] = 2978 kante[520] = 2170 kante[521] = 2248 kante[522] = 2421 kante[523] = 3277 kante[524] = 2565 kante[525] = 2563 kante[526] = 3115 * Bucarest kante[607] = 407 kante[608] = 2825 kante[609] = 2775 kante[610] = 732 kante[611] = 895 kante[612] = 2102 kante[613] = 2050 kante[614] = 1487 kante[615] = 1106 kante[616] = 1749 kante[617] = 2370 kante[618] = 2666 kante[619] = 2295 kante[620] = 1408 kante[621] = 1786 kante[622] = 1850 kante[623] = 2859 kante[624] = 2116 kante[625] = 1950 kante[626] = 2357 * Sofia kante[708] = 2779 kante[709] = 2729 kante[710] = 409 kante[711] = 810 kante[712] = 1981 kante[713] = 1727 kante[714] = 1508 kante[715] = 1060 kante[716] = 1703 kante[717] = 2230 kante[718] = 2564 kante[719] = 2193 kante[720] = 1362 kante[721] = 1463 kante[722] = 1769 kante[723] = 2536 kante[724] = 1793 kante[725] = 1810 kante[726] = 2335 * Stockholm kante[809] = 549 kante[810] = 2370 kante[811] = 1969 kante[812] = 626 kante[813] = 2764 kante[814] = 1665 kante[815] = 1719 kante[816] = 1076 kante[817] = 1420 kante[818] = 1954 kante[819] = 1579 kante[820] = 1417 kante[821] = 2187 kante[822] = 1877 kante[823] = 2839 kante[824] = 2039 kante[825] = 1460 kante[826] = 1880 * Oslo kante[910] = 2320 kante[911] = 1919 kante[912] = 588 kante[913] = 2715 kante[914] = 1615 kante[915] = 1669 kante[916] = 1026 kante[917] = 1370 kante[918] = 1904 kante[919] = 1529 kante[920] = 1367 kante[921] = 2138 kante[922] = 1827 kante[923] = 2789 kante[924] = 1989 kante[925] = 1410 kante[926] = 1830 * Belgrad kante[1011] = 428 kante[1012] = 1637 kante[1013] = 1334 kante[1014] = 1099 kante[1015] = 684 kante[1016] = 1332 kante[1017] = 1823 kante[1018] = 2117 kante[1019] = 1804 kante[1020] = 966 kante[1021] = 1074 kante[1022] = 1247 kante[1023] = 2103 kante[1024] = 1391 kante[1025] = 1389 kante[1026] = 1941 * Budapest kante[1112] = 1345 kante[1113] = 1294 kante[1114] = 698 kante[1115] = 256 kante[1116] = 904 kante[1117] = 1395 kante[1118] = 1752 kante[1119] = 1358 kante[1120] = 568 kante[1121] = 1034 kante[1122] = 1004 kante[1123] = 2093 kante[1124] = 1320 kante[1125] = 979 kante[1126] = 1527 * Kopenhagen kante[1213] = 2083 kante[1214] = 1129 kante[1215] = 915 kante[1216] = 367 kante[1217] = 886 kante[1218] = 1238 kante[1219] = 1030 kante[1220] = 688 kante[1221] = 1507 kante[1222] = 1205 kante[1223] = 2234 kante[1224] = 1533 kante[1225] = 802 kante[1226] = 1252 * Rom kante[1314] = 1872 kante[1315] = 1150 kante[1316] = 1525 kante[1317] = 1661 kante[1318] = 1898 kante[1319] = 1492 kante[1320] = 1300 kante[1321] = 565 kante[1322] = 871 kante[1323] = 1420 kante[1324] = 882 kante[1325] = 1275 kante[1326] = 1413 * Warschau kante[1415] = 718 kante[1416] = 589 kante[1417] = 1216 kante[1418] = 1670 kante[1419] = 1299 kante[1420] = 612 kante[1421] = 1456 kante[1422] = 1298 kante[1423] = 2529 kante[1424] = 1575 kante[1425] = 1064 kante[1426] = 1627 * Wien kante[1516] = 648 kante[1517] = 1139 kante[1518] = 1582 kante[1519] = 1107 kante[1520] = 312 kante[1521] = 837 kante[1522] = 748 kante[1523] = 1928 kante[1524] = 1018 kante[1525] = 723 kante[1526] = 1271 * Berlin kante[1617] = 669 kante[1618] = 1114 kante[1619] = 781 kante[1620] = 337 kante[1621] = 1055 kante[1622] = 859 kante[1623] = 1847 kante[1624] = 1129 kante[1625] = 552 kante[1626] = 1073 * Amsterdam kante[1718] = 530 kante[1719] = 220 kante[1720] = 912 kante[1721] = 1096 kante[1722] = 801 kante[1723] = 1558 kante[1724] = 964 kante[1725] = 416 kante[1726] = 517 * London kante[1819] = 371 kante[1820] = 1257 kante[1821] = 1321 kante[1822] = 942 kante[1823] = 1504 kante[1824] = 991 kante[1825] = 764 kante[1826] = 449 * Brssel kante[1920] = 913 kante[1921] = 927 kante[1922] = 632 kante[1923] = 1338 kante[1924] = 664 kante[1925] = 409 kante[1926] = 297 * Prag kante[2021] = 830 kante[2022] = 668 kante[2023] = 1480 kante[2024] = 950 kante[2025] = 504 kante[2026] = 1071 * Mailand kante[2122] = 305 kante[2123] = 1043 kante[2124] = 317 kante[2125] = 710 kante[2126] = 842 * Zrich kante[2223] = 1052 kante[2224] = 280 kante[2225] = 415 kante[2226] = 572 * Barcelona kante[2324] = 772 kante[2325] = 1295 kante[2326] = 1030 * Genf kante[2425] = 578 kante[2426] = 517 * Frankfurt/M kante[2526] = 567 * Paris * * * Ende kanteneu.prg * * Kante01.prg * nr01 = 1 nr01h = 100 nr02 = 2 knoten[1] = 1 do while nr02 < 27 nr02h = nr01h + nr02 sum_e01 = kante[nr02h] @ 05,02 say nr01 @ 05,12 say nr02 if sum_e01 < (sum_max - 5518) knoten[nr02] = 2 do kante02 knoten[nr02] = 0 endif nr02 = nr02 + 1 enddo * * * Ende Kante01.prg * * Kante02.prg * nr03 = 2 do while knoten[nr03] > 0 nr03 = nr03 + 1 enddo nr03h = nr03 * 100 nr04 = nr03 + 1 knoten[nr03] = 3 do while nr04 < 27 if knoten[nr04] > 0 nr04 = nr04 + 1 loop endif nr04h = nr03h + nr04 sum_e02 = sum_e01 + kante[nr04h] @ 06,02 say nr03 @ 06,12 say nr04 if sum_e02 < (sum_max - 4869) knoten[nr04] = 4 do kante03 knoten[nr04] = 0 endif nr04 = nr04 + 1 enddo knoten[nr03] = 0 * * * Ende Kante02.prg * * Kante03.prg * nr05 = nr03 + 1 do while knoten[nr05] > 0 nr05 = nr05 + 1 enddo nr05h = nr05 * 100 nr06 = nr05 + 1 knoten[nr05] = 5 do while nr06 < 27 if knoten[nr06] > 0 nr06 = nr06 + 1 loop endif nr06h = nr05h + nr06 sum_e03 = sum_e02 + kante[nr06h] @ 07,02 say nr05 @ 07,12 say nr06 if sum_e03 < (sum_max - 4232) knoten[nr06] = 6 do kante04 knoten[nr06] = 0 endif nr06 = nr06 + 1 enddo knoten[nr05] = 0 * * * Ende Kante03.prg * * Kante04.prg * nr07 = nr05 + 1 do while knoten[nr07] > 0 nr07 = nr07 + 1 enddo nr07h = nr07 * 100 nr08 = nr07 + 1 knoten[nr07] = 7 do while nr08 < 27 if knoten[nr08] > 0 nr08 = nr08 + 1 loop endif nr08h = nr07h + nr08 sum_e04 = sum_e03 + kante[nr08h] @ 08,02 say nr07 @ 08,12 say nr08 if sum_e04 < (sum_max - 3464) knoten[nr08] = 8 do kante05 knoten[nr08] = 0 endif nr08 = nr08 + 1 enddo knoten[nr07] = 0 * * * Ende Kante04.prg * * Kante05.prg * nr09 = nr07 + 1 do while knoten[nr09] > 0 nr09 = nr09 + 1 enddo nr09h = nr09 * 100 nr10 = nr09 + 1 knoten[nr09] = 9 do while nr10 < 27 if knoten[nr10] > 0 nr10 = nr10 + 1 loop endif nr10h = nr09h + nr10 sum_e05 = sum_e04 + kante[nr10h] @ 09,02 say nr09 @ 09,12 say nr10 if sum_e05 < (sum_max - 2915) knoten[nr10] = 10 do kante06 knoten[nr10] = 0 endif nr10 = nr10 + 1 enddo knoten[nr09] = 0 * * * Ende Kante05.prg * * Kante06.prg * nr11 = nr09 + 1 do while knoten[nr11] > 0 nr11 = nr11 + 1 enddo nr11h = nr11 * 100 nr12 = nr11 + 1 knoten[nr11] = 11 do while nr12 < 27 if knoten[nr12] > 0 nr12 = nr12 + 1 loop endif nr12h = nr11h + nr12 sum_e06 = sum_e05 + kante[nr12h] @ 10,02 say nr11 @ 10,12 say nr12 if sum_e06 < (sum_max - 2403) knoten[nr12] = 12 do kante07 knoten[nr12] = 0 endif nr12 = nr12 + 1 enddo knoten[nr11] = 0 * * * Ende Kante06.prg * * Kante07.prg * nr13 = nr11 + 1 do while knoten[nr13] > 0 nr13 = nr13 + 1 enddo nr13h = nr13 * 100 nr14 = nr13 + 1 knoten[nr13] = 13 do while nr14 < 27 if knoten[nr14] > 0 nr14 = nr14 + 1 loop endif nr14h = nr13h + nr14 sum_e07 = sum_e06 + kante[nr14h] @ 11,02 say nr13 @ 11,12 say nr14 if sum_e07 < (sum_max - 1994) knoten[nr14] = 14 do kante08 knoten[nr14] = 0 endif nr14 = nr14 + 1 enddo knoten[nr13] = 0 * * * Ende Kante07.prg * * Kante08.prg * nr15 = nr13 + 1 do while knoten[nr15] > 0 nr15 = nr15 + 1 enddo nr15h = nr15 * 100 nr16 = nr15 + 1 knoten[nr15] = 15 do while nr16 < 27 if knoten[nr16] > 0 nr16 = nr16 + 1 loop endif nr16h = nr15h + nr16 sum_e08 = sum_e07 + kante[nr16h] @ 12,02 say nr15 @ 12,12 say nr16 if sum_e08 < (sum_max - 1542) knoten[nr16] = 16 do kante09 knoten[nr16] = 0 endif nr16 = nr16 + 1 enddo knoten[nr15] = 0 * * * Ende Kante08.prg * * Kante09.prg * nr17 = nr15 + 1 do while knoten[nr17] > 0 nr17 = nr17 + 1 enddo nr17h = nr17 * 100 nr18 = nr17 + 1 knoten[nr17] = 17 do while nr18 < 27 if knoten[nr18] > 0 nr18 = nr18 + 1 loop endif nr18h = nr17h + nr18 sum_e09 = sum_e08 + kante[nr18h] @ 13,02 say nr17 @ 13,12 say nr18 if sum_e09 < (sum_max - 1093) knoten[nr18] = 18 do kante10 knoten[nr18] = 0 endif nr18 = nr18 + 1 enddo knoten[nr17] = 0 * * * Ende Kante09.prg * * Kante10.prg * nr19 = nr17 + 1 do while knoten[nr19] > 0 nr19 = nr19 + 1 enddo nr19h = nr19 * 100 nr20 = nr19 + 1 knoten[nr19] = 19 do while nr20 < 27 if knoten[nr20] > 0 nr20 = nr20 + 1 loop endif nr20h = nr19h + nr20 sum_e10 = sum_e09 + kante[nr20h] @ 14,02 say nr19 @ 14,12 say nr20 if sum_e10 < (sum_max - 756) knoten[nr20] = 20 do kante11 knoten[nr20] = 0 endif nr20 = nr20 + 1 enddo knoten[nr19] = 0 * * * Ende Kante10.prg * * Kante11.prg * nr21 = nr19 + 1 do while knoten[nr21] > 0 nr21 = nr21 + 1 enddo nr21h = nr21 * 100 nr22 = nr21 + 1 knoten[nr21] = 21 do while nr22 < 27 if knoten[nr22] > 0 nr22 = nr22 + 1 loop endif nr22h = nr21h + nr22 sum_e11 = sum_e10 + kante[nr22h] @ 15,02 say nr21 @ 15,12 say nr22 if sum_e11 < (sum_max - 500) knoten[nr22] = 22 do kante12 knoten[nr22] = 0 endif nr22 = nr22 + 1 enddo knoten[nr21] = 0 * * * Ende Kante11.prg * * Kante12.prg * nr23 = nr21 + 1 do while knoten[nr23] > 0 nr23 = nr23 + 1 enddo nr23h = nr23 * 100 nr24 = nr23 + 1 knoten[nr23] = 23 do while nr24 < 27 if knoten[nr24] > 0 nr24 = nr24 + 1 loop endif nr24h = nr23h + nr24 sum_e12 = sum_e11 + kante[nr24h] @ 16,02 say nr23 @ 16,12 say nr24 if sum_e12 < (sum_max - 220) knoten[nr24] = 24 do kante13 knoten[nr24] = 0 endif nr24 = nr24 + 1 enddo knoten[nr23] = 0 * * * Ende Kante12.prg * * Kante13.prg * nr25 = nr23 + 1 do while knoten[nr25] > 0 nr25 = nr25 + 1 enddo nr25h = nr25 * 100 nr26 = nr25 + 1 knoten[nr25] = 25 do while nr26 < 27 if knoten[nr26] > 0 nr26 = nr26 + 1 loop endif nr26h = nr25h + nr26 sum_e13 = sum_e12 + kante[nr26h] @ 17,02 say nr25 @ 17,12 say nr26 sum_may = sum_e13 if sum_e13 <= sum_max .and. ; sum_e13 >= sum_min knoten[nr26] = 26 do summe knoten[nr26] = 0 endif nr26 = nr26 + 1 enddo knoten[nr25] = 0 * * * Ende Kante13.prg * * summe.prg * if min_max < sum_e13 sum_max = sum_e13 endif kante[nr01*100+nr02] = 99999 kante[nr03*100+nr04] = 99999 kante[nr05*100+nr06] = 99999 kante[nr07*100+nr08] = 99999 kante[nr09*100+nr10] = 99999 kante[nr11*100+nr12] = 99999 kante[nr13*100+nr14] = 99999 kante[nr15*100+nr16] = 99999 kante[nr17*100+nr18] = 99999 kante[nr19*100+nr20] = 99999 kante[nr21*100+nr22] = 99999 kante[nr23*100+nr24] = 99999 kante[nr25*100+nr26] = 99999 runde = 0 erstkn[nr01] = nr02 erstkn[nr02] = nr01 erstkn[nr03] = nr04 erstkn[nr04] = nr03 erstkn[nr05] = nr06 erstkn[nr06] = nr05 erstkn[nr07] = nr08 erstkn[nr08] = nr07 erstkn[nr09] = nr10 erstkn[nr10] = nr09 erstkn[nr11] = nr12 erstkn[nr12] = nr11 erstkn[nr13] = nr14 erstkn[nr14] = nr13 erstkn[nr15] = nr16 erstkn[nr16] = nr15 erstkn[nr17] = nr18 erstkn[nr18] = nr17 erstkn[nr19] = nr20 erstkn[nr20] = nr19 erstkn[nr21] = nr22 erstkn[nr22] = nr21 erstkn[nr23] = nr24 erstkn[nr24] = nr23 erstkn[nr25] = nr26 erstkn[nr26] = nr25 tsum_max = alles_x - sum_e13 @ 01,16 say "Maximale L„nge des Gesamtgraphen .................:" @ 02,16 say "Maximale L„nge des Komplement-Teilgraphen ........:" @ 03,16 say "aktuelle L„nge des Komplement-Teilgraphen ........:" @ 04,16 say "L„nge des Teilgraphen ............................:" @ 01,70 say str(alles_x) @ 02,70 say str(tsum_max) @ 03,70 say str(tsum_max) @ 04,70 say str(sum_e13) ? sum_e13 do comp01 do kanteneu reise = reise + 1 @ 00,15 say " berechnete Rundreisen:" + str(reise,6) + " " + time() * * * Ende summe.prg * * Comp01.prg * Tnr01 = 1 tnr01h = 100 tnr02 = 2 tnoten[1] = 1 do while tnr02 < 27 tnr02h = tnr01h + tnr02 sum_t01 = kante[tnr02h] @ 05,32 say tnr01 @ 05,42 say tnr02 if sum_t01 < (tsum_max - 5518) tnoten[tnr02] = 2 do comp02 tnoten[tnr02] = 0 endif tnr02 = tnr02 + 1 enddo * * * Ende Comp01.prg * * Comp02.prg * tnr03 = 2 do while tnoten[tnr03] > 0 tnr03 = tnr03 + 1 enddo tnr03h = tnr03 * 100 tnr04 = tnr03 + 1 tnoten[tnr03] = 3 do while tnr04 < 27 if tnoten[tnr04] > 0 tnr04 = tnr04 + 1 loop endif tnr04h = tnr03h + tnr04 sum_t02 = sum_t01 + kante[tnr04h] @ 06,32 say tnr03 @ 06,42 say tnr04 if sum_t02 < (tsum_max - 4869) tnoten[tnr04] = 4 do comp03 tnoten[tnr04] = 0 endif tnr04 = tnr04 + 1 enddo tnoten[tnr03] = 0 * * * Ende Comp02.prg * * Comp03.prg * tnr05 = tnr03 + 1 do while tnoten[tnr05] > 0 tnr05 = tnr05 + 1 enddo tnr05h = tnr05 * 100 tnr06 = tnr05 + 1 tnoten[tnr05] = 5 do while tnr06 < 27 if tnoten[tnr06] > 0 tnr06 = tnr06 + 1 loop endif tnr06h = tnr05h + tnr06 sum_t03 = sum_t02 + kante[tnr06h] @ 07,32 say tnr05 @ 07,42 say tnr06 * if sum_t03 < (tsum_max - 3190) if sum_t03 < (tsum_max - 4232) tnoten[tnr06] = 6 do comp04 tnoten[tnr06] = 0 endif tnr06 = tnr06 + 1 enddo tnoten[tnr05] = 0 * * * Ende Comp03.prg * * Comp04.prg * tnr07 = tnr05 + 1 do while tnoten[tnr07] > 0 tnr07 = tnr07 + 1 enddo tnr07h = tnr07 * 100 tnr08 = tnr07 + 1 tnoten[tnr07] = 7 do while tnr08 < 27 if tnoten[tnr08] > 0 tnr08 = tnr08 + 1 loop endif tnr08h = tnr07h + tnr08 sum_t04 = sum_t03 + kante[tnr08h] @ 08,32 say tnr07 @ 08,42 say tnr08 if sum_t04 < (tsum_max - 3464) tnoten[tnr08] = 8 do comp05 tnoten[tnr08] = 0 endif tnr08 = tnr08 + 1 enddo tnoten[tnr07] = 0 * * * Ende Comp04.prg * * Comp05.prg * tnr09 = tnr07 + 1 do while tnoten[tnr09] > 0 tnr09 = tnr09 + 1 enddo tnr09h = tnr09 * 100 tnr10 = tnr09 + 1 tnoten[tnr09] = 9 do while tnr10 < 27 if tnoten[tnr10] > 0 tnr10 = tnr10 + 1 loop endif tnr10h = tnr09h + tnr10 sum_t05 = sum_t04 + kante[tnr10h] @ 09,32 say tnr09 @ 09,42 say tnr10 if sum_t05 < (tsum_max - 2915) tnoten[tnr10] = 10 do comp06 tnoten[tnr10] = 0 endif tnr10 = tnr10 + 1 enddo tnoten[tnr09] = 0 * * * Ende Comp05.prg * * Comp06.prg * tnr11 = tnr09 + 1 do while tnoten[tnr11] > 0 tnr11 = tnr11 + 1 enddo tnr11h = tnr11 * 100 tnr12 = tnr11 + 1 tnoten[tnr11] = 11 do while tnr12 < 27 if tnoten[tnr12] > 0 tnr12 = tnr12 + 1 loop endif tnr12h = tnr11h + tnr12 sum_t06 = sum_t05 + kante[tnr12h] @ 10,32 say tnr11 @ 10,42 say tnr12 if sum_t06 < (tsum_max - 2403) tnoten[tnr12] = 12 do comp07 tnoten[tnr12] = 0 endif tnr12 = tnr12 + 1 enddo tnoten[tnr11] = 0 * * * Ende Comp06.prg * * Comp07.prg * tnr13 = tnr11 + 1 do while tnoten[tnr13] > 0 tnr13 = tnr13 + 1 enddo tnr13h = tnr13 * 100 tnr14 = tnr13 + 1 tnoten[tnr13] = 13 do while tnr14 < 27 if tnoten[tnr14] > 0 tnr14 = tnr14 + 1 loop endif tnr14h = tnr13h + tnr14 sum_t07 = sum_t06 + kante[tnr14h] @ 11,32 say tnr13 @ 11,42 say tnr14 if sum_t07 < (tsum_max - 1994) tnoten[tnr14] = 14 do comp08 tnoten[tnr14] = 0 endif tnr14 = tnr14 + 1 enddo tnoten[tnr13] = 0 * * * Ende Comp07.prg * * Comp08.prg * tnr15 = tnr13 + 1 do while tnoten[tnr15] > 0 tnr15 = tnr15 + 1 enddo tnr15h = tnr15 * 100 tnr16 = tnr15 + 1 tnoten[tnr15] = 15 do while tnr16 < 27 if tnoten[tnr16] > 0 tnr16 = tnr16 + 1 loop endif tnr16h = tnr15h + tnr16 sum_t08 = sum_t07 + kante[tnr16h] @ 12,32 say tnr15 @ 12,42 say tnr16 if sum_t08 < (tsum_max - 1542) tnoten[tnr16] = 16 do comp09 tnoten[tnr16] = 0 endif tnr16 = tnr16 + 1 enddo tnoten[tnr15] = 0 * * * Ende Comp08.prg * * Comp09.prg * tnr17 = tnr15 + 1 do while tnoten[tnr17] > 0 tnr17 = tnr17 + 1 enddo tnr17h = tnr17 * 100 tnr18 = tnr17 + 1 tnoten[tnr17] = 17 do while tnr18 < 27 if tnoten[tnr18] > 0 tnr18 = tnr18 + 1 loop endif tnr18h = tnr17h + tnr18 sum_t09 = sum_t08 + kante[tnr18h] @ 13,32 say tnr17 @ 13,42 say tnr18 if sum_t09 < (tsum_max - 1093) tnoten[tnr18] = 18 do comp10 tnoten[tnr18] = 0 endif tnr18 = tnr18 + 1 enddo tnoten[tnr17] = 0 * * * Ende Comp09.prg * * Comp10.prg * tnr19 = tnr17 + 1 do while tnoten[tnr19] > 0 tnr19 = tnr19 + 1 enddo tnr19h = tnr19 * 100 tnr20 = tnr19 + 1 tnoten[tnr19] = 19 do while tnr20 < 27 if tnoten[tnr20] > 0 tnr20 = tnr20 + 1 loop endif tnr20h = tnr19h + tnr20 sum_t10 = sum_t09 + kante[tnr20h] @ 14,32 say tnr19 @ 14,42 say tnr20 if sum_t10 < (tsum_max - 756) tnoten[tnr20] = 20 do comp11 tnoten[tnr20] = 0 endif tnr20 = tnr20 + 1 enddo tnoten[tnr19] = 0 * * * Ende Comp10.prg * * Comp11.prg * tnr21 = tnr19 + 1 do while tnoten[tnr21] > 0 tnr21 = tnr21 + 1 enddo tnr21h = tnr21 * 100 tnr22 = tnr21 + 1 tnoten[tnr21] = 21 do while tnr22 < 27 if tnoten[tnr22] > 0 tnr22 = tnr22 + 1 loop endif tnr22h = tnr21h + tnr22 sum_t11 = sum_t10 + kante[tnr22h] @ 15,32 say tnr21 @ 15,42 say tnr22 if sum_t11 < (tsum_max - 500) tnoten[tnr22] = 22 do comp12 tnoten[tnr22] = 0 endif tnr22 = tnr22 + 1 enddo tnoten[tnr21] = 0 * * * Ende Comp11.prg * * Comp12.prg * tnr23 = tnr21 + 1 do while tnoten[tnr23] > 0 tnr23 = tnr23 + 1 enddo tnr23h = tnr23 * 100 tnr24 = tnr23 + 1 tnoten[tnr23] = 23 do while tnr24 < 27 if tnoten[tnr24] > 0 tnr24 = tnr24 + 1 loop endif tnr24h = tnr23h + tnr24 sum_t12 = sum_t11 + kante[tnr24h] @ 16,32 say tnr23 @ 16,42 say tnr24 if sum_t12 < (tsum_max - 220) tnoten[tnr24] = 24 do comp13 tnoten[tnr24] = 0 endif tnr24 = tnr24 + 1 enddo tnoten[tnr23] = 0 * * * Ende Comp12.prg * * Comp13.prg * tnr25 = tnr23 + 1 do while tnoten[tnr25] > 0 tnr25 = tnr25 + 1 enddo tnr25h = tnr25 * 100 tnr26 = tnr25 + 1 tnoten[tnr25] = 25 do while tnr26 < 27 if tnoten[tnr26] > 0 tnr26 = tnr26 + 1 loop endif tnr26h = tnr25h + tnr26 sum_t13 = sum_t12 + kante[tnr26h] @ 17,32 say tnr25 @ 17,42 say tnr26 if sum_t13 <= tsum_max tnoten[tnr26] = 26 do druck tnoten[tnr26] = 0 endif tnr26 = tnr26 + 1 enddo tnoten[tnr25] = 0 * * * Ende Comp13.prg * * Druck.prg * compkn[tnr01] = tnr02 compkn[tnr02] = tnr01 compkn[tnr03] = tnr04 compkn[tnr04] = tnr03 compkn[tnr05] = tnr06 compkn[tnr06] = tnr05 compkn[tnr07] = tnr08 compkn[tnr08] = tnr07 compkn[tnr09] = tnr10 compkn[tnr10] = tnr09 compkn[tnr11] = tnr12 compkn[tnr12] = tnr11 compkn[tnr13] = tnr14 compkn[tnr14] = tnr13 compkn[tnr15] = tnr16 compkn[tnr16] = tnr15 compkn[tnr17] = tnr18 compkn[tnr18] = tnr17 compkn[tnr19] = tnr20 compkn[tnr20] = tnr19 compkn[tnr21] = tnr22 compkn[tnr22] = tnr21 compkn[tnr23] = tnr24 compkn[tnr24] = tnr23 compkn[tnr25] = tnr26 compkn[tnr26] = tnr25 * Pruefung von Teilgraph und Komplement-Teilgraph kn_nr = erstkn[1] @ 19,01 say str(kn_nr,2) kn_nr = compkn[kn_nr] @ 19,04 say str(kn_nr,2) kn_nr = erstkn[kn_nr] @ 19,07 say str(kn_nr,2) kn_nr = compkn[kn_nr] @ 19,10 say str(kn_nr,2) kn_nr = erstkn[kn_nr] @ 19,13 say str(kn_nr,2) *6 kn_nr = compkn[kn_nr] @ 19,16 say str(kn_nr,2) *7 kn_nr = erstkn[kn_nr] @ 19,19 say str(kn_nr,2) *8 kn_nr = compkn[kn_nr] @ 19,22 say str(kn_nr,2) *9 kn_nr = erstkn[kn_nr] @ 19,25 say str(kn_nr,2) *10 kn_nr = compkn[kn_nr] @ 19,28 say str(kn_nr,2) *11 kn_nr = erstkn[kn_nr] @ 19,31 say str(kn_nr,2) *12 kn_nr = compkn[kn_nr] @ 19,34 say str(kn_nr,2) *13 kn_nr = erstkn[kn_nr] @ 19,37 say str(kn_nr,2) *14 kn_nr = compkn[kn_nr] @ 19,40 say str(kn_nr,2) *15 kn_nr = erstkn[kn_nr] @ 19,43 say str(kn_nr,2) *16 kn_nr = compkn[kn_nr] @ 19,46 say str(kn_nr,2) *17 kn_nr = erstkn[kn_nr] @ 19,49 say str(kn_nr,2) *18 kn_nr = compkn[kn_nr] @ 19,52 say str(kn_nr,2) *19 kn_nr = erstkn[kn_nr] @ 19,55 say str(kn_nr,2) *20 kn_nr = compkn[kn_nr] @ 19,58 say str(kn_nr,2) *21 kn_nr = erstkn[kn_nr] @ 19,61 say str(kn_nr,2) *22 kn_nr = compkn[kn_nr] @ 19,64 say str(kn_nr,2) *23 kn_nr = erstkn[kn_nr] @ 19,67 say str(kn_nr,2) *24 kn_nr = compkn[kn_nr] @ 19,70 say str(kn_nr,2) *25 kn_nr = erstkn[kn_nr] @ 19,73 say str(kn_nr,2) *26 kn_nr = compkn[kn_nr] @ 19,76 say str(kn_nr,2) if kn_nr = 1 tsum_max = sum_t13 alles_x = sum_e13 + sum_t13 @ 03,70 say str(tsum_max) @ 05,70 say str(alles_x) @ 20,76 say " " ? time() + " " + str(sum_e13) ; + " " + str(nr01,2) + "-" + str(nr02,2) ; + " " + str(nr03,2) + "-" + str(nr04,2) ; + " " + str(nr05,2) + "-" + str(nr06,2) ; + " " + str(nr07,2) + "-" + str(nr08,2) ; + " " + str(nr09,2) + "-" + str(nr10,2) ; + " " + str(nr11,2) + "-" + str(nr12,2) ; + " " + str(nr13,2) + "-" + str(nr14,2) ? " " ; + " " + str(nr15,2) + "-" + str(nr16,2) ; + " " + str(nr17,2) + "-" + str(nr18,2) ; + " " + str(nr19,2) + "-" + str(nr20,2) ; + " " + str(nr21,2) + "-" + str(nr22,2) ; + " " + str(nr23,2) + "-" + str(nr24,2) ; + " " + str(nr25,2) + "-" + str(nr26,2) ? time() + " " + str(sum_t13) ; + " " + str(tnr01,2) + "-" + str(tnr02,2) ; + " " + str(tnr03,2) + "-" + str(tnr04,2) ; + " " + str(tnr05,2) + "-" + str(tnr06,2) ; + " " + str(tnr07,2) + "-" + str(tnr08,2) ; + " " + str(tnr09,2) + "-" + str(tnr10,2) ; + " " + str(tnr11,2) + "-" + str(tnr12,2) ; + " " + str(tnr13,2) + "-" + str(tnr14,2) ? " " ; + " " + str(tnr15,2) + "-" + str(tnr16,2) ; + " " + str(tnr17,2) + "-" + str(tnr18,2) ; + " " + str(tnr19,2) + "-" + str(tnr20,2) ; + " " + str(tnr21,2) + "-" + str(tnr22,2) ; + " " + str(tnr23,2) + "-" + str(tnr24,2) ; + " " + str(tnr25,2) + "-" + str(tnr26,2) endif * * * Ende druck.prg