: .

"": [] [] [] [] [] [] []
Peaa:
". II "

Author.Today

eaa
  • © Copyright (cbf2001@mail.ru)
  • : 06/08/2008, : 06/08/2008. 74k. .
  • :
  • /: 24 .
  :

   2
   3
   , . 5
  -. 5
   11
   Common LISP . 14
  . 15
  . 21
  . 25
   . 32
   1. Common Lisp . 33
   2. Common Lisp . 35
   3. - 36
   4. . 37
   5. . 38
   6. . 39
   7. . 40
   8. . 41
   9. . 42
   10. . 43
   11. . 44
   12. 'ss.lisp' 45
   13. 'ws.lisp'. 46
  
  
  
   , , , , .
  
   .
  
   , - , , , , .
  
   , - , , , , .
  
  
  
  
   , , , 'kp.lisp' ( 1). 'ms.lisp' ( 2), .
  
   . - 3 - 11.
  
   (WIENER, 1947) W - ( ):
  
   []
  
   di,j - .
  
   (BONCHEV, 1980):
    []
  
   :
  
  
   []
  
  
   []
  
  
  
  
  
   []
  
  
  
  
   []
  
  
   []
  
  
  
   []
  
   'ws.lisp' ( 13).
  
   'TAN.lisp', 'ss.lisp', 'ms.lisp', 'kp.lisp', 'ws.lisp'. 'TAN.lisp' 'a.txt' - Autodesk MAP TPMLINK_-.
  
  
   , .
  
  
  -.
  
   - ' ' ( 'kp.lisp'):
  
   747 ()
   690 ()
   678 ()
   660 ()
   640 ()
   635 ()
   621 ()
   603 ()
   601 ()
   583 ()
   582 ()
   574 ()
   567 ()
   566 ()
   548 ()
   544 ()
   531 ()
   528 ()
   517 (_)
   513 ()
   510 ()
   495 ()
   489 ()
   482 ()
   475 ()
   462 ( )
   455 ()
   444 (_)
   436 ()
   435 ()
   424 ()
   420 ()
   413 ()
   409 ()
   402 ()
   395 ()
   390 (_)
   385 ()
   375 ()
   366 ()
   363 ()
   358 ()
   351 (__2)
   348 ()
   347 ()
   340 ()
   336 (__1)
   328 (1)
   326 ()
   321 (2)
   309 ( )
   308 ( _)
   306 ()
   305 ()
   303 ()
  
   55 ( , ). ' ' ( ), S = 303.
   , S '' '', '', '', '', '', '', '' ..
  
   . 55 59 , .. .
  
  , .
  
   :
  
  ( NIL)
  ( )
  ( )
  ( )
  ( )
  ( 1)
  (1 2)
  ( 1 )
  ( )
  ( )
  ( _)
  (_ )
  ( _ )
  ( )
  ( )
  ( )
  ( )
  ( )
  ( NIL)
  ( NIL)
  ( )
  ( )
  ( )
  ( )
  ( )
  ( 2)
  (2 1)
  ( 2 )
  ( _)
  ( )
  ( _)
  (_ )
  ( _ )
  ( )
  ( )
  ( NIL)
  ( NIL)
  ( )
  ( )
  ( )
  ( __1)
  (__1 __2)
  ( __1 _ )
  (_ )
  ( _ )
  ( NIL)
  ( NIL)
  ( )
  ( )
  ( __2)
  (__2 __1)
  ( __2 )
  ( )
  ( )
  ( )
  ( )
  ( _)
  (_ )
  ( _ NIL)
  
  , - - - - - - - - , .. .
  
   :
  
  ( NIL)
  ( )
  ( )
  ( )
  ( )
  ( 1)
  (1 2)
  ( 1 )
  ( )
  ( )
  ( _)
  (_ )
  ( _ )
  ( )
  ( )
  ( )
  ( )
  ( )
  ( NIL)
  ( NIL)
  ( )
  ( )
  ( )
  ( )
  ( )
  ( 2)
  (2 1)
  ( 2 )
  ( _)
  ( )
  ( _)
  (_ )
  ( _ _ )
  ( )
  ( )
  ( NIL)
  ( NIL)
  ( )
  ( )
  ( )
  ( __1)
  (__1 __2)
  ( __1 _ )
  (_ )
  ( _ _ )
  ( NIL)
  ( NIL)
  ( )
  ( )
  ( __2)
  (__2 __1)
  ( __2 )
  ( )
  ( )
  ( )
  ( )
  ( _)
  (_ )
  ( _ NIL)
  
   :
  
   447 ()
   397 ()
   390 ()
   346 ()
   345 ()
   341 ()
   340 ()
   337 ()
   335 ( )
   326 ()
   324 ()
   323 (1)
   320 ()
   313 ()
   311 (_)
   309 ()
   302 ()
   301 ( 2)
   300 ()
   293 ()
   289 ( )
   288 ( )
   286 ()
   285 ()
   282 ( )
   281 ()
   280 ()
   279 ()
   278 ()
   277 ()
   275 ()
   274 ()
   272 ()
   270 (_ )
   267 ()
   266 ( )
   260 (__1)
   259 (__2)
   253 ()
   249 ()
   244 ()
   234 ()
   233 ()
   232 ()
   231 ()
   229 ()
   225 (_ _)
   213 ()
  
  
   '', (213 303 ).
  
   ( ' '', '', '', '', '', .. , '' ' ' . 54 48.
  
   , '' , , .
  
   - Autodesk MAP.
  
  
  
  
  
  
  1. imageattach, , .
  2. line , (line) .
  
   []
  
  
  
  3. MAPTOPOCREATE, .
  
   []
  
  4. MAPOD2ASE, TPMLINK_- (mdb).
  
  5. 'ss.lisp' ( 12) .
  
  6. 'ms.lisp' 'kp.lisp', 'sisr.txt' :
  
   747 (U01)
   690 (U03)
   678 (U59)
   660 (U02)
   640 (U58)
   635 (U06)
   621 (U57)
   603 (U05)
   601 (U55)
   583 (U56)
   582 (U08)
   574 (U04)
   567 (U50)
   566 (U54)
   548 (U07)
   544 (U52)
   531 (U10)
   528 (U53)
   517 (U09)
   513 (U51)
   510 (U46)
   495 (U11)
   489 (U48)
   482 (U12)
   475 (U49)
   462 (U15 U47)
   455 (U41)
   444 (U13)
   436 (U43)
   435 (U14)
   424 (U45)
   420 (U22)
   413 (U44)
   409 (U18)
   402 (U37)
   395 (U17)
   390 (U16)
   385 (U39)
   375 (U42)
   366 (U40)
   363 (U23)
   358 (U20)
   351 (U32)
   348 (U19)
   347 (U21)
   340 (U31)
   336 (U28)
   328 (U35)
   326 (U36)
   321 (U38)
   309 (U29 U30)
   308 (U24 U25 U34)
   306 (U27)
   305 (U33)
   303 (U26)
  
   , , . 5-6.
  
  
  
  
  
   Common LISP .
  
   'TAN.lisp', 'ss.lisp', 'ms.lisp', 'kp.lisp', 'ws.lisp'. 'TAN.lisp' 'a.txt' - Autodesk MAP TPMLINK_-.
  
  
  
  .
  
   []
  
  
   1693 (U78)
   1617 (U77)
   1543 (U75)
   1471 (U76)
   1401 (U74)
   1333 (U73)
   1267 (U72)
   1211 (U01)
   1203 (U71)
   1141 (U70)
   1135 (U02)
   1081 (U67)
   1061 (U06)
   1053 (U60)
   1023 (U66)
   1011 (U65)
   1005 (U69)
   989 (U13)
   977 (U54)
   967 (U62)
   961 (U05)
   937 (U64)
   931 (U68)
   919 (U17)
   913 (U59)
   911 (U04)
   907 (U03)
   903 (U50)
   889 (U09)
   867 (U61)
   861 (U56 U63)
   851 (U21)
   839 (U07)
   835 (U08)
   831 (U45)
   823 (U12)
   811 (U55)
   801 (U57)
   795 (U58)
   785 (U25)
   773 (U11)
   769 (U10)
   763 (U16 U51)
   761 (U40)
   739 (U52)
   733 (U53)
   721 (U29)
   717 (U49)
   713 (U15)
   709 (U14 U18)
   693 (U39)
   681 (U47)
   675 (U48)
   673 (U46)
   661 (U23)
   659 (U20 U35)
   655 (U19)
   631 (U44)
   627 (U33 U42)
   621 (U43)
   619 (U27)
   611 (U22)
   607 (U24)
   599 (U36)
   591 (U30)
   581 (U37)
   577 (U34)
   573 (U31)
   571 (U41)
   569 (U28)
   567 (U38)
   565 (U26)
   559 (U32)
  
   , '' , , - .
  
   :
  
   N = 78
   W = 31557.5
   W- = 0.37534177
   S-i ( ):
  1693 0.55228984 (U78)
  1617 0.5263158 (U77)
  1543 0.5010253 (U75)
  1471 0.47641832 (U76)
  1401 0.45249486 (U74)
  1333 0.42925495 (U73)
  1267 0.40669855 (U72)
  1211 0.3875598 (U01)
  1203 0.3848257 (U71)
  1141 0.36363637 (U70)
  1135 0.3615858 (U02)
  1081 0.34313056 (U67)
  1061 0.33629528 (U06)
  1053 0.33356118 (U60)
  1023 0.32330826 (U66)
  1011 0.3192071 (U65)
  1005 0.31715652 (U69)
  989 0.3116883 (U13)
  977 0.30758715 (U54)
  967 0.3041695 (U62)
  961 0.30211893 (U05)
  937 0.2939166 (U64)
  931 0.29186603 (U68)
  919 0.28776488 (U17)
  913 0.2857143 (U59)
  911 0.28503075 (U04)
  907 0.2836637 (U03)
  903 0.28229666 (U50)
  889 0.27751195 (U09)
  867 0.26999316 (U61)
  861 0.26794258 (U56 U63)
  851 0.26452494 (U21)
  839 0.26042378 (U07)
  835 0.25905675 (U08)
  831 0.25768968 (U45)
  823 0.25495556 (U12)
  811 0.2508544 (U55)
  801 0.24743678 (U57)
  795 0.2453862 (U58)
  785 0.24196856 (U25)
  773 0.2378674 (U11)
  769 0.23650034 (U10)
  763 0.23444976 (U16 U51)
  761 0.23376623 (U40)
  739 0.22624743 (U52)
  733 0.22419685 (U53)
  721 0.2200957 (U29)
  717 0.21872865 (U49)
  713 0.21736158 (U15)
  709 0.21599454 (U14 U18)
  693 0.21052632 (U39)
  681 0.20642516 (U47)
  675 0.20437457 (U48)
  673 0.20369105 (U46)
  661 0.19958988 (U23)
  659 0.19890636 (U20 U35)
  655 0.1975393 (U19)
  631 0.18933699 (U44)
  627 0.18796992 (U33 U42)
  621 0.18591934 (U43)
  619 0.18523581 (U27)
  611 0.1825017 (U22)
  607 0.18113466 (U24)
  599 0.17840055 (U36)
  591 0.17566644 (U30)
  581 0.17224881 (U37)
  577 0.17088175 (U34)
  573 0.1695147 (U31)
  571 0.16883117 (U41)
  569 0.16814764 (U28)
  567 0.16746412 (U38)
  565 0.16678059 (U26)
  559 0.16473001 (U32)
  
   -:
  
   N = 59
   W = 12769.5
   W- = 0.34016734
   S-i ( ):
  747 0.4168179 (U01)
  690 0.38233516 (U03)
  678 0.3750756 (U59)
  660 0.36418632 (U02)
  640 0.3520871 (U58)
  635 0.34906232 (U06)
  621 0.34059286 (U57)
  603 0.32970357 (U05)
  601 0.32849365 (U55)
  583 0.31760436 (U56)
  582 0.3169994 (U08)
  574 0.31215972 (U04)
  567 0.307925 (U50)
  566 0.30732003 (U54)
  548 0.29643074 (U07)
  544 0.29401088 (U52)
  531 0.2861464 (U10)
  528 0.28433153 (U53)
  517 0.27767694 (U09)
  513 0.2752571 (U51)
  510 0.27344224 (U46)
  495 0.26436782 (U11)
  489 0.26073804 (U48)
  482 0.2565033 (U12)
  475 0.2522686 (U49)
  462 0.2444041 (U15 U47)
  455 0.24016939 (U41)
  444 0.23351482 (U13)
  436 0.22867514 (U43)
  435 0.22807017 (U14)
  424 0.22141561 (U45)
  420 0.21899576 (U22)
  413 0.21476103 (U44)
  409 0.2123412 (U18)
  402 0.20810647 (U37)
  395 0.20387174 (U17)
  390 0.20084694 (U16)
  385 0.19782214 (U39)
  375 0.19177254 (U42)
  366 0.18632789 (U40)
  363 0.184513 (U23)
  358 0.1814882 (U20)
  351 0.17725348 (U32)
  348 0.1754386 (U19)
  347 0.17483364 (U21)
  340 0.17059891 (U31)
  336 0.16817906 (U28)
  328 0.16333938 (U35)
  326 0.16212946 (U36)
  321 0.15910466 (U38)
  309 0.15184513 (U29 U30)
  308 0.15124017 (U24 U25 U34)
  306 0.15003026 (U27)
  305 0.14942528 (U33)
  303 0.14821537 (U26)
  
   - :
  
   N = 59
   W = 7005.5
   W- = 0.1628626
   S-i ( ):
  447 0.2353297 ()
  397 0.20508167 ()
  390 0.20084694 ()
  346 0.17422867 ()
  345 0.17362371 ()
  341 0.17120387 ()
  340 0.17059891 ()
  337 0.16878402 ()
  335 0.16757411 ( )
  326 0.16212946 ()
  324 0.16091955 ()
  323 0.16031457 (1)
  320 0.1584997 ()
  313 0.15426497 ()
  311 0.15305506 (_)
  309 0.15184513 ()
  302 0.14761041 ()
  301 0.14700544 ( 2)
  300 0.14640048 ()
  293 0.14216577 ()
  289 0.13974592 ( )
  288 0.13914095 ( )
  286 0.13793103 ()
  285 0.13732608 ()
  282 0.13551119 ( )
  281 0.13490623 ()
  280 0.13430128 ()
  279 0.1336963 ()
  278 0.13309135 ()
  277 0.13248639 ()
  275 0.13127647 ()
  274 0.1306715 ()
  272 0.12946159 ()
  270 0.12825166 (_ )
  267 0.12643678 ()
  266 0.12583183 ( )
  260 0.12220205 (__1)
  259 0.1215971 (__2)
  253 0.11796733 ()
  249 0.11554749 ()
  244 0.112522684 ()
  234 0.10647308 ()
  233 0.105868116 ()
  232 0.10526316 ()
  231 0.104658194 ()
  229 0.10344828 ()
  225 0.101028435 (_ _)
  213 0.0937689 ()
  
  .
  
   []
  
   N = 177
   = 171
   W = 160504.0
   W- = 0.15950693
   S-i ( ):
  3597 0.22214286 (U176)
  3422 0.21077922 (U177)
  3249 0.19954546 (U175)
  3078 0.18844156 (U174)
  2935 0.17915584 (U56)
  2909 0.17746754 (U173)
  2908 0.1774026 (U168)
  2808 0.17090909 (U167)
  2790 0.16974026 (U172)
  2760 0.1677922 (U65)
  2705 0.16422078 (U01)
  2687 0.16305195 (U164)
  2683 0.1627922 (U150)
  2680 0.1625974 (U25)
  2649 0.16058442 (U171)
  2587 0.15655844 (U71)
  2586 0.1564935 (U142)
  2564 0.15506494 (U161)
  2558 0.15467532 (U02)
  2530 0.15285714 (U03)
  2528 0.15272728 (U170)
  2508 0.15142857 (U149 U169)
  2505 0.15123376 (U31)
  2476 0.14935064 (U43)
  2443 0.1472078 (U08)
  2429 0.1462987 (U158)
  2416 0.14545454 (U77)
  2411 0.14512987 (U138)
  2383 0.1433117 (U04)
  2367 0.14227273 (U165)
  2357 0.14162338 (U05)
  2353 0.14136364 (U166)
  2335 0.1401948 (U144)
  2332 0.14 (U39)
  2301 0.13798702 (U50)
  2298 0.13779221 (U18)
  2292 0.1374026 (U151)
  2268 0.13584416 (U11)
  2247 0.13448052 (U81)
  2238 0.1338961 (U134)
  2226 0.13311689 (U162)
  2225 0.13305195 (U125)
  2223 0.13292208 (U14)
  2210 0.13207792 (U06)
  2186 0.13051948 (U07)
  2180 0.13012987 (U163)
  2168 0.12935065 (U15)
  2164 0.1290909 (U140)
  2162 0.12896104 (U86)
  2161 0.1288961 (U46)
  2153 0.12837662 (U148)
  2150 0.12818182 (U13)
  2128 0.12675324 (U54)
  2123 0.12642857 (U21)
  2095 0.12461039 (U23)
  2085 0.12396104 (U157)
  2080 0.123636365 (U90)
  2067 0.12279221 (U128)
  2050 0.121688314 (U126)
  2045 0.12136364 (U20)
  2039 0.12097403 (U09)
  2022 0.119870126 (U16)
  2017 0.11954545 (U10)
  2014 0.11935065 (U152)
  2012 0.11922078 (U143)
  2009 0.119025975 (U160)
  2002 0.11857143 (U12)
  1995 0.118116885 (U137)
  1992 0.117922075 (U49)
  1987 0.1175974 (U92)
  1957 0.11564935 (U59)
  1950 0.115194805 (U27)
  1944 0.11480519 (U155)
  1933 0.11409091 (U153)
  1924 0.113506496 (U28)
  1915 0.11292208 (U94)
  1898 0.11181818 (U120)
  1877 0.110454544 (U127)
  1871 0.11006494 (U141)
  1870 0.11 (U17)
  1850 0.108701296 (U19)
  1840 0.10805195 (U159)
  1829 0.10733766 (U147)
  1828 0.10727273 (U131)
  1825 0.10707792 (U53)
  1814 0.10636364 (U96)
  1805 0.10577922 (U154)
  1788 0.10467532 (U64)
  1779 0.10409091 (U30)
  1755 0.10253247 (U33)
  1752 0.102337666 (U95)
  1731 0.10097402 (U114)
  1730 0.10090909 (U136)
  1728 0.10077922 (U24)
  1709 0.09954546 (U145)
  1708 0.09948052 (U22)
  1706 0.099350646 (U122)
  1673 0.09720779 (U156)
  1663 0.096558444 (U129)
  1660 0.096363634 (U55)
  1643 0.09525974 (U100)
  1621 0.09383117 (U70)
  1610 0.09311688 (U36)
  1607 0.09292208 (U80)
  1591 0.091883115 (U108)
  1589 0.091753244 (U133)
  1588 0.09168831 (U37)
  1587 0.09162337 (U139)
  1583 0.09136364 (U73)
  1581 0.09123377 (U29)
  1566 0.09025974 (U110)
  1564 0.09012987 (U74)
  1561 0.089935064 (U26)
  1549 0.089155845 (U146)
  1537 0.08837663 (U116)
  1505 0.086298704 (U47)
  1500 0.08597402 (U118)
  1497 0.08577922 (U60)
  1474 0.084285714 (U106)
  1463 0.08357143 (U98)
  1459 0.08331169 (U42)
  1458 0.08324675 (U99 U132)
  1456 0.08311688 (U72)
  1453 0.08292208 (U75)
  1448 0.082597405 (U130)
  1443 0.08227273 (U40)
  1432 0.08155844 (U93)
  1429 0.08136363 (U35)
  1423 0.08097403 (U41 U135)
  1417 0.080584414 (U97)
  1415 0.08045454 (U51)
  1409 0.08006494 (U32)
  1403 0.079675324 (U104)
  1394 0.07909091 (U52)
  1387 0.07863636 (U48)
  1381 0.07824675 (U58)
  1370 0.07753247 (U111)
  1366 0.07727273 (U105)
  1359 0.07681818 (U89)
  1354 0.07649351 (U82)
  1346 0.075974025 (U44)
  1340 0.07558442 (U34)
  1338 0.07545455 (U107)
  1336 0.07532468 (U61)
  1330 0.07493506 (U38)
  1328 0.07480519 (U63)
  1327 0.07474026 (U91)
  1322 0.07441559 (U119)
  1317 0.074090905 (U45)
  1311 0.0737013 (U83)
  1310 0.07363636 (U66)
  1307 0.07344156 (U109 U115)
  1304 0.073246755 (U79)
  1302 0.07311688 (U88)
  1295 0.07266234 (U124)
  1293 0.07253247 (U85)
  1287 0.072142854 (U68)
  1286 0.07207792 (U113)
  1284 0.07194805 (U67)
  1283 0.07188312 (U103)
  1281 0.07175325 (U57)
  1280 0.07168831 (U62)
  1272 0.07116883 (U69)
  1265 0.07071429 (U121)
  1263 0.07058442 (U102)
  1261 0.070454545 (U84 U87)
  1257 0.0701948 (U78 U112)
  1253 0.06993507 (U123)
  1243 0.06928571 (U76)
  1238 0.06896104 (U117)
  1223 0.06798701 (U101)
  
   , - .
  
   , 3 -, , - (. ).
  
   ( ) 0,06; - = 0,09. - . - .
  
  .
  
   []
  
   N = 376
   = 354
   W = 872595.0
   W- = 0.09126124
   S-i ( ):
  8792 0.12002852 (U372)
  8418 0.114695184 (U370)
  8407 0.11453833 (U343)
  8046 0.10939038 (U366)
  8033 0.10920499 (U336)
  7676 0.104114085 (U361)
  7661 0.10390018 (U328)
  7411 0.10033511 (U11)
  7409 0.10030659 (U368)
  7336 0.0992656 (U364)
  7313 0.09893761 (U05)
  7308 0.09886631 (U358)
  7291 0.09862389 (U320)
  7196 0.09726916 (U01)
  7158 0.096727274 (U300)
  7043 0.09508734 (U376)
  7037 0.09500178 (U17)
  7035 0.09497326 (U359)
  6986 0.09427451 (U375)
  6962 0.09393226 (U355)
  6942 0.093647055 (U352)
  6939 0.09360428 (U06)
  6923 0.093376115 (U307)
  6825 0.09197861 (U101)
  6822 0.09193583 (U02)
  6784 0.09139394 (U294)
  6676 0.08985383 (U44)
  6669 0.08975401 (U374)
  6665 0.089696966 (U19)
  6663 0.08966845 (U356)
  6612 0.08894118 (U371)
  6590 0.08862745 (U348)
  6578 0.088456325 (U342)
  6569 0.08832799 (U170)
  6567 0.08829947 (U10)
  6557 0.088156864 (U292)
  6451 0.086645275 (U106)
  6450 0.086631015 (U03)
  6446 0.08657397 (U91)
  6430 0.086345814 (U259)
  6418 0.08617469 (U283)
  6349 0.08519073 (U96)
  6302 0.0845205 (U49)
  6297 0.084449194 (U373)
  6295 0.08442068 (U28)
  6293 0.08439216 (U360)
  6278 0.084178254 (U362)
  6240 0.083636366 (U365)
  6220 0.08335116 (U331)
  6216 0.083294116 (U330)
  6215 0.083279856 (U108)
  6203 0.08310874 (U255)
  6197 0.083023176 (U16)
  6195 0.082994655 (U182)
  6145 0.08228164 (U60)
  6134 0.08212478 (U291)
  6131 0.082081996 (U335)
  6111 0.081796795 (U239)
  6080 0.08135472 (U04)
  6079 0.08134046 (U111)
  6072 0.08124064 (U89)
  6064 0.08112656 (U266)
  6003 0.080256686 (U14)
  5982 0.07995722 (U67)
  5933 0.079258464 (U139)
  5930 0.07921568 (U52)
  5927 0.0791729 (U31 U369)
  5925 0.07914439 (U367)
  5904 0.07884492 (U225 U353)
  5898 0.07875936 (U15)
  5881 0.07851693 (U120)
  5870 0.07836007 (U354)
  5856 0.07816043 (U323)
  5852 0.078103386 (U321)
  5829 0.077775404 (U20)
  5823 0.07768984 (U197)
  5819 0.0776328 (U286)
  5780 0.07707665 (U270)
  5773 0.07697683 (U72)
  5760 0.07679144 (U84)
  5757 0.07674866 (U327)
  5744 0.07656328 (U07)
  5728 0.07633512 (U71)
  5712 0.07610695 (U08)
  5709 0.07606417 (U117)
  5663 0.0754082 (U279)
  5629 0.07492335 (U24)
  5610 0.0746524 (U76)
  5592 0.07439572 (U203)
  5561 0.07395365 (U36)
  5560 0.07393939 (U56)
  5559 0.07392513 (U140 U363)
  5535 0.07358289 (U135)
  5532 0.07354011 (U345)
  5524 0.07342602 (U18)
  5504 0.07314082 (U153)
  5502 0.0731123 (U349)
  5498 0.07305526 (U316)
  5486 0.072884135 (U311)
  5465 0.072584674 (U276)
  5463 0.07255615 (U29)
  5453 0.07241355 (U209)
  5407 0.07175758 (U85)
  5385 0.07144385 (U318)
  5382 0.07140107 (U65)
  5370 0.07122995 (U12)
  5346 0.0708877 (U09)
  5341 0.0708164 (U121)
  5289 0.070074864 (U268)
  5257 0.06961854 (U26 U189)
  5206 0.068891264 (U27)
  5203 0.06884848 (U357)
  5197 0.06876292 (U46)
  5192 0.06869162 (U63)
  5187 0.068620324 (U142)
  5171 0.06839216 (U217)
  5166 0.068320855 (U176)
  5162 0.068263814 (U334)
  5152 0.06812121 (U23)
  5142 0.06797861 (U301)
  5136 0.06789305 (U339)
  5133 0.06785027 (U277)
  5130 0.06780749 (U163)
  5122 0.067693405 (U303)
  5105 0.06745098 (U185)
  5099 0.067365415 (U33)
  5085 0.06716578 (U214)
  5078 0.067065954 (U144)
  5077 0.067051694 (U88)
  5057 0.066766486 (U337)
  5053 0.066709444 (U332)
  5052 0.06669518 (U195)
  5041 0.06653833 (U154 U236)
  5034 0.0664385 (U58)
  5023 0.06628164 (U25)
  5015 0.066167556 (U309)
  4998 0.065925136 (U22)
  4996 0.065896615 (U201)
  4994 0.065868095 (U341)
  4982 0.06569697 (U13)
  4975 0.06559715 (U127)
  4973 0.065568626 (U172)
  4972 0.065554366 (U322)
  4953 0.065283425 (U317)
  4929 0.064941175 (U295)
  4922 0.06484135 (U188)
  4917 0.06477005 (U256)
  4912 0.064698756 (U333)
  4907 0.06462745 (U289)
  4851 0.06382888 (U346)
  4849 0.06380036 (U351)
  4846 0.063757576 (U288)
  4841 0.063686274 (U161)
  4838 0.06364349 (U34)
  4835 0.06360071 (U55)
  4834 0.06358645 (U220 U280)
  4826 0.06347237 (U68)
  4825 0.06345811 (U115)
  4817 0.06334403 (U130)
  4803 0.063144386 (U141)
  4798 0.063073084 (U278)
  4788 0.06293048 (U290)
  4785 0.0628877 (U261)
  4780 0.0628164 (U304)
  4775 0.0627451 (U344)
  4772 0.06270232 (U325)
  4770 0.0626738 (U59 U247)
  4769 0.06265954 (U312)
  4758 0.062502675 (U128)
  4748 0.06236007 (U187)
  4746 0.06233155 (U319)
  4737 0.06220321 (U38)
  4734 0.06216043 (U202)
  4731 0.062117647 (U100)
  4722 0.061989304 (U329)
  4719 0.061946522 (U228)
  4712 0.061846703 (U275)
  4703 0.06171836 (U95)
  4702 0.0617041 (U194)
  4698 0.061647058 (U308)
  4696 0.061618537 (U103)
  4692 0.0615615 (U64)
  4684 0.061447416 (U32)
  4673 0.06129055 (U350)
  4672 0.06127629 (U347)
  4647 0.060919788 (U297)
  4640 0.060819965 (U264)
  4631 0.06069162 (U263)
  4628 0.06064884 (U30)
  4623 0.06057754 (U229)
  4620 0.06053476 (U21 U258)
  4613 0.060434937 (U157)
  4611 0.060406417 (U138)
  4604 0.060306594 (U298)
  4593 0.060149733 (U293)
  4579 0.05995009 (U47)
  4576 0.05990731 (U213)
  4556 0.059622105 (U48)
  4547 0.05949376 (U252)
  4537 0.059351157 (U114)
  4525 0.059180036 (U274)
  4524 0.059165776 (U338)
  4514 0.05902317 (U310)
  4509 0.058951873 (U306)
  4506 0.058909092 (U246)
  4505 0.05889483 (U87)
  4503 0.05886631 (U313 U340)
  4491 0.058695186 (U271)
  4483 0.058581106 (U80)
  4482 0.058566846 (U180)
  4481 0.058552586 (U37)
  4463 0.058295902 (U257)
  4462 0.05828164 (U69)
  4457 0.05821034 (U267)
  4430 0.057825312 (U249)
  4428 0.05779679 (U178)
  4427 0.05778253 (U254)
  4420 0.057682708 (U281)
  4410 0.057540108 (U305)
  4409 0.057525847 (U146)
  4407 0.057497326 (U262)
  4405 0.057468805 (U41 U299)
  4385 0.0571836 (U237)
  4383 0.05715508 (U109)
  4376 0.057055257 (U260)
  4374 0.057026736 (U40)
  4361 0.056841355 (U250)
  4355 0.056755792 (U235)
  4338 0.05651337 (U287)
  4328 0.056370765 (U302)
  4327 0.056356505 (U45)
  4324 0.056313727 (U39 U42)
  4316 0.056199644 (U62)
  4312 0.056142602 (U149)
  4303 0.05601426 (U57)
  4289 0.055814616 (U282)
  4286 0.055771835 (U324)
  4281 0.055700533 (U269)
  4278 0.055657756 (U244)
  4270 0.055543672 (U265)
  4269 0.055529412 (U54)
  4260 0.05540107 (U35)
  4258 0.055372547 (U245)
  4256 0.05534403 (U230)
  4253 0.05530125 (U231)
  4239 0.055101603 (U253)
  4236 0.055058822 (U296)
  4233 0.055016045 (U53)
  4231 0.054987524 (U81 U234)
  4207 0.054645278 (U43 U284)
  4202 0.054573976 (U190)
  4190 0.05440285 (U162)
  4183 0.05430303 (U79)
  4182 0.05428877 (U148)
  4179 0.05424599 (U241)
  4173 0.054160427 (U123)
  4157 0.053932264 (U199)
  4155 0.053903744 (U83)
  4136 0.0536328 (U75)
  4135 0.05361854 (U248)
  4133 0.05359002 (U242)
  4132 0.053575758 (U232)
  4129 0.053532977 (U174 U326)
  4107 0.05321925 (U204)
  4100 0.05311943 (U73)
  4096 0.053062387 (U74)
  4089 0.052962568 (U219)
  4086 0.052919786 (U119 U166)
  4083 0.052877005 (U159)
  4079 0.052819964 (U273)
  4070 0.052691624 (U61 U177)
  4069 0.052677363 (U77)
  4063 0.0525918 (U104)
  4062 0.05257754 (U160)
  4057 0.05250624 (U143)
  4041 0.052278075 (U50 U145)
  4026 0.052064173 (U136)
  4025 0.052049913 (U238)
  4023 0.05202139 (U211)
  4022 0.05200713 (U315)
  3971 0.051279858 (U137)
  3966 0.051208556 (U222)
  3954 0.051037434 (U240)
  3941 0.05085205 (U158)
  3940 0.05083779 (U102)
  3935 0.050766487 (U227)
  3929 0.050680928 (U113)
  3927 0.050652407 (U216)
  3926 0.050638147 (U147)
  3924 0.050609626 (U110)
  3923 0.050595365 (U251)
  3910 0.050409984 (U51)
  3903 0.05031016 (U78)
  3901 0.05028164 (U82)
  3881 0.049996436 (U152)
  3872 0.049868092 (U150)
  3870 0.04983957 (U134)
  3862 0.04972549 (U224)
  3855 0.04962567 (U132 U151)
  3851 0.049568627 (U122)
  3850 0.049554367 (U118 U169)
  3844 0.049468804 (U116)
  3843 0.049454544 (U206)
  3833 0.049311943 (U70)
  3832 0.049297683 (U99)
  3825 0.04919786 (U112)
  3816 0.04906952 (U171)
  3811 0.048998218 (U98)
  3805 0.048912656 (U126)
  3790 0.048698753 (U243)
  3782 0.04858467 (U131)
  3777 0.048513368 (U221)
  3758 0.048242424 (U173)
  3757 0.048228163 (U233 U314)
  3748 0.048099823 (U191)
  3742 0.04801426 (U168)
  3740 0.04798574 (U93 U107)
  3738 0.04795722 (U66 U223)
  3732 0.047871657 (U186)
  3731 0.047857396 (U175)
  3722 0.047729056 (U183)
  3684 0.047187164 (U105)
  3673 0.047030304 (U193)
  3672 0.047016043 (U192)
  3671 0.047001783 (U92)
  3665 0.04691622 (U207)
  3656 0.04678788 (U272)
  3652 0.04673084 (U200)
  3629 0.046402853 (U196)
  3621 0.04628877 (U133)
  3610 0.04613191 (U90)
  3589 0.04583244 (U125)
  3588 0.045818184 (U226)
  3587 0.045803923 (U181)
  3567 0.045518715 (U94)
  3561 0.045433156 (U215)
  3557 0.045376115 (U218)
  3551 0.045290552 (U184)
  3530 0.044991087 (U165)
  3501 0.04457754 (U86)
  3496 0.04450624 (U129)
  3485 0.044349376 (U179)
  3484 0.044335116 (U124)
  3477 0.044235293 (U285)
  3474 0.04419251 (U97)
  3426 0.043508023 (U212)
  3411 0.043294117 (U164)
  3401 0.043151516 (U205)
  3388 0.04296613 (U210)
  3357 0.042524066 (U198)
  3342 0.04231016 (U155)
  3332 0.04216756 (U156)
  3308 0.041825313 (U167)
  3275 0.041354723 (U208)
  
   .
  
   :
  
   []
  
  
  
  
  
  
  
  
   1. Common Lisp .
  
  ;
  (setq fbit (open "bbit.txt" :direction :input)) (setq nir (read fbit))
  (setq sb ())
  (loop for i from 0 to (1- nir) do (setq ii (read fbit)) (print ii)
   (set ii (read fbit)) (setq sb (append sb (list ii)))) (close fbit)
  (setq d0 (make-array (list nir nir) :initial-element 9999999999999999))
  (setq d1 (make-array (list nir nir)))
  (print " ")
  (loop for i from 0 to (1- nir) do (print i)
   (loop for j from 0 to (1- nir) do
   (cond ((= i j) (setf (aref d0 i j) 0))
   (t (cond ((> (bit (eval (nth i sb)) j) 0) (setf (aref d0 i j) 1)))))
   (setf (aref d1 i j) (aref d0 i j))))
  (print " ")
  (loop for m from 0 to (1- nir) do (print (list m (nth m sb)))
   (loop for i from 0 to (1- nir) do (print (list m (nth m sb) i))
   (loop for j from 0 to (1- nir) do (print (list m (nth m sb) i j))
   (cond ((= i j) (setf (aref d1 i j) 0))
   (t (setq a1 (+ (aref d0 i m) (aref d0 m j))) (setq a2 (aref d0 i j))
   (setf (aref d1 i j) (min a1 a2))))))
   (setq d0 d1) (setq d1 d0))
  (print " ")
  (loop for i from 0 to (1- nir) do
   (setq sd 0)
   (loop for j from 0 to (1- nir) do
   (setq sd (+ sd (aref d1 i j)))) (set (nth i sb) sd))
  (defun sorl (l) (setq ls ()) (setq lcop (copy-list l))
   (loop (setq max -1)
   (dolist (i lcop) (cond ((> (eval i) max) (setq xmax i) (setq max (eval i)))))
   (setq ls (cons xmax ls)) (setq lcop (delete xmax lcop))
   (cond ((eq lcop nil) (return)))) (setq ls (reverse ls)))
  (setq fmkp (open "mkp.txt" :direction :output))
  (print " ")
  (loop for i from 0 to (1- nir) do (princ (format nil "~10S" (nth i sb)) fmkp) (princ (format nil "~5D" (eval (nth i sb))) fmkp)
   (loop for j from 0 to (1- nir) do
   (princ (format nil "~4D" (aref d1 i j)) fmkp)) (terpri fmkp))
  (close fmkp) (print " ") (setq sb (sorl sb))
  (setq skp ()) (setq kpi (eval (car sb))) (setq skpi (list (car sb))) (setq nkpi (list (eval (car sb))))
  (print " ")
  (dolist (i (cdr sb)) (cond ((= (eval i) kpi) (setq skpi (append skpi (list i))))
   (t (setq skp (append skp (list skpi)))
   (setq kpi (eval i)) (setq skpi (list i))
   (setq nkpi (append nkpi (list (eval i)))))))
  (setq skp (append skp (list skpi)))
  (setq fisr (open "sisr.txt" :direction :output))
  (print " ")
  (loop for i from 0 to (1- (length skp)) do
   (princ (format nil "~5D" (nth i nkpi)) fisr) (princ " " fisr) (princ (nth i skp) fisr) (terpri fisr))
  (close fisr)
  
   2. Common Lisp .
  
  ;
  (setq fi (open "bb.txt" :direction :input)) (setq nir (read fi))
  (setq ba (make-array nir :element-type 'bit :initial-element 0))
  (setq si ())
  (loop for i from 0 to (1- nir) do (setq ii (read fi))
   (set (car ii) (list (cdr ii) ba))
   (setq si (append si (list (car ii))))) (close fi)
  (setq fbit (open "bbit.txt" :direction :output))
  (dolist (i si) (princ (list i (car (eval i)) (cadr (eval i))) fbit) (terpri fbit)) (close fbit)
  (setq fbit (open "bbit.txt" :direction :input))
  (setq si ())
  (loop for i from 0 to (1- nir) do
   (setq s (read fbit)) (set (car s) (cdr s))
   (setq si (append si (list (car s)))))
  (dolist (i si) (print i) (setq p0 (position i si)) (print "___")
   (dolist (j (car (eval i))) (setq p (position j si)) (print "+++")
   (print p)
   (cond (p (setf (bit (car (last (eval (nth p si)))) p0) 1)))))
  (close fbit)
  (setq fbit (open "bbit.txt" :direction :output)) (princ nir fbit) (terpri fbit)
  (dolist (i si) (princ (format nil "~10S" i) fbit) (princ " " fbit) (princ (car (last (eval i))) fbit) (terpri fbit))
  (close fbit)
  
  
  
   3. -
  
   []
  
  
   4. .
   []
  
   5. .
   []
  
   6. .
   []
  
   7. .
   []
  
  
   8. .
   []
  
  
   9. .
   []
  
  
   10. .
   []
  
  
   11. .
   []
  
  
   12. 'ss.lisp'
  
  ;
  (setq fdb (open "a.txt" :direction :input))
  (setq fsp (open "aa.txt" :direction :output))
  (setq fl (file-length fdb))
  (setq fst (read-line fdb)) (setq lst (length fst)) (setq fst (concatenate 'string "(" fst ")")) (princ fst fsp) (terpri fsp)
  (setq nn 0)
  (loop (cond ((> (- fl (file-position fdb)) lst)
   (setq fst (read-line fdb)) (setq nn (1+ nn))
   (setq fst (concatenate 'string "(" fst ")")) (print fst) (princ fst fsp) (terpri fsp)) (t (return))))
  (close fdb) (close fsp)
  ;
  (setq faa (open "aa.txt" :direction :input))
  (setq saa ())
  (loop for i from 0 to nn do (setq saa (append saa (list (read faa))))) (close faa)
  (setq su ())
  (dolist (i saa) (setq su (append su (list (nth 1 i) (nth 2 i)))))
  (setq su (remove-duplicates su)) (setq su (sort su '<)) (setq nu (length su))
  ;
  (setq sd ())
  (dolist (i saa) (setq sd (append sd (list (list (nth 1 i) (nth 2 i)))))) (setq nd (length sd))
  ;
  (loop for i from 0 to (1- nu) do (if (< (nth i su) 10) (setf (nth i su) (format nil (concatenate 'string "u" "~2,'0D") (nth i su)))
   (setf (nth i su) (format nil (concatenate 'string "u" "~D") (nth i su)))))
  (dolist (i sd)
   (if (< (nth 0 i) 10) (setf (nth 0 i) (format nil (concatenate 'string "u" "~2,'0D") (nth 0 i)))
   (setf (nth 0 i) (format nil (concatenate 'string "u" "~D") (nth 0 i))))
   (if (< (nth 1 i) 10) (setf (nth 1 i) (format nil (concatenate 'string "u" "~2,'0D") (nth 1 i)))
   (setf (nth 1 i) (format nil (concatenate 'string "u" "~D") (nth 1 i)))))
  (setq lu ())
  (dolist (i su) (setq lu (append lu (list (read-from-string i)))))
  (setq ld ())
  (dolist (i sd) (setq ld (append ld (list (list (read-from-string (nth 0 i)) (read-from-string (nth 1 i)))))))
  
  ;
  (setq ssm ())
  (dolist (i lu) (setq ssmi (list i))
   (dolist (j ld) (cond ((member i j) (setq ssmi (append ssmi (set-difference j (list i)))))))
   (setq ssm (append ssm (list ssmi))))
  
  ;
  (setq fbb (open "bb.txt" :direction :output))
  (princ nu fbb) (terpri fbb)
  (dolist (i ssm) (princ i fbb) (terpri fbb))
  (close fbb)
  
  
  
  
   13. 'ws.lisp'.
  
  ; - ( ).
  (setq fi (open "sisr.txt" :direction :input))
  (setq fo (open "sisrs.txt" :direction :output))
  (setq ni 0)
  (loop when (setq li (read-line fi nil)) do
   (setq st (concatenate 'string "(" li ")")) (setq ni (1+ ni)) (print st) (princ st fo) (terpri fo)
   else do (return))
  (close fi) (close fo)
  (setq fi (open "sisrs.txt" :direction :input))
  (setq si ())
  (loop when (setq li (read fi nil)) do
   (setq si (append si (list li)))
   else do (return))
  (close fi)
  ; ()
  (setq fbb (open "bb.txt" :direction :input)) (setq n (read fbb)) (close fbb)
  (setq smin (1- n)) (setq smax (/ (* n (1- n)) 2.0))
  (setq wmin (/ (* n (1- n)) 2.0))
  (setq wmax 0)
  (loop for i from 1 to n do
   (setq w1 0) (setq w2 0)
   (loop for j from 0 to (1- i) do (setq w1 (+ w1 j)))
   (loop for j from 0 to (- n i) do (setq w2 (+ w2 j)))
   (setq wmax (+ wmax w1 w2)))
  (setq wmax (/ wmax 2.0))
  ; -
  (setq win 0.0)
  (dolist (i si) (setq win (+ win (* (car i) (length (cdr i))))))
  (setq win (/ win 2.0))
  (setq wino (/ (- win wmin) (- wmax wmin)))
  ;
  (setq sio ())
  (dolist (i si) (setq sioi (/ (- (car i) smin) (- smax smin))) (setq sio (append sio (list (list sioi (car (cdr i)))))))
  ;
  (setq fws (open "ws.txt" :direction :output))
  (princ " N = " fws) (princ n fws) (terpri fws)
  (princ " = " fws) (princ (length si) fws) (terpri fws)
  (princ " W = " fws) (princ win fws) (terpri fws)
  (princ " W- = " fws) (princ wino fws) (terpri fws)
  (princ " S-i ( ): " fws) (terpri fws)
  (loop for i from 0 to (1- (length si)) do
   (princ (car (nth i si)) fws) (princ " " fws) (princ (car (nth i sio)) fws) (princ " " fws) (princ (car (cdr (nth i si))) fws) (terpri fws))
  (close fws)
  
  • © Copyright (cbf2001@mail.ru)
  • : 06/08/2008, : 06/08/2008. 74k. .
  • :
  :

LitNet.com . " "() . " 3"() . ": "() . ": "() . ". "( ) . " "( ) . " "() . " "() " . - !"( ) . " "( )
Хиты на ProdaMan.ru Море счастья. Тайна ЛиКукла Его Высочества. Эвелина ТеньВальпургиева ночь. Ксения ЭшлиГорящая путевка, или Девяносто, помноженные на девяносто. Нина РосаЛили. Сезон первый. Анна ОрловаКошачья магия. Нелли ИгнатоваЧерный глаз. Проникновение. Ирина ГрачильеваПомни меня...1. Альбина Новохатько IАномальная любовь. Елена ЗеленоглазаяМое тело напротив меня. Конец света по-эльфийски. Том 3. Умнова Елена
.

, :
" "" . "" . """ ., . " "

o
- "" .. || .. ' ""