Вверх ↑
Этот топик читают: Гость
Ответов: 106
Рейтинг: 0
#1: 2021-10-20 09:47:55 ЛС | профиль | цитата
Всем большой привет! Энтузиасты, отзовитесь
Помогите пожалуйста решить задачку на поиск ближайшей координаты.
Дано, допустим, 4 координаты из "изначального списка" , потом координаты претерпели изменения (некое смещение и порядок).
Нужно к этим 4м координатам найти 4х "ближайших соседей" из "измененного списка".


Add(MainForm,2953706,21,105)
{
Width=363
Height=594
}
Add(RichEdit,13306860,217,203)
{
Top=355
Width=125
Height=160
Strings=#15:X368.015Y79.690|15:X376.765Y80.940|16:X429.265Y253.440|16:X368.015Y254.690|
ScrollBars=3
}
Add(RichEdit,14485390,217,63)
{
Top=30
Width=125
Height=285
Strings=#15:X364.265Y77.190|15:X381.765Y77.190|15:X369.265Y78.440|15:X368.015Y79.690|15:X408.015Y80.940|15:X405.515Y80.940|15:X401.765Y80.940|15:X383.015Y80.940|15:X379.265Y80.940|15:X376.765Y80.940|15:X374.265Y80.940|15:X370.515Y80.940|15:X366.765Y80.940|15:X358.015Y80.940|15:X355.515Y80.940|15:X353.015Y80.940|15:X350.515Y82.190|15:X363.015Y82.190|15:X365.515Y82.190|15:X378.015Y82.190|15:X380.515Y82.190|15:X400.515Y82.190|15:X404.265Y82.190|15:X406.765Y82.190|15:X348.015Y95.940|15:X349.265Y98.440|15:X363.015Y98.440|15:X379.265Y98.440|15:X408.015Y98.440|16:X378.015Y100.940|15:X364.265Y99.690|16:X365.515Y102.190|16:X376.765Y102.190|16:X384.265Y103.440|16:X381.765Y103.440|16:X374.265Y103.440|16:X370.515Y103.440|16:X366.765Y103.440|16:X356.765Y103.440|16:X355.515Y104.690|16:X369.265Y104.690|16:X376.765Y104.690|16:X368.015Y105.940|16:X390.515Y107.190|16:X393.015Y107.190|16:X426.765Y108.440|16:X419.265Y108.440|16:X415.515Y108.440|16:X413.015Y108.440|16:X408.015Y108.440|16:X405.515Y108.440|16:X403.015Y108.440|16:X400.515Y108.440|16:X398.015Y108.440|16:X388.015Y108.440|16:X385.515Y108.440|16:X383.015Y108.440|16:X376.765Y108.440|16:X353.015Y108.440|16:X351.765Y109.690|16:X354.265Y109.690|16:X356.765Y109.690|16:X360.515Y109.690|16:X366.765Y109.690|16:X373.015Y109.690|16:X381.765Y109.690|16:X384.265Y109.690|16:X386.765Y109.690|16:X389.265Y109.690|16:X391.765Y109.690|16:X396.765Y109.690|16:X399.265Y109.690|16:X401.765Y109.690|16:X404.265Y109.690|16:X411.765Y109.690|16:X414.265Y109.690|16:X418.015Y109.690|16:X420.515Y109.690|16:X433.015Y109.690|16:X435.515Y109.690|16:X429.265Y110.940|16:X408.015Y110.940|16:X395.515Y110.940|16:X378.015Y110.940|16:X393.015Y112.190|16:X409.265Y112.190|16:X424.265Y112.190|16:X408.015Y113.440|16:X378.015Y113.440|16:X363.015Y113.440|16:X349.265Y113.440|16:X423.015Y114.690|16:X410.515Y115.940|16:X360.515Y117.190|16:X384.265Y117.190|16:X398.015Y116.570|16:X395.515Y118.440|16:X385.515Y118.440|16:X373.015Y119.690|16:X385.515Y120.940|16:X391.765Y120.940|16:X398.015Y120.940|16:X385.515Y122.820|16:X405.515Y122.190|16:X411.135Y122.190|16:X371.765Y123.440|16:X360.515Y124.690|16:X373.015Y124.690|16:X381.765Y124.690|16:X385.515Y124.690|16:X398.015Y124.690|16:X409.265Y127.190|16:X348.015Y127.190|16:X363.015Y129.690|16:X409.265Y129.690|16:X423.015Y129.690|16:X424.265Y130.940|16:X408.015Y130.940|16:X394.265Y130.940|16:X391.765Y130.940|16:X379.265Y130.940|16:X351.765Y132.190|16:X354.265Y132.190|16:X356.765Y132.190|16:X359.265Y132.190|16:X366.765Y132.190|16:X369.265Y132.190|16:X371.765Y132.190|16:X374.265Y132.190|16:X381.765Y132.190|16:X384.265Y132.190|16:X386.765Y132.190|16:X389.265Y132.190|16:X396.765Y132.190|16:X399.265Y132.190|16:X401.765Y132.190|16:X406.765Y132.190|16:X409.265Y132.190|16:X433.015Y133.440|16:X429.265Y133.440|16:X426.765Y133.440|16:X423.015Y133.440|16:X413.015Y133.440|16:X404.265Y133.440|16:X400.515Y133.440|16:X398.015Y133.440|16:X395.515Y133.440|16:X390.515Y133.440|16:X388.015Y133.440|16:X385.515Y133.440|16:X383.015Y133.440|16:X378.015Y133.440|16:X375.515Y133.440|16:X373.015Y133.440|16:X370.515Y133.440|16:X368.015Y133.440|16:X360.515Y133.440|16:X358.015Y133.440|16:X355.515Y133.440|16:X353.015Y133.440|16:X350.515Y133.440|16:X349.265Y134.690|16:X403.015Y134.690|16:X405.515Y134.690|16:X410.515Y134.690|16:X428.015Y134.690|16:X435.515Y134.690|16:X419.265Y135.940|16:X416.765Y135.940|16:X414.265Y135.940|16:X411.765Y135.940|16:X408.015Y135.940|16:X364.265Y135.940|16:X350.515Y135.940|16:X415.515Y137.190|16:X418.015Y137.190|16:X420.515Y137.190|16:X384.265Y139.690|16:X381.765Y140.940|16:X398.015Y140.940|16:X401.765Y140.940|16:X434.265Y140.940|16:X431.765Y142.190|16:X370.515Y142.190|16:X368.015Y142.190|16:X359.265Y142.190|16:X353.015Y143.440|16:X355.515Y143.440|16:X358.015Y143.440|16:X366.765Y143.440|16:X369.265Y143.440|16:X378.015Y143.440|16:X383.015Y143.440|16:X385.515Y143.440|16:X388.015Y143.440|16:X390.515Y143.440|16:X393.015Y143.440|16:X401.765Y143.440|16:X404.265Y143.440|16:X413.015Y143.440|16:X415.515Y143.440|16:X430.515Y143.440|16:X434.265Y143.440|16:X435.515Y144.690|16:X433.015Y144.690|16:X429.265Y144.690|16:X426.765Y144.690|16:X420.515Y144.690|16:X418.015Y144.690|16:X414.265Y144.690|16:X411.765Y144.690|16:X409.265Y144.690|16:X396.765Y144.690|16:X394.265Y144.690|16:X389.265Y144.690|16:X386.765Y144.690|16:X384.265Y144.690|16:X380.515Y144.690|16:X375.515Y144.690|16:X360.515Y144.690|16:X356.765Y144.690|16:X354.265Y144.690|16:X351.765Y144.690|16:X361.765Y145.940|16:X365.515Y145.940|16:X376.765Y145.940|16:X393.015Y145.940|16:X408.015Y145.940|16:X438.015Y145.940|16:X424.265Y147.190|16:X409.265Y147.190|16:X394.265Y147.190|16:X379.265Y147.190|16:X364.265Y147.190|16:X348.015Y147.190|16:X349.265Y148.440|16:X363.015Y148.440|16:X393.015Y148.440|16:X423.015Y148.440|16:X438.015Y148.440|16:X348.015Y150.940|16:X410.515Y150.940|16:X422.385Y150.940|16:X385.515Y152.190|16:X360.515Y152.190|16:X370.515Y153.440|16:X373.015Y153.440|16:X375.515Y153.440|16:X379.265Y153.440|16:X384.265Y153.440|16:X398.015Y153.440|16:X401.765Y153.440|16:X413.015Y153.440|16:X415.515Y153.440|16:X423.015Y154.690|16:X418.015Y154.690|16:X414.265Y154.690|16:X393.015Y154.690|16:X385.515Y154.690|16:X360.515Y155.940|16:X369.265Y155.940|16:X373.015Y155.940|16:X398.015Y155.940|16:X435.515Y155.940|16:X369.265Y157.820|16:X373.015Y157.820|16:X385.515Y157.190|16:X410.515Y157.190|16:X384.885Y159.070|16:X404.265Y158.440|16:X409.265Y158.440|16:X416.765Y158.440|16:X420.515Y158.440|16:X425.515Y158.440|16:X359.885Y160.320|16:X373.015Y160.320|16:X394.265Y159.690|16:X398.015Y159.690|16:X410.515Y159.690|16:X433.015Y159.690|16:X435.515Y159.690|16:X423.015Y162.190|16:X409.265Y162.190|16:X394.885Y170.940|16:X393.015Y170.940|16:X384.265Y170.940|16:X379.265Y170.940|16:X376.765Y170.940|16:X374.265Y170.940|16:X371.765Y170.940|16:X369.265Y170.940|16:X366.765Y170.940|16:X360.515Y170.940|16:X355.515Y170.940|16:X397.385Y171.570|16:X399.265Y170.940|16:X401.765Y170.940|16:X405.515Y170.940|16:X408.015Y170.940|16:X410.515Y170.940|16:X414.265Y170.940|16:X416.765Y170.940|16:X419.265Y170.940|16:X421.765Y170.940|16:X429.265Y170.940|16:X431.765Y170.940|16:X435.515Y170.940|16:X438.015Y170.940|16:X424.265Y172.190|16:X409.265Y172.190|16:X383.015Y172.190|16:X380.515Y172.190|16:X366.765Y173.440|16:X394.885Y172.820|16:X411.765Y173.440|16:X426.765Y173.440|16:X425.515Y174.690|16:X394.885Y174.690|16:X380.515Y174.690|16:X364.265Y174.690|16:X366.765Y175.940|16:X411.765Y175.940|16:X426.765Y175.940|16:X379.265Y177.190|16:X391.135Y177.820|16:X428.015Y177.190|16:X415.515Y178.440|16:X403.015Y178.440|16:X389.265Y178.440|16:X365.515Y178.440|16:X428.015Y179.690|16:X378.015Y180.940|16:X366.765Y182.190|16:X369.265Y182.190|16:X384.265Y181.570|16:X385.515Y182.820|16:X403.015Y182.190|16:X410.515Y182.190|16:X420.515Y183.440|16:X415.515Y183.440|16:X390.515Y183.440|16:X373.635Y184.690|16:X385.515Y184.690|16:X399.265Y184.690|16:X403.015Y184.690|16:X423.015Y184.690|16:X415.515Y185.940|16:X410.515Y185.940|16:X401.765Y185.940|16:X390.515Y185.940|16:X378.015Y185.940|16:X374.885Y185.940|16:X418.015Y186.570|16:X428.015Y187.190|16:X426.765Y188.440|16:X365.515Y189.690|16:X366.765Y192.190|16:X380.515Y192.190|16:X394.265Y192.190|16:X411.765Y192.190|16:X428.015Y192.190|16:X436.765Y193.440|16:X434.265Y193.440|16:X431.765Y193.440|16:X429.265Y193.440|16:X425.515Y193.440|16:X403.015Y193.440|16:X399.265Y193.440|16:X396.765Y193.440|16:X391.765Y193.440|16:X389.265Y193.440|16:X385.515Y193.440|16:X381.765Y193.440|16:X379.265Y193.440|16:X368.015Y193.440|16:X359.265Y193.440|16:X356.765Y193.440|16:X354.265Y193.440|16:X351.765Y193.440|16:X355.515Y194.690|16:X370.515Y194.690|16:X388.015Y194.690|16:X393.015Y194.690|16:X395.515Y194.690|16:X398.015Y194.690|16:X400.515Y194.690|16:X404.265Y194.690|16:X408.015Y194.690|16:X410.515Y194.690|16:X413.015Y194.690|16:X419.265Y194.690|16:X421.765Y194.690|16:X424.265Y194.690|16:X426.765Y194.690|16:X430.515Y194.690|16:X433.015Y194.690|16:X435.515Y194.690|16:X438.015Y194.690|16:X423.015Y195.940|16:X420.515Y195.940|16:X418.015Y195.940|16:X415.515Y195.940|16:X411.765Y195.940|16:X409.265Y195.940|16:X406.765Y195.940|16:X401.765Y195.940|16:X391.765Y195.940|16:X389.265Y195.940|16:X386.765Y195.940|16:X384.885Y195.940|16:X383.015Y195.940|16:X379.265Y195.940|16:X376.765Y195.940|16:X374.265Y195.940|16:X371.765Y195.940|16:X369.265Y195.940|16:X373.015Y197.190|16:X375.515Y197.190|16:X378.015Y197.190|16:X405.515Y197.190|16:X410.515Y197.190|16:X414.265Y197.190|16:X416.765Y197.190|16:X419.265Y197.190|16:X400.515Y198.440|16:X370.515Y199.690|16:X373.015Y199.690|16:X375.515Y199.690|16:X394.265Y199.690|16:X399.265Y199.690|16:X403.015Y199.690|16:X406.765Y199.690|16:X430.515Y199.690|16:X433.015Y199.690|16:X435.515Y199.690|16:X438.015Y199.690|16:X436.765Y200.940|16:X434.265Y200.940|16:X431.765Y200.940|16:X429.265Y200.940|16:X415.515Y200.940|16:X413.015Y200.940|16:X410.515Y200.940|16:X408.015Y200.940|16:X405.515Y200.940|16:X401.765Y200.940|16:X396.765Y200.940|16:X389.265Y200.940|16:X386.765Y200.940|16:X381.765Y200.940|16:X379.265Y200.940|16:X374.265Y200.940|16:X371.765Y200.940|16:X369.265Y200.940|16:X351.765Y202.190|16:X356.765Y202.190|16:X360.515Y202.190|16:X368.015Y202.190|16:X376.765Y202.190|16:X380.515Y202.190|16:X388.015Y202.190|16:X390.515Y202.190|16:X393.015Y202.190|16:X395.515Y202.190|16:X398.015Y202.190|16:X403.015Y202.190|16:X414.265Y202.190|16:X416.765Y202.190|16:X420.515Y202.190|16:X423.015Y202.190|16:X426.765Y202.190|16:X411.765Y203.440|16:X396.765Y203.440|16:X379.265Y203.440|16:X366.765Y203.440|16:X365.515Y204.690|16:X380.515Y204.690|16:X426.765Y204.690|16:X365.515Y207.190|16:X426.765Y207.190|16:X365.515Y209.690|16:X378.015Y209.690|16:X401.765Y209.690|16:X403.015Y210.940|16:X390.515Y210.940|16:X384.265Y210.940|16:X379.265Y210.940|16:X373.015Y210.940|16:X355.515Y210.940|16:X374.265Y212.190|16:X368.015Y214.690|16:X389.265Y214.690|16:X401.765Y215.940|16:X390.515Y215.940|16:X386.765Y215.940|16:X381.765Y215.940|16:X371.765Y215.940|16:X378.015Y217.190|16:X403.015Y217.190|16:X426.765Y217.190|16:X379.265Y218.440|16:X365.515Y218.440|16:X365.515Y220.940|16:X380.515Y220.940|16:X410.515Y220.940|16:X426.765Y220.940|16:X411.765Y222.190|16:X395.515Y222.190|16:X381.765Y222.190|16:X368.015Y223.440|16:X413.015Y223.440|16:X426.765Y223.440|16:X436.765Y224.690|16:X434.265Y224.690|16:X431.765Y224.690|16:X429.265Y224.690|16:X421.765Y224.690|16:X419.265Y224.690|16:X416.765Y224.690|16:X414.265Y224.690|16:X409.265Y224.690|16:X406.765Y224.690|16:X404.265Y224.690|16:X395.515Y224.690|16:X393.015Y224.690|16:X390.515Y224.690|16:X388.015Y224.690|16:X384.265Y224.690|16:X376.765Y224.690|16:X369.265Y224.690|16:X366.765Y224.690|16:X359.265Y224.690|16:X356.765Y224.690|16:X351.765Y224.690|16:X438.015Y225.940|16:X435.515Y225.940|16:X433.015Y225.940|16:X430.515Y225.940|16:X423.015Y225.940|16:X418.015Y225.940|16:X408.015Y225.940|16:X405.515Y225.940|16:X403.015Y225.940|16:X396.765Y225.940|16:X391.765Y225.940|16:X389.265Y225.940|16:X386.765Y225.940|16:X378.015Y225.940|16:X375.515Y225.940|16:X373.015Y225.940|16:X370.515Y225.940|16:X364.265Y225.940|16:X404.265Y227.190|16:X398.015Y227.190|16:X374.265Y227.190|16:X371.765Y227.190|16:X376.765Y228.440|16:X395.515Y228.440|16:X399.265Y228.440|16:X401.765Y228.440|16:X421.765Y229.690|16:X403.015Y229.690|16:X393.015Y229.690|16:X390.515Y229.690|16:X388.015Y229.690|16:X385.515Y229.690|16:X380.515Y229.690|16:X375.515Y229.690|16:X373.015Y229.690|16:X370.515Y229.690|16:X358.015Y229.690|16:X355.515Y229.690|16:X353.015Y229.690|16:X351.765Y230.940|16:X354.265Y230.940|16:X356.765Y230.940|16:X360.515Y230.940|16:X369.265Y230.940|16:X371.765Y230.940|16:X374.265Y230.940|16:X378.015Y230.940|16:X381.765Y230.940|16:X384.265Y230.940|16:X386.765Y230.940|16:X389.265Y230.940|16:X391.765Y230.940|16:X399.265Y230.940|16:X401.765Y230.940|16:X405.515Y230.940|16:X408.015Y230.940|16:X414.265Y230.940|16:X416.765Y230.940|16:X420.515Y230.940|16:X423.015Y230.940|16:X433.015Y230.940|16:X435.515Y230.940|16:X436.765Y232.190|16:X434.265Y232.190|16:X431.765Y232.190|16:X429.265Y232.190|16:X396.765Y232.190|16:X394.265Y232.190|16:X383.015Y232.190|16:X380.515Y232.190|16:X361.765Y232.190|16:X350.515Y232.190|16:X364.265Y233.440|16:X395.515Y233.440|16:X428.015Y233.440|16:X438.015Y233.440|16:X426.765Y234.690|16:X410.515Y234.690|16:X396.765Y234.690|16:X380.515Y234.690|16:X366.765Y234.690|16:X363.015Y234.690|16:X349.265Y234.690|16:X346.135Y235.940|16:X426.765Y237.190|16:X410.515Y237.190|16:X398.015Y237.190|16:X348.015Y237.190|16:X360.515Y238.440|16:X373.015Y238.440|16:X385.515Y238.440|16:X404.265Y239.690|16:X394.265Y239.690|16:X386.765Y239.690|16:X384.265Y239.690|16:X359.265Y239.690|16:X351.765Y239.690|16:X375.515Y242.190|16:X410.515Y243.440|16:X369.265Y243.440|16:X373.015Y244.690|16:X385.515Y244.690|16:X401.765Y244.690|16:X428.015Y245.940|16:X396.765Y245.940|16:X386.765Y245.940|16:X384.265Y245.940|16:X374.265Y245.940|16:X360.515Y245.940|16:X410.515Y248.440|16:X426.765Y248.440|16:X395.515Y250.940|16:X381.765Y250.940|16:X365.515Y250.940|16:X363.015Y250.940|16:X349.265Y250.940|16:X397.385Y250.320|16:X410.515Y250.940|16:X426.765Y250.940|16:X438.015Y252.190|16:X435.515Y252.190|16:X428.015Y252.190|16:X396.765Y252.190|16:X380.515Y252.190|16:X361.765Y252.190|16:X351.765Y253.440|16:X354.265Y253.440|16:X356.765Y253.440|16:X359.265Y253.440|16:X369.265Y253.440|16:X371.765Y253.440|16:X374.265Y253.440|16:X376.765Y253.440|16:X379.265Y253.440|16:X384.265Y253.440|16:X386.765Y253.440|16:X389.265Y253.440|16:X391.765Y253.440|16:X399.265Y253.440|16:X401.765Y253.440|16:X404.265Y253.440|16:X406.765Y253.440|16:X414.265Y253.440|16:X418.015Y253.440|16:X421.765Y253.440|16:X429.265Y253.440|16:X433.015Y253.440|16:X435.515Y254.690|16:X430.515Y254.690|16:X423.015Y254.690|16:X419.265Y254.690|16:X408.015Y254.690|16:X405.515Y254.690|16:X403.015Y254.690|16:X400.515Y254.690|16:X395.515Y254.690|16:X393.015Y254.690|16:X390.515Y254.690|16:X388.015Y254.690|16:X385.515Y254.690|16:X383.015Y254.690|16:X378.015Y254.690|16:X375.515Y254.690|16:X373.015Y254.690|16:X370.515Y254.690|16:X368.015Y254.690|16:X360.515Y254.690|16:X358.015Y254.690|16:X355.515Y254.690|16:X433.015Y255.940|
ScrollBars=3
}
Add(RichEdit,9304572,343,203)
{
Left=185
Top=355
Width=125
Height=160
ScrollBars=3
}
Add(Button,1634164,91,287)
{
Left=55
Top=530
Width=150
Caption="Найти ближайшие точки"
}
Add(RichEdit,7219571,343,63)
{
Left=185
Top=30
Width=125
Height=285
Strings=#15:X350.825Y82.400|15:X353.325Y81.150|15:X355.825Y81.150|15:X358.325Y81.150|15:X363.325Y82.400|15:X365.825Y82.400|15:X367.075Y81.150|15:X368.325Y79.900|15:X369.575Y78.650|15:X370.825Y81.150|15:X374.575Y81.150|15:X377.075Y81.150|15:X378.325Y82.400|15:X379.575Y81.150|15:X380.825Y82.400|15:X383.325Y81.150|15:X382.075Y77.400|15:X364.575Y77.400|15:X363.325Y98.650|15:X364.575Y99.900|16:X365.825Y102.400|16:X367.075Y103.650|16:X369.575Y104.900|16:X370.825Y103.650|16:X368.325Y106.150|16:X367.075Y109.900|16:X363.325Y113.650|16:X360.825Y109.900|16:X357.075Y109.900|16:X354.575Y109.900|16:X353.325Y108.650|16:X352.075Y109.900|16:X349.575Y113.650|16:X355.825Y104.900|16:X357.075Y103.650|15:X349.575Y98.650|15:X348.325Y96.150|16:X360.825Y117.400|16:X360.825Y124.900|16:X363.325Y129.900|16:X359.575Y132.400|16:X360.825Y133.650|16:X358.325Y133.650|16:X357.075Y132.400|16:X355.825Y133.650|16:X354.575Y132.400|16:X353.325Y133.650|16:X352.075Y132.400|16:X350.825Y133.650|16:X349.575Y134.900|16:X350.825Y136.150|16:X353.325Y143.650|16:X354.575Y144.900|16:X355.825Y143.650|16:X357.075Y144.900|16:X358.325Y143.650|16:X359.575Y142.400|16:X360.825Y144.900|16:X362.075Y146.150|16:X364.575Y147.400|16:X365.825Y146.150|16:X367.075Y143.650|16:X368.325Y142.400|16:X369.575Y143.650|16:X370.825Y142.400|16:X375.825Y144.900|16:X377.075Y146.150|16:X378.325Y143.650|16:X380.825Y144.900|16:X383.325Y143.650|16:X384.575Y144.900|16:X385.825Y143.650|16:X387.075Y144.900|16:X388.325Y143.650|16:X389.575Y144.900|16:X390.825Y143.650|16:X393.325Y143.650|16:X394.575Y144.900|16:X393.325Y146.150|16:X394.575Y147.400|16:X393.325Y148.650|16:X397.075Y144.900|16:X398.325Y141.150|16:X402.075Y141.150|16:X402.075Y143.650|16:X404.575Y143.650|16:X408.325Y146.150|16:X409.575Y144.900|16:X412.075Y144.900|16:X413.325Y143.650|16:X414.575Y144.900|16:X415.825Y143.650|16:X418.325Y144.900|16:X420.825Y144.900|16:X424.575Y147.400|16:X423.325Y148.650|16:X422.695Y151.150|16:X423.325Y154.900|16:X420.825Y158.650|16:X417.075Y158.650|16:X418.325Y154.900|16:X415.825Y153.650|16:X414.575Y154.900|16:X413.325Y153.650|16:X410.825Y151.150|16:X409.575Y147.400|16:X402.075Y153.650|16:X398.325Y153.650|16:X398.325Y156.150|16:X398.325Y159.900|16:X394.575Y159.900|16:X393.325Y154.900|16:X385.825Y154.900|16:X384.575Y153.650|16:X385.825Y152.400|16:X385.825Y157.400|16:X385.195Y159.280|16:X379.575Y153.650|16:X375.825Y153.650|16:X373.325Y153.650|16:X370.825Y153.650|16:X369.575Y156.150|16:X369.575Y158.030|16:X373.325Y158.030|16:X373.325Y156.150|16:X373.325Y160.530|16:X374.575Y171.150|16:X377.075Y171.150|16:X379.575Y171.150|16:X380.825Y172.400|16:X383.325Y172.400|16:X384.575Y171.150|16:X380.825Y174.900|16:X379.575Y177.400|16:X378.325Y181.150|16:X378.325Y186.150|16:X375.195Y186.150|16:X373.945Y184.900|16:X369.575Y182.400|16:X367.075Y182.400|16:X365.825Y178.650|16:X367.075Y176.150|16:X367.075Y173.650|16:X367.075Y171.150|16:X369.575Y171.150|16:X372.075Y171.150|16:X364.575Y174.900|16:X360.825Y171.150|16:X355.825Y171.150|16:X360.195Y160.530|16:X360.825Y156.150|16:X360.825Y152.400|16:X363.325Y148.650|16:X352.075Y144.900|16:X348.325Y147.400|16:X349.575Y148.650|16:X348.325Y151.150|16:X364.575Y136.150|16:X367.075Y132.400|16:X368.325Y133.650|16:X369.575Y132.400|16:X370.825Y133.650|16:X372.075Y132.400|16:X373.325Y133.650|16:X374.575Y132.400|16:X375.825Y133.650|16:X378.325Y133.650|16:X379.575Y131.150|16:X382.075Y132.400|16:X383.325Y133.650|16:X384.575Y132.400|16:X385.825Y133.650|16:X387.075Y132.400|16:X388.325Y133.650|16:X389.575Y132.400|16:X390.825Y133.650|16:X392.075Y131.150|16:X394.575Y131.150|16:X397.075Y132.400|16:X398.325Y133.650|16:X399.575Y132.400|16:X400.825Y133.650|16:X402.075Y132.400|16:X404.575Y133.650|16:X403.325Y134.900|16:X405.825Y134.900|16:X407.075Y132.400|16:X408.325Y131.150|16:X409.575Y129.900|16:X409.575Y127.400|16:X409.575Y132.400|16:X410.825Y134.900|16:X412.075Y136.150|16:X414.575Y136.150|16:X415.825Y137.400|16:X417.075Y136.150|16:X418.325Y137.400|16:X419.575Y136.150|16:X420.825Y137.400|16:X423.325Y133.650|16:X424.575Y131.150|16:X423.325Y129.900|16:X427.075Y133.650|16:X428.325Y134.900|16:X429.575Y133.650|16:X433.325Y133.650|16:X435.825Y134.900|16:X434.575Y141.150|16:X434.575Y143.650|16:X435.825Y144.900|16:X433.325Y144.900|16:X432.075Y142.400|16:X430.825Y143.650|16:X429.575Y144.900|16:X427.075Y144.900|16:X438.325Y146.150|16:X438.325Y148.650|16:X435.825Y156.150|16:X435.825Y159.900|16:X433.325Y159.900|16:X425.825Y158.650|16:X423.325Y162.400|16:X422.075Y171.150|16:X419.575Y171.150|16:X417.075Y171.150|16:X414.575Y171.150|16:X412.075Y173.650|16:X412.075Y176.150|16:X409.575Y172.400|16:X408.325Y171.150|16:X405.825Y171.150|16:X402.075Y171.150|16:X399.575Y171.150|16:X397.695Y171.780|16:X395.195Y171.150|16:X393.325Y171.150|16:X395.195Y173.030|16:X395.195Y174.900|16:X391.445Y178.030|16:X389.575Y178.650|16:X390.825Y183.650|16:X390.825Y186.150|16:X385.825Y184.900|16:X385.825Y183.030|16:X384.575Y181.780|16:X380.825Y192.400|16:X382.075Y193.650|16:X379.575Y193.650|16:X379.575Y196.150|16:X378.325Y197.400|16:X377.075Y196.150|16:X375.825Y197.400|16:X374.575Y196.150|16:X373.325Y197.400|16:X372.075Y196.150|16:X370.825Y194.900|16:X369.575Y196.150|16:X368.325Y193.650|16:X367.075Y192.400|16:X365.825Y189.900|16:X359.575Y193.650|16:X357.075Y193.650|16:X355.825Y194.900|16:X354.575Y193.650|16:X352.075Y193.650|16:X352.075Y202.400|16:X357.075Y202.400|16:X360.825Y202.400|16:X365.825Y204.900|16:X367.075Y203.650|16:X368.325Y202.400|16:X369.575Y201.150|16:X370.825Y199.900|16:X372.075Y201.150|16:X373.325Y199.900|16:X374.575Y201.150|16:X375.825Y199.900|16:X377.075Y202.400|16:X379.575Y201.150|16:X380.825Y202.400|16:X382.075Y201.150|16:X379.575Y203.650|16:X380.825Y204.900|16:X378.325Y209.900|16:X379.575Y211.150|16:X384.575Y211.150|16:X387.075Y216.150|16:X389.575Y214.900|16:X390.825Y216.150|16:X390.825Y211.150|16:X390.825Y202.400|16:X389.575Y201.150|16:X388.325Y202.400|16:X387.075Y201.150|16:X387.075Y196.150|16:X388.325Y194.900|16:X389.575Y193.650|16:X392.075Y193.650|16:X393.325Y194.900|16:X392.075Y196.150|16:X389.575Y196.150|16:X385.195Y196.150|16:X383.325Y196.150|16:X385.825Y193.650|16:X394.575Y192.400|16:X397.075Y193.650|16:X395.825Y194.900|16:X398.325Y194.900|16:X399.575Y193.650|16:X400.825Y194.900|16:X402.075Y196.150|16:X403.325Y193.650|16:X404.575Y194.900|16:X407.075Y196.150|16:X408.325Y194.900|16:X409.575Y196.150|16:X410.825Y194.900|16:X412.075Y196.150|16:X413.325Y194.900|16:X412.075Y192.400|16:X410.825Y197.400|16:X414.575Y197.400|16:X415.825Y196.150|16:X417.075Y197.400|16:X418.325Y196.150|16:X419.575Y194.900|16:X420.825Y196.150|16:X422.075Y194.900|16:X423.325Y196.150|16:X424.575Y194.900|16:X425.825Y193.650|16:X427.075Y194.900|16:X428.325Y192.400|16:X429.575Y193.650|16:X430.825Y194.900|16:X432.075Y193.650|16:X433.325Y194.900|16:X434.575Y193.650|16:X435.825Y194.900|16:X437.075Y193.650|16:X438.325Y194.900|16:X438.325Y199.900|16:X437.075Y201.150|16:X435.825Y199.900|16:X434.575Y201.150|16:X433.325Y199.900|16:X432.075Y201.150|16:X430.825Y199.900|16:X429.575Y201.150|16:X427.075Y202.400|16:X427.075Y204.900|16:X427.075Y207.400|16:X423.325Y202.400|16:X420.825Y202.400|16:X417.075Y202.400|16:X415.825Y201.150|16:X414.575Y202.400|16:X413.325Y201.150|16:X410.825Y201.150|16:X408.325Y201.150|16:X407.075Y199.900|16:X405.825Y201.150|16:X403.325Y199.900|16:X402.075Y201.150|16:X403.325Y202.400|16:X400.825Y198.650|16:X399.575Y199.900|16:X397.075Y201.150|16:X395.825Y202.400|16:X397.075Y203.650|16:X398.325Y202.400|16:X394.575Y199.900|16:X393.325Y202.400|16:X402.075Y209.900|16:X403.325Y211.150|16:X402.075Y216.150|16:X403.325Y217.400|16:X404.575Y224.900|16:X405.825Y226.150|16:X407.075Y224.900|16:X408.325Y226.150|16:X409.575Y224.900|16:X412.075Y222.400|16:X410.825Y221.150|16:X413.325Y223.650|16:X414.575Y224.900|16:X417.075Y224.900|16:X418.325Y226.150|16:X419.575Y224.900|16:X422.075Y224.900|16:X423.325Y226.150|16:X422.075Y229.900|16:X420.825Y231.150|16:X423.325Y231.150|16:X427.075Y234.900|16:X428.325Y233.650|16:X429.575Y232.400|16:X432.075Y232.400|16:X433.325Y231.150|16:X434.575Y232.400|16:X435.825Y231.150|16:X437.075Y232.400|16:X438.325Y233.650|16:X438.325Y226.150|16:X437.075Y224.900|16:X435.825Y226.150|16:X434.575Y224.900|16:X433.325Y226.150|16:X432.075Y224.900|16:X430.825Y226.150|16:X429.575Y224.900|16:X427.075Y223.650|16:X427.075Y221.150|16:X427.075Y217.400|16:X417.075Y231.150|16:X414.575Y231.150|16:X410.825Y234.900|16:X410.825Y237.400|16:X410.825Y243.650|16:X410.825Y248.650|16:X410.825Y251.150|16:X407.075Y253.650|16:X408.325Y254.900|16:X405.825Y254.900|16:X404.575Y253.650|16:X403.325Y254.900|16:X402.075Y253.650|16:X400.825Y254.900|16:X399.575Y253.650|16:X397.075Y252.400|16:X395.825Y251.150|16:X397.695Y250.530|16:X397.075Y246.150|16:X402.075Y244.900|16:X404.575Y239.900|16:X398.325Y237.400|16:X397.075Y234.900|16:X395.825Y233.650|16:X397.075Y232.400|16:X394.575Y232.400|16:X393.325Y229.900|16:X392.075Y231.150|16:X390.825Y229.900|16:X389.575Y231.150|16:X388.325Y229.900|16:X387.075Y231.150|16:X385.825Y229.900|16:X384.575Y231.150|16:X383.325Y232.400|16:X382.075Y231.150|16:X380.825Y229.900|16:X380.825Y232.400|16:X380.825Y234.900|16:X378.325Y231.150|16:X377.075Y228.650|16:X375.825Y229.900|16:X374.575Y231.150|16:X373.325Y229.900|16:X372.075Y231.150|16:X370.825Y229.900|16:X369.575Y231.150|16:X372.075Y227.400|16:X373.325Y226.150|16:X374.575Y227.400|16:X375.825Y226.150|16:X377.075Y224.900|16:X378.325Y226.150|16:X382.075Y222.400|16:X380.825Y221.150|16:X379.575Y218.650|16:X378.325Y217.400|16:X382.075Y216.150|16:X374.575Y212.400|16:X373.325Y211.150|16:X372.075Y216.150|16:X368.325Y214.900|16:X365.825Y218.650|16:X365.825Y221.150|16:X368.325Y223.650|16:X369.575Y224.900|16:X370.825Y226.150|16:X367.075Y224.900|16:X364.575Y226.150|16:X359.575Y224.900|16:X357.075Y224.900|16:X352.075Y224.900|16:X353.325Y229.900|16:X352.075Y231.150|16:X350.825Y232.400|16:X349.575Y234.900|16:X348.325Y237.400|16:X346.445Y236.150|16:X352.075Y239.900|16:X359.575Y239.900|16:X360.825Y238.650|16:X363.325Y234.900|16:X364.575Y233.650|16:X362.075Y232.400|16:X360.825Y231.150|16:X358.325Y229.900|16:X357.075Y231.150|16:X355.825Y229.900|16:X354.575Y231.150|16:X367.075Y234.900|16:X373.325Y238.650|16:X375.825Y242.400|16:X373.325Y244.900|16:X374.575Y246.150|16:X369.575Y243.650|16:X365.825Y251.150|16:X363.325Y251.150|16:X362.075Y252.400|16:X359.575Y253.650|16:X360.825Y254.900|16:X358.325Y254.900|16:X357.075Y253.650|16:X355.825Y254.900|16:X354.575Y253.650|16:X352.075Y253.650|16:X349.575Y251.150|16:X360.825Y246.150|16:X369.575Y253.650|16:X370.825Y254.900|16:X372.075Y253.650|16:X373.325Y254.900|16:X374.575Y253.650|16:X375.825Y254.900|16:X377.075Y253.650|16:X378.325Y254.900|16:X379.575Y253.650|16:X380.825Y252.400|16:X382.075Y251.150|16:X384.575Y253.650|16:X385.825Y254.900|16:X387.075Y253.650|16:X388.325Y254.900|16:X389.575Y253.650|16:X390.825Y254.900|16:X392.075Y253.650|16:X393.325Y254.900|16:X395.825Y254.900|16:X387.075Y246.150|16:X385.825Y244.900|16:X384.575Y246.150|16:X384.575Y239.900|16:X385.825Y238.650|16:X387.075Y239.900|16:X394.575Y239.900|16:X399.575Y231.150|16:X399.575Y228.650|16:X398.325Y227.400|16:X397.075Y226.150|16:X395.825Y224.900|16:X395.825Y222.400|16:X393.325Y224.900|16:X392.075Y226.150|16:X390.825Y224.900|16:X389.575Y226.150|16:X388.325Y224.900|16:X387.075Y226.150|16:X384.575Y224.900|16:X395.825Y228.650|16:X402.075Y228.650|16:X403.325Y229.900|16:X402.075Y231.150|16:X405.825Y231.150|16:X408.325Y231.150|16:X404.575Y227.400|16:X403.325Y226.150|16:X412.075Y203.650|16:X405.825Y197.400|16:X402.075Y186.150|16:X403.325Y184.900|16:X403.325Y182.400|16:X403.325Y178.650|16:X399.575Y184.900|16:X410.825Y186.150|16:X410.825Y182.400|16:X415.825Y183.650|16:X415.825Y186.150|16:X418.325Y186.780|16:X420.825Y183.650|16:X423.325Y184.900|16:X427.075Y188.650|16:X428.325Y187.400|16:X428.325Y179.900|16:X428.325Y177.400|16:X427.075Y176.150|16:X425.825Y174.900|16:X427.075Y173.650|16:X424.575Y172.400|16:X429.575Y171.150|16:X432.075Y171.150|16:X435.825Y171.150|16:X438.325Y171.150|16:X415.825Y178.650|16:X410.825Y171.150|16:X409.575Y162.400|16:X410.825Y159.900|16:X409.575Y158.650|16:X410.825Y157.400|16:X404.575Y158.650|16:X408.325Y136.150|16:X413.325Y133.650|16:X411.445Y122.400|16:X405.825Y122.400|16:X398.325Y121.150|16:X395.825Y118.650|16:X398.325Y116.780|16:X395.825Y111.150|16:X397.075Y109.900|16:X398.325Y108.650|16:X399.575Y109.900|16:X400.825Y108.650|16:X402.075Y109.900|16:X403.325Y108.650|16:X404.575Y109.900|16:X405.825Y108.650|16:X408.325Y108.650|16:X408.325Y111.150|16:X409.575Y112.400|16:X408.325Y113.650|16:X410.825Y116.150|16:X412.075Y109.900|16:X413.325Y108.650|16:X414.575Y109.900|16:X415.825Y108.650|16:X418.325Y109.900|16:X419.575Y108.650|16:X420.825Y109.900|16:X424.575Y112.400|16:X423.325Y114.900|16:X427.075Y108.650|16:X429.575Y111.150|16:X433.325Y109.900|16:X435.825Y109.900|15:X408.325Y98.650|15:X407.075Y82.400|15:X408.325Y81.150|15:X405.825Y81.150|15:X404.575Y82.400|15:X402.075Y81.150|15:X400.825Y82.400|16:X393.325Y107.400|16:X390.825Y107.400|16:X388.325Y108.650|16:X387.075Y109.900|16:X385.825Y108.650|16:X384.575Y109.900|16:X383.325Y108.650|16:X382.075Y109.900|16:X378.325Y111.150|16:X378.325Y113.650|16:X377.075Y108.650|16:X377.075Y104.900|16:X377.075Y102.400|16:X378.325Y101.150|15:X379.575Y98.650|16:X382.075Y103.650|16:X384.575Y103.650|16:X389.575Y109.900|16:X392.075Y109.900|16:X393.325Y112.400|16:X392.075Y121.150|16:X385.825Y121.150|16:X385.825Y123.030|16:X385.825Y124.900|16:X382.075Y124.900|16:X385.825Y118.650|16:X384.575Y117.400|16:X373.325Y119.900|16:X372.075Y123.650|16:X373.325Y124.900|16:X373.325Y109.900|16:X374.575Y103.650|16:X398.325Y124.900|16:X395.825Y133.650|16:X384.575Y139.900|16:X382.075Y141.150|16:X379.575Y147.400|16:X348.325Y127.400|16:X365.825Y207.400|16:X365.825Y209.900|16:X355.825Y211.150|16:X368.325Y254.900|16:X383.325Y254.900|16:X414.575Y253.650|16:X418.325Y253.650|16:X419.575Y254.900|16:X422.075Y253.650|16:X423.325Y254.900|16:X427.075Y251.150|16:X428.325Y252.400|16:X429.575Y253.650|16:X430.825Y254.900|16:X433.325Y253.650|16:X433.325Y256.150|16:X435.825Y254.900|16:X435.825Y252.400|16:X438.325Y252.400|16:X428.325Y246.150|16:X427.075Y248.650|16:X427.075Y237.400|16:X419.575Y197.400|
ScrollBars=3
}
Add(Label,6096032,14,21)
{
Left=10
Top=10
Width=106
Height=17
Caption="Изначальные коорд"
}
Add(Label,8239751,21,14)
{
Left=190
Top=10
Width=114
Height=17
Caption="Коорд со смещением"
}
Add(Label,7440265,28,7)
{
Left=215
Top=335
Width=52
Height=17
Caption="Искомые"
}
Add(Label,5107778,33,1)
{
Left=15
Top=335
Width=96
Height=17
Caption="4 из изнач списка"
}

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8886
Рейтинг: 823
#2: 2021-10-20 11:48:51 ЛС | профиль | цитата
Gitarist, какие-то странные у вас массивы
Пример


