*
* ANZAHL.prg
*

clear screen

declare knoten[26]
declare kante[2526]


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

runde   = 0
sum_min = 0
min_max = 0
sum_max = 9000

************************
@ 02,03 say " Ausgangswert: sum_max = Beginn mit Teilgraph maximal  : " 
@ 03,03 say " S u c h e n : min_max = alle Teilgraphen   Obergrenze : " 
@ 04,03 say " S u c h e n : sum_min =    zwischen       Untergrenze : " 
@ 20,03 say " abbrechen = ALT + C  ; debug-Mode = ALT + D " 
@ 02,65 get sum_max
@ 03,65 get min_max
@ 04,65 get sum_min

read

*clear
nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo

nr = 1
do while nr < 2527
kante[nr] = 0
nr = nr + 1
enddo


***** Beginn der Rundreisen *******************************

@ 00,04 say time()

do kanteneu
@ 01,03 say " Anzahl der gefundenen Teilgraphen"  
do kante01

@ 00,13 say time()
@ 22,02 say "Programm-Ende"

*
*
* Ende Anzahl.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

* Brssel
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

* Zrich
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,12 say nr01
   @ 05,22 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,12 say nr03
   @ 06,22 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,12 say nr05
   @ 07,22 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,12 say nr07
   @ 08,22 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,12 say nr09
   @ 09,22 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,12 say nr11
   @ 10,22 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,12 say nr13
   @ 11,22 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,12 say nr15
   @ 12,22 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,12 say nr17
   @ 13,22 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,12 say nr19
   @ 14,22 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,12 say nr21
   @ 15,22 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,12 say nr23
   @ 16,22 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,12 say nr25
   @ 17,22 say nr26
   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
runde = runde + 1
@ 01,42 say runde

@ 05,42 say nr01
@ 05,52 say nr02
@ 06,42 say nr03
@ 06,52 say nr04
@ 07,42 say nr05
@ 07,52 say nr06
@ 08,42 say nr07
@ 08,52 say nr08
@ 09,42 say nr09
@ 09,52 say nr10

@ 10,42 say nr11
@ 10,52 say nr12
@ 11,42 say nr13
@ 11,52 say nr14
@ 12,42 say nr15
@ 12,52 say nr16
@ 13,42 say nr17
@ 13,52 say nr18
@ 14,42 say nr19
@ 14,52 say nr20

@ 15,42 say nr21
@ 15,52 say nr22
@ 16,42 say nr23
@ 16,52 say nr24
@ 17,42 say nr25
@ 17,52 say nr26

@ 17,70 say sum_e13

*
*
* Ende summe.prg