Повышение транспортных качеств лесовозных автодорог на основе моделирования их элементов
Диссертация
Способ формирования гладких криволинейных (в плане) элементов лесовозных автомобильных дорог, отличающийся более «мягким» нарастанием центробежного ускорения на переходной кривой, чем достижимо с использованием современных методик. конструкция криволинейных (в плане) элементов лесовозных автомобильных дорог, обеспечивающая снижение стоимости строительства, отличающаяся использованием дуговых… Читать ещё >
Список литературы
- Курьянов в. К., Макеев В. Н. Проектирование автомобильных дорог лесозаготовительных предприятий: Учеб. пособие. Воронеж, изд. ВГУ, 1982.- 160 с.
- Алябьев В. И., Кувалдин Б. И., Грехов Г. Ф. Сухопутный транспорт леса: Учебник для вузов. М.: Лесн. пром-сть, 1990, 416 с.
- Бируля А. К. Проектирование автомобильных дорог (в 2-х частях) ч. 1. 4-е изд, перераб и доп. М.: Научно — техническое издательство министерства автомобильного транспорта и шоссейных дорог РСФСР, 1961. — 500 с.
- Попов Д. А. И др. Сухопутный транспорт леса: Учебник для вузов. М.: Гослесбумиздат, 1963. — 864 с.
- Бабков В. Ф., Андреев О. В. Проектирование автомобильных дорог (в 2-х частях) ч. 1: Учебник для вузов. 2-е изд., перераб и доп. М.: Транспорт, 1987. — 368 с.
- Заложных В. М. Проектирование автомобильных лесовозных дорог: Учеб. пособие для вузов. Воронеж: ВГЛТА, 1999. — 197 с.
- Замахаев М. С. переходные кривые на автомобильных дорогах. -М.: Транспорт, 1965. 114 с.
- Бабков В. Ф., Андреев О. В., Замахаев М. С. Проектирование автомобильных дорог (в 2-х частях) ч. 2. 3-е изд., перераб. и доп. М.: Транспорт, 1970. — 316 с.
- Буверт В. В., Ионов Б. Д. и др. Сухопутный транспорт леса. М. -Л.: Гослесбумиздат, 1951. — 818 с.
- Иванов Н. Н. И др. Строительство автомобильных дорог. М.: Транспорт, 1969. — 411 с.
- Клычков п. Д. Водителю лесовозного автомобиля. 2-е изд., пере-раб. и доп. -М.: Лесн. пром-сть, 1976. 128 с.
- Соколов Г. М. Движение лесовозного автопоезда на кривых. Теория. Расчет. Эксперимент: Дис. д-ра техн. наук. Йошкар-Ола, 1998. — 274 с.
- Белятынский А. А., Таранов А. М. Проектирование кривых при строительстве и реконструкции автомобильных дорог: Учеб. пособие для вузов. Киев, Выща школа, 1988. — 301 с.
- Проектирование автомобильных дорог (примеры)/Под ред. В. Ф. Бабкова. 3-е изд., перераб. М.: Транспорт, 1966. — 395 с.
- Автомобильные дороги: Проектирование и строительство/Под ред. В. Ф. Бабкова, В. К. Некрасова (СССР), Г. Щилянова (НРБ). М.: Транспорт, 1983.-240 с.
- Бабков В. Ф. Автомобильные дороги: Учебник для вузов. 3-е изд., перераб и доп. М.: Транспорт, 1983. — 280 с.
- Блинов О. С. и др. Лесозаготовки. Сухопутный транспорт леса. -М. Л.: Гослесбумиздат, 1962. — 205 с.
- Васильева М. В., Дубровицкий С. М. Автомобильные дороги: Учебник для вузов. М.: Транспорт, 1982. — 135 с.
- Леонович И. И. Формулы и зависимости для решения дорожных и транспортных задач. Минск: Вышейш. школа, 1974.- 480 с.
- Заложных В. М. Автомобильные лесовозные дороги: Учеб. пособие. -Воронеж, политехи, ин-т. Воронеж, 1991. 160 с.(1991, 545 139)
- Ильин Б. А. Проектирование, строительство и эксплуатация лесовозных дорог: Учебник для вузов. М.: Лесн. пром-сть, 1971. — 575 с.
- Ильин Б. А. Лесные дороги: Учеб пособие для студентов специальности 1512. Л.: ЛТА, 1980. 64 с.
- Леонович И. И. Автомобильные лесовозные дороги. Минск: Высшая школа, 1965. — 395 с.
- Замахаев М. С. Снижение продольных уклонов на кривых малых радиусов автомобильных дорог, М.: Автотрансиздат, 1962. — 28 с.
- Гаспарянц Г. А. Устойчивость и управляемость автомобиля. М.: Автотрансиздат, 1960. — 154 с.
- Гаспарянц Г. А. О боковом уводе автомобиля // Автомобильная промышленность. 1954. — № 8. — С. 18−19.
- Кузнецов Ю. В. Сцепление автомобильной шины с дорожным покрытием: Учеб. пособие. М.: МАДИ, 1985. — 106 с.
- Проектиране и строительство на автомобильни пътища /Под редакция то на д.т.н. инж. В. Ф. Бабков, проф. д.т.н. инж. В. К. Некрасов (СССР) и проф. к.т.н. Г. Щилянов (НРБ). Държавно издательство «Техника», София, 1985 г., 468 с.
- Автомобильный транспорт леса: Справочник / Под ред. канд. техн. наук В. А. Горбачевского. М.: Лесн. пром — сть, 1973. — 372 с.32ЛГохман В. А. Общий курс автомобильных дорог: Учебник для вузов. М.: Высш. школа, 1976. — 207 с.
- Ильин Б. А., Корунов М. М., Кувалдин Б. И. Проектирование, строительство и эксплуатация лесовозных дорог. М.: Лесн. пром-сть, 1971. -576 с.
- Иевлев А. П., Яковлев В. Т. технология лесозаготовок и транспорт леса: Учеб. пособие. Воронеж: Изд-во Воронеж, ун-та, 1979. — 97 с.
- Инструкция по проектированию лесозаготовительных предприятий в е н 01−82. Ленинград, Гипролестранс, 1983−186 с.
- Кудрявцев М. И., Коганович В. Е. Изыскания и проектирование автомобильных дорог. М.: Транспорт, 1980. — 296 с.
- Кувалдин Б. И., Морозов С. А. Проектирование лесовозных автомобильных дорог. Гослесбумиздат, 1962. — 332 с.
- Кувалдин Б. И., Ионов Б. Д. Дороги в лесхозах. М.: Лесн. пром-сть, 1967.-260С.
- Красильщиков И. М., Елизаров Л. В. Проектирование автомобильных дорог: Учеб. пособие для автомобильно дорожных техникумов. — М.: Транспорт, 1986. — 214 с.
- Кувалдин (Лесохоз. дороги. 1976, 96 с.)
- Лавриненко Л. Л. Изыскания и проектирование автомобильных дорог: Учебник. М.: Транспорт, 1991. — 295 с.
- Димитр Сотиров Георгиев. Проектиране на пътища. София: Държавно издательство «Техника», 1983, — 452 с.
- СП и П 2.05.02 90. Автомобильные дороги. Нормы проектирования. — М.: Союздорнии (проект), 1990. — 271 с.
- Автомобильные лесовозные дороги: Справочник / под ред. Матве-енко Л. С. М.: Лесн. пром-сть, 1981. — 264 с.
- Горбов А. Ф. Строительство, содержание и эксплуатация зимних лесовозных автомобильных дорог в северо западных регионах страны (обзор). — М.: изд-во ВНИПИЭИлеспром, 1976. — 44 с.
- Крайнов В. П. Повышение эффективности работы автомобильных лесовозных дорог (обзор), М: ротапринт ВНИПИЭИлеспрома, 1974. — 25 с.
- Савко Н. Ф. Расчет и конструирование зимних автомобильных дорог. М.: Транспорт, 1969. — 127 с.
- Савин Л. Е., Павлов Ф. А., Веселов Б. В. Лесовозные автомобильные дороги на Севере. М.: Лесн. пром-сть, 1969. — 168 с.
- Рациональные способы строительства лесовозных дорог (обзор). -М.: изд-во ВНИПИЭИлеспром, 1976. 64 с.
- Гибшман Е. Е. Безопасность движения на мостах. М.: Транспорт, 1967.-198 с.
- Кувалдин Б. И. Лесохозяйственные дороги (устройство и содержание). М.: Лесн. пром-сть, 1976. — 96 с.
- Гаврилов А. А, Моделирование дорожного движения. М.: Транспорт, 1980. — 189 с.
- Орнатский Н. П. Пространственное трассирование автомобильных дорог / В кн.: Повышение транспортно эксплуатационных качеств автомобильных дорог, Москва — Алма-Ата, изд. Минавтодора Каз. ССР, 1970. — С. 96−108
- Шевяков А. П. проектирование элементов автомобильных магистралей. М.: МАДИ, 1982 — 95 с.
- Дороги и транспорт лесной промышленности: Справ. пособие/Под ред. И. И. Леоновича. Минск: Вышейш. Школа, 1979.- 415 с.
- Шелгунов Ю. В. Лесоэксплуатация и транспорт леса: Учеб. пособие для вузов. М.: Лесн. пром-сть, 1989. — 517 с.
- Кузьмин В. И., Овчаренко А. А. К теории конструирования виражей / Проектирование, строительство, эксплуатация автомобильных дорог, аэродромов и искусственных сооружений//Труды Союздорнии.- Вып. 194. -М.: Союздорнии, 1997. С. 50 — 56.
- Ксенодохов В. И. Таблицы для клотоидного проектирования и разбивки плана и профиля автомобильных дорог: Справочник. 2-е изд., пе-рераб. и доп.-М.: 1981.-413 с.
- Митин Н. А. Таблицы для разбивки кривых на лесовозных автомобильных дорогах. М.: Лесн. пром-сть, 1964. — 112 с.
- Мюллер Г. основы трассирования и разбивка автомобильных и железных дорог / Перевод с нем. В. А. Федотова. М.: Транспорт, 1990,238 с.
- Бабков В. Ф. Ландшафтное проектирование автомобильных дорог: Учеб. пособие. 2-е изд., перераб. и доп. — М.: Транспорт, 1980.- 187 с.
- Мигляченко В. П. Зимнее строительство лесовозных автомобильных дорог. -М.: Лесн. пром-сть, 1988. 168 с.
- Салминен Э. О. Автоматизация проектирования лесовозных дорог: Учеб. пособие. Л.: Издательство Ленинградского университета, 1990. — 264 с.
- Федотов Г. А. Автоматизированное проектирование автомобильных дорог. -М.: Транспорт, 1986. 316 с.
- Паршиков В. А., Поляков Г. А. Оптимальное начертание сети дорог с помощью электронно вычислительных машин // Автомобильные дороги. — 1965. — № 11. — С. 20 — 21
- Хомяк Я. В. Проектирование сетей автомобильных дорог. М.: Транспорт, 1983.-207 с.
- Хомяк Я. В., Полищук В. П. и др. Автоматизация проектирования автомобильных дорог. Киев: Выща школа. Изд. при Киев, ун-те, 1987. -192с.
- Бакляр М. В., Перекрестов В. А., Овчинников И. Г. О применении сплайн аппроксимации для трассирования новых и анализа динамической плавности существующих дорог // Изв. Вузов. Строительство и архитектура, 1989. — № 5-С. 17−20.
- Спицнадель В. И. Основы системного анализа: Учеб. пособие. -СПб.: Изд. дом «Бизнес пресса», 2000 г. — 326 с.
- Курьянов В. К. Лесотехнологические особенности лесовозных дорог: Учеб. пособие. Воронеж: ВПИ, 1985. — 85 с.
- Вайсман А. И. Гигиена труда водителей автомобилей. М.: Медицина, 1988. — 182 с.
- III Всесоюзная конференция по автодорожной медицине: Сб. научи, трудов / Под ред. Вайсмана А. И. Горький, 1989. — 264 с.
- Бегма И. В. Учет психофизиологии водителей при проектировании автомобильных дорог. М.: Транспорт, 1976. — 89 с.
- Клебельсберг Д. Транспортная психология: пер. с нем. / Под ред. В. Б. Мазуркевича. М.: Транспорт, 1989. — 367 с.
- Лобанов Е. М. Проектирование дорог и организация движения с учетом психофизиологии водителя. М.: Транспорт, 1980. — 311с.
- Курьянов В. К., Папонов Н. Н. Экологические проблемы строительства и эксплуатации лесовозных автомобильных дорог: Учеб. пособие. -Воронеж: Воронеж, гос. лесотех. акад., 1999. 54 с.
- Орнатский И. П. Автомобильные дороги и охрана природы.- М.: Транспорт, 1982.- 176 с.
- Ефимов Г. А., Ларкин Ю. М. Транспорт и окружающая среда. -М.: Знание, 1975.-64 с.
- Звонов В. А. токсичность двигателей внутреннего сгорания. М.: Машиностроение, 1981. 160 с.
- Кавторадзе Д. Н. Автомобильные дороги в экологических системах (проблемы взаимодействия). М.: ЧеРо, 1999. — 240 с.
- Евгеньев И. Е., Каримов Б. Б. Автомобильные дороги в окружающей среде. М.: ООО «Трансдорнаука», 1977.-285 с.
- Белятинский А. А., Филиппов А. В. Уменьшение загрязнения воздуха выхлопными газами при движении автомобильных потоков на горизонтальных кривых / В кн. Автомоб1льн1 дороги 1 дорожне буд1вництво, вьш.25. -Киев: 1979.-С 98−101.
- Белятинский А. А., Филиппов А. В. Влияние ограничения скорости на загазованность окружающей среды / В кн. Автомоб1льн1 дороги 1 дорожне буд1вництво, вьш.25. Киев: 1979. — С. 101 -105 144
- Берлянд М. Е. Современные проблемы атмосферной диффузии и загрязнения атмосферы. Ленинград: Гидрометеоиздат, 1975. — 448 с.
- Баршай С. Е., Нестеренок В. Ф., Хренов Л. С. Инженерная геодезия. Минск: Вышейш. школа, 1976. — 400 с.
- Справочник по математике: Справочник / под ред. Рывкина А. А. и др. М.: Высш. школа, 1975. — 554 с.
- Герасимов Ю. Ю., Кильпеляйнен С. А. Геоинформационные системы: теория и применение в лесном комплексе. Йонэсуу: изд-во университета Йонэсуу, 2000. — 201 с.
- ГИС ассоциация: Информационный бюллетень. — № 3(5). -1996.-30 с.
- ГИС ассоциация: Информационный бюллетень. — № 4(6). -1996.-34 с.
- ГИС ассоциация: Информационный бюллетень. — № 5(7). -1996.-32 с.
- Ройзман А. С. Пособие по проектированию автомобильных дорог: Учеб. пособие. М.: Транспорт, 1986. — 240 с.
- Грехов Г. Ф., Тюрин Н. А., Яблочкин А. А. Сухопутный транспорт леса. Л.: ЛТА, 1989. — 93 с. program Turning-uses Forms,
- Main in 'Main.pas' {Forml}, Cloth in 'Cloth.pas',
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ComCtrls, Cloth, Clothlnfo, Picture, Triangle, CompVir, CCurve, Compare, Results- type
- Public declarations } end- var
- YaNumSect+l.:= Yb[NumSect+l]+Rad[NumSect+l]*sin ((3.14-Comer)/2+Comer) — LenCurve:= 2- e:= 0.01- i:=NumSect+l- repeat begin
- Chord1.:= StrToFloat (FloatToStrF (2*Radi.*sin (LenCurve/(2*Rad[i])), ffNumber, 4,2))-tri (Xa1., Yai., Xb[i], Yb[i], Rad[i], Chord[i], e, Form3.Imagel.Canvas) — Xb[i-l]: =Xc- Yb[i-l]: =Yc-
- Xai-1.:= (Rad[i-l]*Xa1.-(Rad[i-l]-Rad[i])*Xb[i])/Rad[i]- Ya[i-1]: = (Rad[i-l]*Ya[i]-(Rad[i-l]-Rad[i])*Yb[i])/Rad[i]-i:=i-l- end-until i=l- end- end. unit Cloth- interfaceuses Windows, SysUtils, Graphics-var MaxK: integer- imove: integer- from: integer-
- Numer01 d: =Numer- for i:=l to Stepen-1 dobegin
- Forml.Labell5.Caption:=FloatToStrF (((x2-clx1.)*(x2-clxi.)+(y2ciy1.)*(y2-clyi.)), ffGeneral, 3, 3)-i:=i-l- until i=Maxk-1 (998}-end-procedure Clothoida- var С: real- //параметр клотоиды s: real- //текущая длина клотоидык: integer- // счетчикbegin
- RadFin:=Forml .SpinEdit2.Value-1.nClotli:=(InStep (Forml.SpinEdit6.Value, 3))/(47*0.5319*RadFin) —
- Form 1. Label 16.Caption:=FloatToStr (LenCloth) — StepCloth:=0.01-s:=0- k:=0-
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Cloth-$R *.DFM}procedure ClothlnfoOut- type
- TForm2 = class (TForm) StringGridl: TStringGrid- procedure FormCreate (Sender: TObject) — private
- Private declarations } public
- Public declarations } end-var
- Form2: TForm2- EndOfCycle: integer-
- DiscrOut: integer- // дискретизация вывода в таблицу implementation$Шда- ClothInfoOut-var ij: integer- begin
- DiscrOut:=Forml .SpinEditl .Value- ifStepCloth>Othen
- Forml .SpinEditl .MaxValue:=round (LenCloth/StepCloth) — with Form2. StringGridl do begin
- EndOfCycle:=round (MaxK/DiscrOut) — RowCount:=MaxK-
- Cells0,0.:=' N'- Cells[l, 0]: =' S'- Cells[2,0]: =' R'- Cells[3,0]: =' X'- Cells[4,0]: =' Y'- RowCount:=EndOfCycle+2- Cells[0,l]: =FloatToStrF (l, ffFixed, 7, 2) — Cells[l, l]: =FloatToStrF (0, ffFixed, 7,2)-1. Cells2, l.:='npHMaa'-
- Cells3,1. :=FloatToStrF (0, ffFixed, 7, 2) —
- Cells4,l.:=FloatToStrF (0, ffFixed, 7, 2)-for i:=0 to 2 do for j:=2 toRowCountdobegin
- Form2.Top:= Forml .Top- Form2. Left:= Forml .Left+Forml .Width- Form2. Height:= Forml. Height- Form2.StringGridl.Height:= Forml. Height-31 end- end. unit CompVir- interfaceuses SysUtils, Dialogs- procedure CVirage-var
- NumSect: integer- // Число секторов
- RadFin: real- // Радиус закругления RadBeg: real- // Начальный радиус1. in: real- // Уклон закругления HoutFin: real- // Высота кромки закругления hStep: real- // Ступенька Idop: real- // продольный уклон
- VupX, Vup Y: integer- // Вершина угла поворота Comer: real- // Угол поворота XRoad2, YRoad2: real- XRoadB, YRoadB: real-
- Biss, XRoadBi, YRoadBi: real-implementationuses Main, Picture- procedure CVirage- var i: integer- begin
- Mue:=0.16- Ago:= 9.8- hStep:=0.01- Idop:=0.005- RadFin:= Forml. SpinEdit2.Value- RadBeg:= Forml.SpinEditS.Value-
- Arate 1 .:= Rate*Rate/RadBeg- Hout[ 1 ]: = 0.01- Krate:=(Arate[NumSect]-Arate[l])/(Hout[NumSect]-Hout[l]) — brate:= Arate [l] -Hout[l] *Krate- for i:=NumSect-l downto 1 do begin
- Hout1.:=Houti+l.-hStep- ifHout[i]<0.01 thenHout[i]: = 0- Icontr[i]: = Hout[i]/RdWide- Arate[i]: = Krate*Hout[i]+brate-
- Rad1.:= Rate*Rate/Aratei.- end-
- Biss:= RadFin*(l/(cos (Comer/2))-1) — XRoadBi:= VupX+Biss*cos ((3.14-Comer)/2+Comer) — YRoadBi:= VupY+Biss*sin ((3.14-Comer)/2+Comer) — end- end. unit Compare-interfaceuses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids-procedure Comparing- type
- TForm4 = class (TForm) StringGridl: TStringGrid- procedure FormCreate (Sender: TObject) — private
- Private declarations } public
- Public declarations } end-var
- Form4: TForm4- implementationuses Main, Cloth, CompVir, CCurve-procedure Comparing- var i: integer- beginwith Form4. StringGridl do begin1. RowCount:= NumSect+1-if NumSect=0 then begin RowCount:= 2- FixedRows:= 1 end-
- Cells0,0.:=' n'- Cells[l, 0]: = ' i'- Cells[2, 0]: = ' V- Cells[3,0] :=' H'- Cells[4, 0]: =' rKji'- Cells[5, 0]: = ' aKJi'- Cells[6, 0]: =' RrCMK'- Cells[7, 0]: =' arCMK'- Cells[8,0]: =' Rrp'- if NumSect>0 then beginfor i:= 1 to NumSect do begin
- FloatToStrF ((RadFin*LenCloth)/(Hout1./Idop), ffFixed, 7, 2) — Cells5, i.
- FloatToStrF (Rate*Rate/((RadFin*LenCloth)/(Hout1./Idop)), ffFixed, 7, 2) —
- Cells6, i.:= FloatToStrF (Rad1., ffFixed, 7, 2) — Cells[7, i]: = FloatToStrF (Arate[i], ffFixed, 7, 3) —
- Cells8, i.:= FloatToStrF ((Rate*Rate/(Ago*(Icontr1.+Mue))), ffFixed, 7, 2)-end- end- end- end- {$R*.DFM}procedure TForm4, FormCreate (Sender: TObject) — begin
- Form4.Top:= Forml. Top- Form4. Left:= Forml. Left+Forml.Width- Form4. Height:= Forml. Height- Form4.StringGridl. Height := Forml. Height-31 end- end. unit Results-interfaceuses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls-procedure Res-type
- TFormS class (TForm) PageControU: TPageControl- TabSheetl: TTabSheet- TabSheet2: TTabSheet- Imagel: TImage-procedure FormCreate (Sender: TObject) — private
- Private declarations } public
- Public declarations } end- var
- FormS: TForm5- implementation uses Main- {$R*.DFM}procedure TForm5. FormCreate (Sender: TObject) — begin
- CA:=fnCA (Xn, Yn, Xk, Yk) — if C A o O then K:=S/CA else K:=0- dl:=abs (CA-S) — Xc:=fnXX (Xn, Xk, K) — Yc:=fnXX (Yn, Yk, K) — end-begin1. Xc:=Xtb-Ml- Yc:=Ytb-j:=i- repeat Xtc:=Xc- Ytc:=Yc-
- Ci (Xc, Yc, Xta, Yta, L) — Swap (Xta, Xtb) — Swap (Yta, Ytb) — Swap (L, Ml)-if from = 1 then Forml. Labell4.Caption:=IntToStr (j) — j:=j+l- until D K e-end- end. unit Picture-interfaceuses
- Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, Graphics-type
- TForm3 = class (TForm) PageControU: TPageControl- TabSheetl: TTabSheet- Imagel: TImage- procedure Initlmage- procedure FormCreate (Sender: TObject)-private
- Private declarations } public
- Public declarations } end-var1. Form3: TForm3-procedure PictShow- varalpha: real-implementationuses Main, Cloth, Triangle, CompVir, CCurve, ClothInfo-procedure TForm3. InitImage- varTnTrect-begin
- Tr.Left:=0- Tr. Top:=0- Tr. Right:=Imagel .Width- Tr. Bottom :=Image 1. Height-1.age 1.Canvas.Brush.Color:=clBlack- Image 1.Canvas.FillRect (Tr) — end-procedure PictShow- var i: integer-
- Mult: integer- // Мультипликатор GradeScale: integer- // градуировка DiffX, DiffY: real- // разницы между точками биссекриссы и ГСМКbegin
- Mult:= StrToInt (Forml .Editl .Text)-1. FormS. Initlmage-ifMaxK>Othenbeginwith Form3. Image 1 .Canvas do begin // градуировкаif Forml. CheckBox7.Checked=TRUE then begin
- MoveTo ((VupX-100)*Mult, VupY) — LineTo ((VupX+100)*Mult, VupY) — MoveTo (VupX, VupY) — LineTo (round (XRoad2), round (YRoad2)) — MoveTo (VupX, VupY) — LineTo (round (XRoadB), round (YRoadB)) — Pen. Color:=clwhite-
- Xa1. := Xai.*cos (alpha)+Ya[i]*sin (alpha) — Ya[i] := -Xa[i]*sin (alpha)+Ya[i]*cos (alpha) — Xb [i]: = Xb [i] * cos (alpha)+Yb [i] * sin (alpha) — Yb [i] :=-Xb[i] * sin (alpha)+Yb[i] *cos (alpha) — end-
- DiffX:= XRoadBi XbNumSect+l.- DiffY:= YRoadBi — Yb[NumSect+l]-
- MoveTo (round (XaNumSect+1 .+DiffX), round (Ya[NumSect+1 ]+DiffY)) — LineTo (round (Xb[NumSect+l]+DiffX), round (Yb[NumSect+l]+DiffY)) — for i:=NumSect+l downto 2 do beginif Forail. CheckBoxl .Checked=TRUE then begin
- MoveTo (round (Xa1. +DiffX), round (Yai. +DiffY))-1.neTo (round (Xb1. +DiffX), round (Ybi. +DiffY))-1.neTo (round (Xbi-l.+DiffX), round (Yb[i-l]+DiffY)) — end else begin
- MoveTo (round (Xb 1. +DiffX), round (Ybi. +DiffY))-1.neTo (round (Xbi-l.+DiffX), round (Yb[i-l]+DiffY)) — end- end- end- end- end-end-$R*.DFM}procedure TForm3. FormCreate (Sender: TObject) — begin
- Form3.Top:= Forml. Top- Form3 .Left- Forml .Left+Forml .Width- Fomi3. Height:= Form 1. Height- Form3. Image 1 .Height:= Forml. Height-31 end- end.168