Add(MainForm,14404370,294,133)
{
Width=363
Height=524
}
Add(RichEdit,13306860,413,77)
{
Top=230
Width=125
Height=115
Strings=#15:X368.015Y79.690|15:X376.765Y80.940|16:X429.265Y253.440|16:X368.015Y254.690|
ScrollBars=3
}
Add(RichEdit,14485390,350,77)
{
Top=30
Width=125
Height=170
Strings=#15:X364.265Y77.190|15:X381.765Y77.190|15:X369.265Y78.440|15:X368.015Y79.690|15:X408.015Y80.940|15:X405.515Y80.940|15:X401.765Y80.940|15:X383.015Y80.940|15:X379.265Y80.940|15:X376.765Y80.940|15:X374.265Y80.940|15:X370.515Y80.940|15:X366.765Y80.940|15:X358.015Y80.940|15:X355.515Y80.940|15:X353.015Y80.940|15:X350.515Y82.190|15:X363.015Y82.190|15:X365.515Y82.190|15:X378.015Y82.190|15:X380.515Y82.190|15:X400.515Y82.190|15:X404.265Y82.190|15:X406.765Y82.190|15:X348.015Y95.940|15:X349.265Y98.440|15:X363.015Y98.440|15:X379.265Y98.440|15:X408.015Y98.440|16:X378.015Y100.940|15:X364.265Y99.690|16:X365.515Y102.190|16:X376.765Y102.190|16:X384.265Y103.440|16:X381.765Y103.440|16:X374.265Y103.440|16:X370.515Y103.440|16:X366.765Y103.440|16:X356.765Y103.440|16:X355.515Y104.690|16:X369.265Y104.690|16:X376.765Y104.690|16:X368.015Y105.940|16:X390.515Y107.190|16:X393.015Y107.190|16:X426.765Y108.440|16:X419.265Y108.440|16:X415.515Y108.440|16:X413.015Y108.440|16:X408.015Y108.440|16:X405.515Y108.440|16:X403.015Y108.440|16:X400.515Y108.440|16:X398.015Y108.440|16:X388.015Y108.440|16:X385.515Y108.440|16:X383.015Y108.440|16:X376.765Y108.440|16:X353.015Y108.440|16:X351.765Y109.690|16:X354.265Y109.690|16:X356.765Y109.690|16:X360.515Y109.690|16:X366.765Y109.690|16:X373.015Y109.690|16:X381.765Y109.690|16:X384.265Y109.690|16:X386.765Y109.690|16:X389.265Y109.690|16:X391.765Y109.690|16:X396.765Y109.690|16:X399.265Y109.690|16:X401.765Y109.690|16:X404.265Y109.690|16:X411.765Y109.690|16:X414.265Y109.690|16:X418.015Y109.690|16:X420.515Y109.690|16:X433.015Y109.690|16:X435.515Y109.690|16:X429.265Y110.940|16:X408.015Y110.940|16:X395.515Y110.940|16:X378.015Y110.940|16:X393.015Y112.190|16:X409.265Y112.190|16:X424.265Y112.190|16:X408.015Y113.440|16:X378.015Y113.440|16:X363.015Y113.440|16:X349.265Y113.440|16:X423.015Y114.690|16:X410.515Y115.940|16:X360.515Y117.190|16:X384.265Y117.190|16:X398.015Y116.570|16:X395.515Y118.440|16:X385.515Y118.440|16:X373.015Y119.690|16:X385.515Y120.940|16:X391.765Y120.940|16:X398.015Y120.940|16:X385.515Y122.820|16:X405.515Y122.190|16:X411.135Y122.190|16:X371.765Y123.440|16:X360.515Y124.690|16:X373.015Y124.690|16:X381.765Y124.690|16:X385.515Y124.690|16:X398.015Y124.690|16:X409.265Y127.190|16:X348.015Y127.190|16:X363.015Y129.690|16:X409.265Y129.690|16:X423.015Y129.690|16:X424.265Y130.940|16:X408.015Y130.940|16:X394.265Y130.940|16:X391.765Y130.940|16:X379.265Y130.940|16:X351.765Y132.190|16:X354.265Y132.190|16:X356.765Y132.190|16:X359.265Y132.190|16:X366.765Y132.190|16:X369.265Y132.190|16:X371.765Y132.190|16:X374.265Y132.190|16:X381.765Y132.190|16:X384.265Y132.190|16:X386.765Y132.190|16:X389.265Y132.190|16:X396.765Y132.190|16:X399.265Y132.190|16:X401.765Y132.190|16:X406.765Y132.190|16:X409.265Y132.190|16:X433.015Y133.440|16:X429.265Y133.440|16:X426.765Y133.440|16:X423.015Y133.440|16:X413.015Y133.440|16:X404.265Y133.440|16:X400.515Y133.440|16:X398.015Y133.440|16:X395.515Y133.440|16:X390.515Y133.440|16:X388.015Y133.440|16:X385.515Y133.440|16:X383.015Y133.440|16:X378.015Y133.440|16:X375.515Y133.440|16:X373.015Y133.440|16:X370.515Y133.440|16:X368.015Y133.440|16:X360.515Y133.440|16:X358.015Y133.440|16:X355.515Y133.440|16:X353.015Y133.440|16:X350.515Y133.440|16:X349.265Y134.690|16:X403.015Y134.690|16:X405.515Y134.690|16:X410.515Y134.690|16:X428.015Y134.690|16:X435.515Y134.690|16:X419.265Y135.940|16:X416.765Y135.940|16:X414.265Y135.940|16:X411.765Y135.940|16:X408.015Y135.940|16:X364.265Y135.940|16:X350.515Y135.940|16:X415.515Y137.190|16:X418.015Y137.190|16:X420.515Y137.190|16:X384.265Y139.690|16:X381.765Y140.940|16:X398.015Y140.940|16:X401.765Y140.940|16:X434.265Y140.940|16:X431.765Y142.190|16:X370.515Y142.190|16:X368.015Y142.190|16:X359.265Y142.190|16:X353.015Y143.440|16:X355.515Y143.440|16:X358.015Y143.440|16:X366.765Y143.440|16:X369.265Y143.440|16:X378.015Y143.440|16:X383.015Y143.440|16:X385.515Y143.440|16:X388.015Y143.440|16:X390.515Y143.440|16:X393.015Y143.440|16:X401.765Y143.440|16:X404.265Y143.440|16:X413.015Y143.440|16:X415.515Y143.440|16:X430.515Y143.440|16:X434.265Y143.440|16:X435.515Y144.690|16:X433.015Y144.690|16:X429.265Y144.690|16:X426.765Y144.690|16:X420.515Y144.690|16:X418.015Y144.690|16:X414.265Y144.690|16:X411.765Y144.690|16:X409.265Y144.690|16:X396.765Y144.690|16:X394.265Y144.690|16:X389.265Y144.690|16:X386.765Y144.690|16:X384.265Y144.690|16:X380.515Y144.690|16:X375.515Y144.690|16:X360.515Y144.690|16:X356.765Y144.690|16:X354.265Y144.690|16:X351.765Y144.690|16:X361.765Y145.940|16:X365.515Y145.940|16:X376.765Y145.940|16:X393.015Y145.940|16:X408.015Y145.940|16:X438.015Y145.940|16:X424.265Y147.190|16:X409.265Y147.190|16:X394.265Y147.190|16:X379.265Y147.190|16:X364.265Y147.190|16:X348.015Y147.190|16:X349.265Y148.440|16:X363.015Y148.440|16:X393.015Y148.440|16:X423.015Y148.440|16:X438.015Y148.440|16:X348.015Y150.940|16:X410.515Y150.940|16:X422.385Y150.940|16:X385.515Y152.190|16:X360.515Y152.190|16:X370.515Y153.440|16:X373.015Y153.440|16:X375.515Y153.440|16:X379.265Y153.440|16:X384.265Y153.440|16:X398.015Y153.440|16:X401.765Y153.440|16:X413.015Y153.440|16:X415.515Y153.440|16:X423.015Y154.690|16:X418.015Y154.690|16:X414.265Y154.690|16:X393.015Y154.690|16:X385.515Y154.690|16:X360.515Y155.940|16:X369.265Y155.940|16:X373.015Y155.940|16:X398.015Y155.940|16:X435.515Y155.940|16:X369.265Y157.820|16:X373.015Y157.820|16:X385.515Y157.190|16:X410.515Y157.190|16:X384.885Y159.070|16:X404.265Y158.440|16:X409.265Y158.440|16:X416.765Y158.440|16:X420.515Y158.440|16:X425.515Y158.440|16:X359.885Y160.320|16:X373.015Y160.320|16:X394.265Y159.690|16:X398.015Y159.690|16:X410.515Y159.690|16:X433.015Y159.690|16:X435.515Y159.690|16:X423.015Y162.190|16:X409.265Y162.190|16:X394.885Y170.940|16:X393.015Y170.940|16:X384.265Y170.940|16:X379.265Y170.940|16:X376.765Y170.940|16:X374.265Y170.940|16:X371.765Y170.940|16:X369.265Y170.940|16:X366.765Y170.940|16:X360.515Y170.940|16:X355.515Y170.940|16:X397.385Y171.570|16:X399.265Y170.940|16:X401.765Y170.940|16:X405.515Y170.940|16:X408.015Y170.940|16:X410.515Y170.940|16:X414.265Y170.940|16:X416.765Y170.940|16:X419.265Y170.940|16:X421.765Y170.940|16:X429.265Y170.940|16:X431.765Y170.940|16:X435.515Y170.940|16:X438.015Y170.940|16:X424.265Y172.190|16:X409.265Y172.190|16:X383.015Y172.190|16:X380.515Y172.190|16:X366.765Y173.440|16:X394.885Y172.820|16:X411.765Y173.440|16:X426.765Y173.440|16:X425.515Y174.690|16:X394.885Y174.690|16:X380.515Y174.690|16:X364.265Y174.690|16:X366.765Y175.940|16:X411.765Y175.940|16:X426.765Y175.940|16:X379.265Y177.190|16:X391.135Y177.820|16:X428.015Y177.190|16:X415.515Y178.440|16:X403.015Y178.440|16:X389.265Y178.440|16:X365.515Y178.440|16:X428.015Y179.690|16:X378.015Y180.940|16:X366.765Y182.190|16:X369.265Y182.190|16:X384.265Y181.570|16:X385.515Y182.820|16:X403.015Y182.190|16:X410.515Y182.190|16:X420.515Y183.440|16:X415.515Y183.440|16:X390.515Y183.440|16:X373.635Y184.690|16:X385.515Y184.690|16:X399.265Y184.690|16:X403.015Y184.690|16:X423.015Y184.690|16:X415.515Y185.940|16:X410.515Y185.940|16:X401.765Y185.940|16:X390.515Y185.940|16:X378.015Y185.940|16:X374.885Y185.940|16:X418.015Y186.570|16:X428.015Y187.190|16:X426.765Y188.440|16:X365.515Y189.690|16:X366.765Y192.190|16:X380.515Y192.190|16:X394.265Y192.190|16:X411.765Y192.190|16:X428.015Y192.190|16:X436.765Y193.440|16:X434.265Y193.440|16:X431.765Y193.440|16:X429.265Y193.440|16:X425.515Y193.440|16:X403.015Y193.440|16:X399.265Y193.440|16:X396.765Y193.440|16:X391.765Y193.440|16:X389.265Y193.440|16:X385.515Y193.440|16:X381.765Y193.440|16:X379.265Y193.440|16:X368.015Y193.440|16:X359.265Y193.440|16:X356.765Y193.440|16:X354.265Y193.440|16:X351.765Y193.440|16:X355.515Y194.690|16:X370.515Y194.690|16:X388.015Y194.690|16:X393.015Y194.690|16:X395.515Y194.690|16:X398.015Y194.690|16:X400.515Y194.690|16:X404.265Y194.690|16:X408.015Y194.690|16:X410.515Y194.690|16:X413.015Y194.690|16:X419.265Y194.690|16:X421.765Y194.690|16:X424.265Y194.690|16:X426.765Y194.690|16:X430.515Y194.690|16:X433.015Y194.690|16:X435.515Y194.690|16:X438.015Y194.690|16:X423.015Y195.940|16:X420.515Y195.940|16:X418.015Y195.940|16:X415.515Y195.940|16:X411.765Y195.940|16:X409.265Y195.940|16:X406.765Y195.940|16:X401.765Y195.940|16:X391.765Y195.940|16:X389.265Y195.940|16:X386.765Y195.940|16:X384.885Y195.940|16:X383.015Y195.940|16:X379.265Y195.940|16:X376.765Y195.940|16:X374.265Y195.940|16:X371.765Y195.940|16:X369.265Y195.940|16:X373.015Y197.190|16:X375.515Y197.190|16:X378.015Y197.190|16:X405.515Y197.190|16:X410.515Y197.190|16:X414.265Y197.190|16:X416.765Y197.190|16:X419.265Y197.190|16:X400.515Y198.440|16:X370.515Y199.690|16:X373.015Y199.690|16:X375.515Y199.690|16:X394.265Y199.690|16:X399.265Y199.690|16:X403.015Y199.690|16:X406.765Y199.690|16:X430.515Y199.690|16:X433.015Y199.690|16:X435.515Y199.690|16:X438.015Y199.690|16:X436.765Y200.940|16:X434.265Y200.940|16:X431.765Y200.940|16:X429.265Y200.940|16:X415.515Y200.940|16:X413.015Y200.940|16:X410.515Y200.940|16:X408.015Y200.940|16:X405.515Y200.940|16:X401.765Y200.940|16:X396.765Y200.940|16:X389.265Y200.940|16:X386.765Y200.940|16:X381.765Y200.940|16:X379.265Y200.940|16:X374.265Y200.940|16:X371.765Y200.940|16:X369.265Y200.940|16:X351.765Y202.190|16:X356.765Y202.190|16:X360.515Y202.190|16:X368.015Y202.190|16:X376.765Y202.190|16:X380.515Y202.190|16:X388.015Y202.190|16:X390.515Y202.190|16:X393.015Y202.190|16:X395.515Y202.190|16:X398.015Y202.190|16:X403.015Y202.190|16:X414.265Y202.190|16:X416.765Y202.190|16:X420.515Y202.190|16:X423.015Y202.190|16:X426.765Y202.190|16:X411.765Y203.440|16:X396.765Y203.440|16:X379.265Y203.440|16:X366.765Y203.440|16:X365.515Y204.690|16:X380.515Y204.690|16:X426.765Y204.690|16:X365.515Y207.190|16:X426.765Y207.190|16:X365.515Y209.690|16:X378.015Y209.690|16:X401.765Y209.690|16:X403.015Y210.940|16:X390.515Y210.940|16:X384.265Y210.940|16:X379.265Y210.940|16:X373.015Y210.940|16:X355.515Y210.940|16:X374.265Y212.190|16:X368.015Y214.690|16:X389.265Y214.690|16:X401.765Y215.940|16:X390.515Y215.940|16:X386.765Y215.940|16:X381.765Y215.940|16:X371.765Y215.940|16:X378.015Y217.190|16:X403.015Y217.190|16:X426.765Y217.190|16:X379.265Y218.440|16:X365.515Y218.440|16:X365.515Y220.940|16:X380.515Y220.940|16:X410.515Y220.940|16:X426.765Y220.940|16:X411.765Y222.190|16:X395.515Y222.190|16:X381.765Y222.190|16:X368.015Y223.440|16:X413.015Y223.440|16:X426.765Y223.440|16:X436.765Y224.690|16:X434.265Y224.690|16:X431.765Y224.690|16:X429.265Y224.690|16:X421.765Y224.690|16:X419.265Y224.690|16:X416.765Y224.690|16:X414.265Y224.690|16:X409.265Y224.690|16:X406.765Y224.690|16:X404.265Y224.690|16:X395.515Y224.690|16:X393.015Y224.690|16:X390.515Y224.690|16:X388.015Y224.690|16:X384.265Y224.690|16:X376.765Y224.690|16:X369.265Y224.690|16:X366.765Y224.690|16:X359.265Y224.690|16:X356.765Y224.690|16:X351.765Y224.690|16:X438.015Y225.940|16:X435.515Y225.940|16:X433.015Y225.940|16:X430.515Y225.940|16:X423.015Y225.940|16:X418.015Y225.940|16:X408.015Y225.940|16:X405.515Y225.940|16:X403.015Y225.940|16:X396.765Y225.940|16:X391.765Y225.940|16:X389.265Y225.940|16:X386.765Y225.940|16:X378.015Y225.940|16:X375.515Y225.940|16:X373.015Y225.940|16:X370.515Y225.940|16:X364.265Y225.940|16:X404.265Y227.190|16:X398.015Y227.190|16:X374.265Y227.190|16:X371.765Y227.190|16:X376.765Y228.440|16:X395.515Y228.440|16:X399.265Y228.440|16:X401.765Y228.440|16:X421.765Y229.690|16:X403.015Y229.690|16:X393.015Y229.690|16:X390.515Y229.690|16:X388.015Y229.690|16:X385.515Y229.690|16:X380.515Y229.690|16:X375.515Y229.690|16:X373.015Y229.690|16:X370.515Y229.690|16:X358.015Y229.690|16:X355.515Y229.690|16:X353.015Y229.690|16:X351.765Y230.940|16:X354.265Y230.940|16:X356.765Y230.940|16:X360.515Y230.940|16:X369.265Y230.940|16:X371.765Y230.940|16:X374.265Y230.940|16:X378.015Y230.940|16:X381.765Y230.940|16:X384.265Y230.940|16:X386.765Y230.940|16:X389.265Y230.940|16:X391.765Y230.940|16:X399.265Y230.940|16:X401.765Y230.940|16:X405.515Y230.940|16:X408.015Y230.940|16:X414.265Y230.940|16:X416.765Y230.940|16:X420.515Y230.940|16:X423.015Y230.940|16:X433.015Y230.940|16:X435.515Y230.940|16:X436.765Y232.190|16:X434.265Y232.190|16:X431.765Y232.190|16:X429.265Y232.190|16:X396.765Y232.190|16:X394.265Y232.190|16:X383.015Y232.190|16:X380.515Y232.190|16:X361.765Y232.190|16:X350.515Y232.190|16:X364.265Y233.440|16:X395.515Y233.440|16:X428.015Y233.440|16:X438.015Y233.440|16:X426.765Y234.690|16:X410.515Y234.690|16:X396.765Y234.690|16:X380.515Y234.690|16:X366.765Y234.690|16:X363.015Y234.690|16:X349.265Y234.690|16:X346.135Y235.940|16:X426.765Y237.190|16:X410.515Y237.190|16:X398.015Y237.190|16:X348.015Y237.190|16:X360.515Y238.440|16:X373.015Y238.440|16:X385.515Y238.440|16:X404.265Y239.690|16:X394.265Y239.690|16:X386.765Y239.690|16:X384.265Y239.690|16:X359.265Y239.690|16:X351.765Y239.690|16:X375.515Y242.190|16:X410.515Y243.440|16:X369.265Y243.440|16:X373.015Y244.690|16:X385.515Y244.690|16:X401.765Y244.690|16:X428.015Y245.940|16:X396.765Y245.940|16:X386.765Y245.940|16:X384.265Y245.940|16:X374.265Y245.940|16:X360.515Y245.940|16:X410.515Y248.440|16:X426.765Y248.440|16:X395.515Y250.940|16:X381.765Y250.940|16:X365.515Y250.940|16:X363.015Y250.940|16:X349.265Y250.940|16:X397.385Y250.320|16:X410.515Y250.940|16:X426.765Y250.940|16:X438.015Y252.190|16:X435.515Y252.190|16:X428.015Y252.190|16:X396.765Y252.190|16:X380.515Y252.190|16:X361.765Y252.190|16:X351.765Y253.440|16:X354.265Y253.440|16:X356.765Y253.440|16:X359.265Y253.440|16:X369.265Y253.440|16:X371.765Y253.440|16:X374.265Y253.440|16:X376.765Y253.440|16:X379.265Y253.440|16:X384.265Y253.440|16:X386.765Y253.440|16:X389.265Y253.440|16:X391.765Y253.440|16:X399.265Y253.440|16:X401.765Y253.440|16:X404.265Y253.440|16:X406.765Y253.440|16:X414.265Y253.440|16:X418.015Y253.440|16:X421.765Y253.440|16:X429.265Y253.440|16:X433.015Y253.440|16:X435.515Y254.690|16:X430.515Y254.690|16:X423.015Y254.690|16:X419.265Y254.690|16:X408.015Y254.690|16:X405.515Y254.690|16:X403.015Y254.690|16:X400.515Y254.690|16:X395.515Y254.690|16:X393.015Y254.690|16:X390.515Y254.690|16:X388.015Y254.690|16:X385.515Y254.690|16:X383.015Y254.690|16:X378.015Y254.690|16:X375.515Y254.690|16:X373.015Y254.690|16:X370.515Y254.690|16:X368.015Y254.690|16:X360.515Y254.690|16:X358.015Y254.690|16:X355.515Y254.690|16:X433.015Y255.940|
ScrollBars=3
}
Add(RichEdit,9304572,490,147)
{
Left=10
Top=355
Width=300
Height=125
ScrollBars=3
}
Add(Button,1634164,343,133)
{
Left=160
Top=260
Width=150
Caption="Найти ближайшие точки"
link(onClick,1616801:doEvent1,[])
}
Add(RichEdit,7219571,462,77)
{
Left=185
Top=30
Width=125
Height=165
Strings=#15:X350.825Y82.400|15:X353.325Y81.150|15:X355.825Y81.150|15:X358.325Y81.150|15:X363.325Y82.400|15:X365.825Y82.400|15:X367.075Y81.150|15:X368.325Y79.900|15:X369.575Y78.650|15:X370.825Y81.150|15:X374.575Y81.150|15:X377.075Y81.150|15:X378.325Y82.400|15:X379.575Y81.150|15:X380.825Y82.400|15:X383.325Y81.150|15:X382.075Y77.400|15:X364.575Y77.400|15:X363.325Y98.650|15:X364.575Y99.900|16:X365.825Y102.400|16:X367.075Y103.650|16:X369.575Y104.900|16:X370.825Y103.650|16:X368.325Y106.150|16:X367.075Y109.900|16:X363.325Y113.650|16:X360.825Y109.900|16:X357.075Y109.900|16:X354.575Y109.900|16:X353.325Y108.650|16:X352.075Y109.900|16:X349.575Y113.650|16:X355.825Y104.900|16:X357.075Y103.650|15:X349.575Y98.650|15:X348.325Y96.150|16:X360.825Y117.400|16:X360.825Y124.900|16:X363.325Y129.900|16:X359.575Y132.400|16:X360.825Y133.650|16:X358.325Y133.650|16:X357.075Y132.400|16:X355.825Y133.650|16:X354.575Y132.400|16:X353.325Y133.650|16:X352.075Y132.400|16:X350.825Y133.650|16:X349.575Y134.900|16:X350.825Y136.150|16:X353.325Y143.650|16:X354.575Y144.900|16:X355.825Y143.650|16:X357.075Y144.900|16:X358.325Y143.650|16:X359.575Y142.400|16:X360.825Y144.900|16:X362.075Y146.150|16:X364.575Y147.400|16:X365.825Y146.150|16:X367.075Y143.650|16:X368.325Y142.400|16:X369.575Y143.650|16:X370.825Y142.400|16:X375.825Y144.900|16:X377.075Y146.150|16:X378.325Y143.650|16:X380.825Y144.900|16:X383.325Y143.650|16:X384.575Y144.900|16:X385.825Y143.650|16:X387.075Y144.900|16:X388.325Y143.650|16:X389.575Y144.900|16:X390.825Y143.650|16:X393.325Y143.650|16:X394.575Y144.900|16:X393.325Y146.150|16:X394.575Y147.400|16:X393.325Y148.650|16:X397.075Y144.900|16:X398.325Y141.150|16:X402.075Y141.150|16:X402.075Y143.650|16:X404.575Y143.650|16:X408.325Y146.150|16:X409.575Y144.900|16:X412.075Y144.900|16:X413.325Y143.650|16:X414.575Y144.900|16:X415.825Y143.650|16:X418.325Y144.900|16:X420.825Y144.900|16:X424.575Y147.400|16:X423.325Y148.650|16:X422.695Y151.150|16:X423.325Y154.900|16:X420.825Y158.650|16:X417.075Y158.650|16:X418.325Y154.900|16:X415.825Y153.650|16:X414.575Y154.900|16:X413.325Y153.650|16:X410.825Y151.150|16:X409.575Y147.400|16:X402.075Y153.650|16:X398.325Y153.650|16:X398.325Y156.150|16:X398.325Y159.900|16:X394.575Y159.900|16:X393.325Y154.900|16:X385.825Y154.900|16:X384.575Y153.650|16:X385.825Y152.400|16:X385.825Y157.400|16:X385.195Y159.280|16:X379.575Y153.650|16:X375.825Y153.650|16:X373.325Y153.650|16:X370.825Y153.650|16:X369.575Y156.150|16:X369.575Y158.030|16:X373.325Y158.030|16:X373.325Y156.150|16:X373.325Y160.530|16:X374.575Y171.150|16:X377.075Y171.150|16:X379.575Y171.150|16:X380.825Y172.400|16:X383.325Y172.400|16:X384.575Y171.150|16:X380.825Y174.900|16:X379.575Y177.400|16:X378.325Y181.150|16:X378.325Y186.150|16:X375.195Y186.150|16:X373.945Y184.900|16:X369.575Y182.400|16:X367.075Y182.400|16:X365.825Y178.650|16:X367.075Y176.150|16:X367.075Y173.650|16:X367.075Y171.150|16:X369.575Y171.150|16:X372.075Y171.150|16:X364.575Y174.900|16:X360.825Y171.150|16:X355.825Y171.150|16:X360.195Y160.530|16:X360.825Y156.150|16:X360.825Y152.400|16:X363.325Y148.650|16:X352.075Y144.900|16:X348.325Y147.400|16:X349.575Y148.650|16:X348.325Y151.150|16:X364.575Y136.150|16:X367.075Y132.400|16:X368.325Y133.650|16:X369.575Y132.400|16:X370.825Y133.650|16:X372.075Y132.400|16:X373.325Y133.650|16:X374.575Y132.400|16:X375.825Y133.650|16:X378.325Y133.650|16:X379.575Y131.150|16:X382.075Y132.400|16:X383.325Y133.650|16:X384.575Y132.400|16:X385.825Y133.650|16:X387.075Y132.400|16:X388.325Y133.650|16:X389.575Y132.400|16:X390.825Y133.650|16:X392.075Y131.150|16:X394.575Y131.150|16:X397.075Y132.400|16:X398.325Y133.650|16:X399.575Y132.400|16:X400.825Y133.650|16:X402.075Y132.400|16:X404.575Y133.650|16:X403.325Y134.900|16:X405.825Y134.900|16:X407.075Y132.400|16:X408.325Y131.150|16:X409.575Y129.900|16:X409.575Y127.400|16:X409.575Y132.400|16:X410.825Y134.900|16:X412.075Y136.150|16:X414.575Y136.150|16:X415.825Y137.400|16:X417.075Y136.150|16:X418.325Y137.400|16:X419.575Y136.150|16:X420.825Y137.400|16:X423.325Y133.650|16:X424.575Y131.150|16:X423.325Y129.900|16:X427.075Y133.650|16:X428.325Y134.900|16:X429.575Y133.650|16:X433.325Y133.650|16:X435.825Y134.900|16:X434.575Y141.150|16:X434.575Y143.650|16:X435.825Y144.900|16:X433.325Y144.900|16:X432.075Y142.400|16:X430.825Y143.650|16:X429.575Y144.900|16:X427.075Y144.900|16:X438.325Y146.150|16:X438.325Y148.650|16:X435.825Y156.150|16:X435.825Y159.900|16:X433.325Y159.900|16:X425.825Y158.650|16:X423.325Y162.400|16:X422.075Y171.150|16:X419.575Y171.150|16:X417.075Y171.150|16:X414.575Y171.150|16:X412.075Y173.650|16:X412.075Y176.150|16:X409.575Y172.400|16:X408.325Y171.150|16:X405.825Y171.150|16:X402.075Y171.150|16:X399.575Y171.150|16:X397.695Y171.780|16:X395.195Y171.150|16:X393.325Y171.150|16:X395.195Y173.030|16:X395.195Y174.900|16:X391.445Y178.030|16:X389.575Y178.650|16:X390.825Y183.650|16:X390.825Y186.150|16:X385.825Y184.900|16:X385.825Y183.030|16:X384.575Y181.780|16:X380.825Y192.400|16:X382.075Y193.650|16:X379.575Y193.650|16:X379.575Y196.150|16:X378.325Y197.400|16:X377.075Y196.150|16:X375.825Y197.400|16:X374.575Y196.150|16:X373.325Y197.400|16:X372.075Y196.150|16:X370.825Y194.900|16:X369.575Y196.150|16:X368.325Y193.650|16:X367.075Y192.400|16:X365.825Y189.900|16:X359.575Y193.650|16:X357.075Y193.650|16:X355.825Y194.900|16:X354.575Y193.650|16:X352.075Y193.650|16:X352.075Y202.400|16:X357.075Y202.400|16:X360.825Y202.400|16:X365.825Y204.900|16:X367.075Y203.650|16:X368.325Y202.400|16:X369.575Y201.150|16:X370.825Y199.900|16:X372.075Y201.150|16:X373.325Y199.900|16:X374.575Y201.150|16:X375.825Y199.900|16:X377.075Y202.400|16:X379.575Y201.150|16:X380.825Y202.400|16:X382.075Y201.150|16:X379.575Y203.650|16:X380.825Y204.900|16:X378.325Y209.900|16:X379.575Y211.150|16:X384.575Y211.150|16:X387.075Y216.150|16:X389.575Y214.900|16:X390.825Y216.150|16:X390.825Y211.150|16:X390.825Y202.400|16:X389.575Y201.150|16:X388.325Y202.400|16:X387.075Y201.150|16:X387.075Y196.150|16:X388.325Y194.900|16:X389.575Y193.650|16:X392.075Y193.650|16:X393.325Y194.900|16:X392.075Y196.150|16:X389.575Y196.150|16:X385.195Y196.150|16:X383.325Y196.150|16:X385.825Y193.650|16:X394.575Y192.400|16:X397.075Y193.650|16:X395.825Y194.900|16:X398.325Y194.900|16:X399.575Y193.650|16:X400.825Y194.900|16:X402.075Y196.150|16:X403.325Y193.650|16:X404.575Y194.900|16:X407.075Y196.150|16:X408.325Y194.900|16:X409.575Y196.150|16:X410.825Y194.900|16:X412.075Y196.150|16:X413.325Y194.900|16:X412.075Y192.400|16:X410.825Y197.400|16:X414.575Y197.400|16:X415.825Y196.150|16:X417.075Y197.400|16:X418.325Y196.150|16:X419.575Y194.900|16:X420.825Y196.150|16:X422.075Y194.900|16:X423.325Y196.150|16:X424.575Y194.900|16:X425.825Y193.650|16:X427.075Y194.900|16:X428.325Y192.400|16:X429.575Y193.650|16:X430.825Y194.900|16:X432.075Y193.650|16:X433.325Y194.900|16:X434.575Y193.650|16:X435.825Y194.900|16:X437.075Y193.650|16:X438.325Y194.900|16:X438.325Y199.900|16:X437.075Y201.150|16:X435.825Y199.900|16:X434.575Y201.150|16:X433.325Y199.900|16:X432.075Y201.150|16:X430.825Y199.900|16:X429.575Y201.150|16:X427.075Y202.400|16:X427.075Y204.900|16:X427.075Y207.400|16:X423.325Y202.400|16:X420.825Y202.400|16:X417.075Y202.400|16:X415.825Y201.150|16:X414.575Y202.400|16:X413.325Y201.150|16:X410.825Y201.150|16:X408.325Y201.150|16:X407.075Y199.900|16:X405.825Y201.150|16:X403.325Y199.900|16:X402.075Y201.150|16:X403.325Y202.400|16:X400.825Y198.650|16:X399.575Y199.900|16:X397.075Y201.150|16:X395.825Y202.400|16:X397.075Y203.650|16:X398.325Y202.400|16:X394.575Y199.900|16:X393.325Y202.400|16:X402.075Y209.900|16:X403.325Y211.150|16:X402.075Y216.150|16:X403.325Y217.400|16:X404.575Y224.900|16:X405.825Y226.150|16:X407.075Y224.900|16:X408.325Y226.150|16:X409.575Y224.900|16:X412.075Y222.400|16:X410.825Y221.150|16:X413.325Y223.650|16:X414.575Y224.900|16:X417.075Y224.900|16:X418.325Y226.150|16:X419.575Y224.900|16:X422.075Y224.900|16:X423.325Y226.150|16:X422.075Y229.900|16:X420.825Y231.150|16:X423.325Y231.150|16:X427.075Y234.900|16:X428.325Y233.650|16:X429.575Y232.400|16:X432.075Y232.400|16:X433.325Y231.150|16:X434.575Y232.400|16:X435.825Y231.150|16:X437.075Y232.400|16:X438.325Y233.650|16:X438.325Y226.150|16:X437.075Y224.900|16:X435.825Y226.150|16:X434.575Y224.900|16:X433.325Y226.150|16:X432.075Y224.900|16:X430.825Y226.150|16:X429.575Y224.900|16:X427.075Y223.650|16:X427.075Y221.150|16:X427.075Y217.400|16:X417.075Y231.150|16:X414.575Y231.150|16:X410.825Y234.900|16:X410.825Y237.400|16:X410.825Y243.650|16:X410.825Y248.650|16:X410.825Y251.150|16:X407.075Y253.650|16:X408.325Y254.900|16:X405.825Y254.900|16:X404.575Y253.650|16:X403.325Y254.900|16:X402.075Y253.650|16:X400.825Y254.900|16:X399.575Y253.650|16:X397.075Y252.400|16:X395.825Y251.150|16:X397.695Y250.530|16:X397.075Y246.150|16:X402.075Y244.900|16:X404.575Y239.900|16:X398.325Y237.400|16:X397.075Y234.900|16:X395.825Y233.650|16:X397.075Y232.400|16:X394.575Y232.400|16:X393.325Y229.900|16:X392.075Y231.150|16:X390.825Y229.900|16:X389.575Y231.150|16:X388.325Y229.900|16:X387.075Y231.150|16:X385.825Y229.900|16:X384.575Y231.150|16:X383.325Y232.400|16:X382.075Y231.150|16:X380.825Y229.900|16:X380.825Y232.400|16:X380.825Y234.900|16:X378.325Y231.150|16:X377.075Y228.650|16:X375.825Y229.900|16:X374.575Y231.150|16:X373.325Y229.900|16:X372.075Y231.150|16:X370.825Y229.900|16:X369.575Y231.150|16:X372.075Y227.400|16:X373.325Y226.150|16:X374.575Y227.400|16:X375.825Y226.150|16:X377.075Y224.900|16:X378.325Y226.150|16:X382.075Y222.400|16:X380.825Y221.150|16:X379.575Y218.650|16:X378.325Y217.400|16:X382.075Y216.150|16:X374.575Y212.400|16:X373.325Y211.150|16:X372.075Y216.150|16:X368.325Y214.900|16:X365.825Y218.650|16:X365.825Y221.150|16:X368.325Y223.650|16:X369.575Y224.900|16:X370.825Y226.150|16:X367.075Y224.900|16:X364.575Y226.150|16:X359.575Y224.900|16:X357.075Y224.900|16:X352.075Y224.900|16:X353.325Y229.900|16:X352.075Y231.150|16:X350.825Y232.400|16:X349.575Y234.900|16:X348.325Y237.400|16:X346.445Y236.150|16:X352.075Y239.900|16:X359.575Y239.900|16:X360.825Y238.650|16:X363.325Y234.900|16:X364.575Y233.650|16:X362.075Y232.400|16:X360.825Y231.150|16:X358.325Y229.900|16:X357.075Y231.150|16:X355.825Y229.900|16:X354.575Y231.150|16:X367.075Y234.900|16:X373.325Y238.650|16:X375.825Y242.400|16:X373.325Y244.900|16:X374.575Y246.150|16:X369.575Y243.650|16:X365.825Y251.150|16:X363.325Y251.150|16:X362.075Y252.400|16:X359.575Y253.650|16:X360.825Y254.900|16:X358.325Y254.900|16:X357.075Y253.650|16:X355.825Y254.900|16:X354.575Y253.650|16:X352.075Y253.650|16:X349.575Y251.150|16:X360.825Y246.150|16:X369.575Y253.650|16:X370.825Y254.900|16:X372.075Y253.650|16:X373.325Y254.900|16:X374.575Y253.650|16:X375.825Y254.900|16:X377.075Y253.650|16:X378.325Y254.900|16:X379.575Y253.650|16:X380.825Y252.400|16:X382.075Y251.150|16:X384.575Y253.650|16:X385.825Y254.900|16:X387.075Y253.650|16:X388.325Y254.900|16:X389.575Y253.650|16:X390.825Y254.900|16:X392.075Y253.650|16:X393.325Y254.900|16:X395.825Y254.900|16:X387.075Y246.150|16:X385.825Y244.900|16:X384.575Y246.150|16:X384.575Y239.900|16:X385.825Y238.650|16:X387.075Y239.900|16:X394.575Y239.900|16:X399.575Y231.150|16:X399.575Y228.650|16:X398.325Y227.400|16:X397.075Y226.150|16:X395.825Y224.900|16:X395.825Y222.400|16:X393.325Y224.900|16:X392.075Y226.150|16:X390.825Y224.900|16:X389.575Y226.150|16:X388.325Y224.900|16:X387.075Y226.150|16:X384.575Y224.900|16:X395.825Y228.650|16:X402.075Y228.650|16:X403.325Y229.900|16:X402.075Y231.150|16:X405.825Y231.150|16:X408.325Y231.150|16:X404.575Y227.400|16:X403.325Y226.150|16:X412.075Y203.650|16:X405.825Y197.400|16:X402.075Y186.150|16:X403.325Y184.900|16:X403.325Y182.400|16:X403.325Y178.650|16:X399.575Y184.900|16:X410.825Y186.150|16:X410.825Y182.400|16:X415.825Y183.650|16:X415.825Y186.150|16:X418.325Y186.780|16:X420.825Y183.650|16:X423.325Y184.900|16:X427.075Y188.650|16:X428.325Y187.400|16:X428.325Y179.900|16:X428.325Y177.400|16:X427.075Y176.150|16:X425.825Y174.900|16:X427.075Y173.650|16:X424.575Y172.400|16:X429.575Y171.150|16:X432.075Y171.150|16:X435.825Y171.150|16:X438.325Y171.150|16:X415.825Y178.650|16:X410.825Y171.150|16:X409.575Y162.400|16:X410.825Y159.900|16:X409.575Y158.650|16:X410.825Y157.400|16:X404.575Y158.650|16:X408.325Y136.150|16:X413.325Y133.650|16:X411.445Y122.400|16:X405.825Y122.400|16:X398.325Y121.150|16:X395.825Y118.650|16:X398.325Y116.780|16:X395.825Y111.150|16:X397.075Y109.900|16:X398.325Y108.650|16:X399.575Y109.900|16:X400.825Y108.650|16:X402.075Y109.900|16:X403.325Y108.650|16:X404.575Y109.900|16:X405.825Y108.650|16:X408.325Y108.650|16:X408.325Y111.150|16:X409.575Y112.400|16:X408.325Y113.650|16:X410.825Y116.150|16:X412.075Y109.900|16:X413.325Y108.650|16:X414.575Y109.900|16:X415.825Y108.650|16:X418.325Y109.900|16:X419.575Y108.650|16:X420.825Y109.900|16:X424.575Y112.400|16:X423.325Y114.900|16:X427.075Y108.650|16:X429.575Y111.150|16:X433.325Y109.900|16:X435.825Y109.900|15:X408.325Y98.650|15:X407.075Y82.400|15:X408.325Y81.150|15:X405.825Y81.150|15:X404.575Y82.400|15:X402.075Y81.150|15:X400.825Y82.400|16:X393.325Y107.400|16:X390.825Y107.400|16:X388.325Y108.650|16:X387.075Y109.900|16:X385.825Y108.650|16:X384.575Y109.900|16:X383.325Y108.650|16:X382.075Y109.900|16:X378.325Y111.150|16:X378.325Y113.650|16:X377.075Y108.650|16:X377.075Y104.900|16:X377.075Y102.400|16:X378.325Y101.150|15:X379.575Y98.650|16:X382.075Y103.650|16:X384.575Y103.650|16:X389.575Y109.900|16:X392.075Y109.900|16:X393.325Y112.400|16:X392.075Y121.150|16:X385.825Y121.150|16:X385.825Y123.030|16:X385.825Y124.900|16:X382.075Y124.900|16:X385.825Y118.650|16:X384.575Y117.400|16:X373.325Y119.900|16:X372.075Y123.650|16:X373.325Y124.900|16:X373.325Y109.900|16:X374.575Y103.650|16:X398.325Y124.900|16:X395.825Y133.650|16:X384.575Y139.900|16:X382.075Y141.150|16:X379.575Y147.400|16:X348.325Y127.400|16:X365.825Y207.400|16:X365.825Y209.900|16:X355.825Y211.150|16:X368.325Y254.900|16:X383.325Y254.900|16:X414.575Y253.650|16:X418.325Y253.650|16:X419.575Y254.900|16:X422.075Y253.650|16:X423.325Y254.900|16:X427.075Y251.150|16:X428.325Y252.400|16:X429.575Y253.650|16:X430.825Y254.900|16:X433.325Y253.650|16:X433.325Y256.150|16:X435.825Y254.900|16:X435.825Y252.400|16:X438.325Y252.400|16:X428.325Y246.150|16:X427.075Y248.650|16:X427.075Y237.400|16:X419.575Y197.400|
ScrollBars=3
}
Add(Label,6096032,280,91)
{
Left=10
Top=10
Width=106
Height=17
Caption="Изначальные коорд"
}
Add(Label,8239751,287,84)
{
Left=190
Top=10
Width=114
Height=17
Caption="Коорд со смещением"
}
Add(Label,7440265,294,77)
{
Left=135
Top=335
Width=52
Height=17
Caption="Искомые"
}
Add(Label,5107778,299,71)
{
Left=10
Top=210
Width=96
Height=17
Caption="4 из изнач списка"
}
Add(Hub,1616801,392,133)
{
link(onEvent1,9304572:doClear,[(473,139)(473,160)])
link(onEvent2,6440888:doStart,[(417,146)(417,153)])
}
Add(MultiElementEx,6440888,427,147)
{
link(onRes,9304572:doAdd,[])
link(ArrEtalon,13306860:Array,[])
link(ArrList,7219571:Array,[(440,120)(482,120)])
}
BEGIN_SDK
Add(EditMultiEx,13437388,21,21)
{
WorkCount=#7:doStart|
EventCount=#5:onRes|
DataCount=#9:ArrEtalon|7:ArrList|
Width=573
Height=228
VOffset=84
HOffset=34
link(doStart,6279351:doEnum,[])
}
Add(ArrayEnum,6279351,56,105)
{
link(onItem,4636944:doEvent1,[])
link(Array,13437388:ArrEtalon,[])
}
Add(ArrayEnum,13872804,231,112)
{
link(onItem,6432517:doReplace,[])
link(onEndEnum,12120797:doString,[(270,125)(270,195)])
link(Array,13437388:ArrList,[(237,54)(68,54)])
}
Add(Replace,7719177,133,112)
{
SubStr="X"
link(onReplace,996568:doSplit,[])
}
Add(MultiStrPart,996568,182,112)
{
Char="Y"
link(onSplit,13872804:doEnum,[])
}
Add(Replace,6432517,280,112)
{
SubStr="X"
link(onReplace,11707804:doSplit,[])
}
Add(MultiStrPart,11707804,329,112)
{
Char="Y"
link(onSplit,16573204:doCalc,[])
}
Add(Hub,4636944,98,105)
{
link(onEvent1,13678555:doEvent1,[(123,111)(123,62)])
link(onEvent2,7719177:doReplace,[])
}
Add(Memory,2066155,455,49)
{
Default=Real(999999999)
}
Add(MathParse,16573204,399,112)
{
DataCount=4
MathStr="sqrt(sqr(%1 - %3) + sqr(%2-%4))"
link(onResult,309845:doCompare,[])
link(X1,996568:Part1,[(405,103)(391,103)(391,173)(188,173)])
link(X2,996568:Part2,[(412,96)(384,96)(384,166)(195,166)])
link(X3,11707804:Part1,[(419,89)(377,89)(377,159)(335,159)])
link(X4,11707804:Part2,[(426,82)(370,82)(370,152)(342,152)])
}
Add(If_else,309845,448,112)
{
Type=1
link(onTrue,5386973:doEvent1,[])
link(Op2,2066155:Value,[])
}
Add(FormatStr,12120797,441,189)
{
Mask="%1 --- %2"
link(onFString,13437388:onRes,[(563,195)(563,111)])
link(Str1,6279351:Item,[(447,180)(62,180)])
link(Str2,9731455:Value,[(454,152)(552,152)])
}
Add(Hub,5386973,490,112)
{
link(onEvent1,2066155:doValue,[(515,118)(515,104)(445,104)(445,55)])
link(onEvent2,9731455:doValue,[(522,125)(522,62)])
}
Add(Memory,9731455,546,56)
{
Default=String()
Point(Data)
link(Data,13872804:Item,[(552,47)(321,47)(321,152)(237,152)])
}
Add(Hub,13678555,413,56)
{
link(onEvent1,2066155:doClear,[])
link(onEvent2,9731455:doClear,[])
}
END_SDK

карма: 19

0
Ответов: 106
Рейтинг: 0
#3: 2021-10-20 15:26:06 ЛС | профиль | цитата
Леонид писал(а):
Gitarist, какие-то странные у вас массивы
Пример

Леонид, огромное Вам спасибо, который раз уже выручаете! Вроде работает, вечером прикручу к основной проге и проверю досконально
А что не так с массивами?

а в этой строке "sqrt(sqr(%1 - %3) + sqr(%2-%4))" sqrT и sqr чем то отличаются? "t" не очепятка? Почему тогда работает...?

Редактировалось 2 раз(а), последний 2021-10-20 15:36:25
карма: 0

0
Ответов: 8886
Рейтинг: 823
#4: 2021-10-20 20:26:13 ЛС | профиль | цитата
Gitarist, sqrt(x) -- корень квадратный из "x", sqr(y) -- квадрат "y", а всё вместе теорема Пифагора, вычисление расстояния между точками. Клавиша "F1" с выделенным элементом выводит справку, там много хорошего
В массиве должны быть данные, разделитель ";" или какой-либо принятый, а имена данных нужно помещать в заголовок столбцов (или строк).
карма: 19

0
Ответов: 106
Рейтинг: 0
#5: 2021-10-21 16:29:08 ЛС | профиль | цитата
Хм, Леонид, а может еще поможете в решении похожей задачки?

Среди списка множества координат нужно найти 4 : Самую левую верхнюю, самую правую верхнюю, самую левую нижнюю, и самую правую нижнюю.
За пример списка координат можно взять тот что выше.

У меня есть конечно свой способ, но что то там я много всего напихал, некрасиво ))) Может у Вас получится через формулу какую нибудь?
карма: 0

0
Ответов: 8886
Рейтинг: 823
#6: 2021-10-21 19:03:10 ЛС | профиль | цитата
Gitarist, самые--самые могут и не совпасть, к примеру в вашем списке самая "нижняя" одна (У=256.15) и одновременно и самая левая, и самая правая А вот "самых" верхних (У=77.4) две, но они чуть вдалеке от "слева" и от "справа", есть и поближе, но они не "самые".
Может сформулировать "самые" как ближайшие к углам прямоугольника с "самыми" координатами из всех точек массива?
карма: 19

0
Ответов: 106
Рейтинг: 0
#7: 2021-10-22 08:32:50 ЛС | профиль | цитата
Леонид писал(а):
Может сформулировать "самые" как ближайшие к углам прямоугольника с "самыми" координатами из всех точек массива?

Вы имеете в виду можно взять, к примеру, прямоугольник с координатами X0Y0 X0Y1000 X1000Y1000 X1000Y0 и подставляя Вашу предыдущую формулу найти ближайшие координаты? Да , конечно, это то что нужно.

---
Опробовал. Отлично, все работает!

Редактировалось 4 раз(а), последний 2021-10-22 09:53:31
карма: 0

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)