Высокоточные системы навигации для повышения безопасности судоходства на водных путях
Диссертация
Основанием для проведения исследования является Перечень критических технологий, утвержденный Президентом Российской Федерации от 21.05.06 г, № Пр-578. Исследования, проводимые в данном направлении, приобретают еще большую актуальность в связи с мероприятиями, предусмотренными подпрограммами «Морской транспорт» и «Внутренний водный транспорт» Федеральной целевой программы «Модернизация… Читать ещё >
Список литературы
- «Речной транспорт (XXI век)» №Г2007, с. 22.
- Тезисы доклада начальника Управления государственного морского и речного надзора В.В. Евстигнеева//"Речной транспорт (XXI век)" № 1'2007, 19 с.
- Кодекс внутреннего водного транспорта Российской Федерации, № 24-ФЗ, от 7 марта 2001 г.
- Федеральный закон «О безопасности гидротехнических сооружений», № 117-ФЗ, от 21 июля 1997 г.
- Транспортная стратегия Российской Федерации на период до 2020 г.
- Федеральная целевая программа «Модернизация транспортной системы России (2002−2010 годы)» (утверждена Постановлением Правительства Российской Федерации 5 декабря 2001 г. N 848).
- Тезисы доклада руководителя Федерального агентства морского и речного транспорта А. А. Давыденко на расширенном заседании Минтранса РФ1411.2006 г.//"Речной транспорт (XXI век)" № 6'2006, с. 14−16. -
- CD ISM CODE МКУБ. Международный кодекс по управлению безопасной эксплуатацией судов.
- Торский В.Г. Управление безопасностью в судоходстве Одесса: Астропринт, 2005, 180 с.
- Б.Ф. Новосельцев, Н. А. Ефремов, В. М. Воронцов, В. И. Поспелов. Внутренний водный транспорт России М.: ООО «Журнал „РТ“, 2006 — 224 с.
- В.А. Кривошей. Реки и каналы России. -М.: ООО „Ом Паблишинг"&-000 „Журнал „РТ“, 2007, 240 с.
- Журнал „Речной транспорт (XXI век)“ №Г2005.
- Приказ Минтранса РФ, № 221 от 29.12.2003 г., пп.5−9. Классификация 1 транспортных происшествий.14. „Речной транспорт (XXI век)“ № 1'2006.
- Дмитриев В.И. Обеспечение безопасности плавания М.: Академкнига, 2005, 374 с.
- Даниленко А.А. Психологические основы управления на морском транспорте СПб.: ГМА им. Макарова, 2004, 395 с.
- Корякин В.И. От астролябии к навигационным комплексам СПб: Судостроение, 1994, 240 с.
- В.А. Катенин, В. И. Дмитриев. Навигационное обеспечение судовождения М.: Академкнига, 2006, 372 с.
- Инструкция по навигационному оборудованию (ИНО 89), 2000
- Шмерлинг И.Е. Навигационное оборудование внутренних водных путей -М.: Транспорт, 1988, 224 с.
- В.Г. Савельев. Применение лазеров для речной навигации (учебное пособие) -М.: МИИТ, 1982, 56 с.
- В.Е.Зуев, В. Я. Фадеев. Лазерные навигационные устройства М.: „Радио и связь“, 1987,160 с.
- Громов Ю.Н., Савельев В. Г., Шмерлинг И. Е., Цупин А. А. „Эксплуатационные испытания лазерного створа в навигацию 1983 года в кн. Повышение надежности и эффективности технических средств речного транспорта“ М: ЦБНТИ Минречфлота, 1985, 39 с.
- Ключников А.С., И.Е. Шмерлинг, А. А. Цупин. Отчет об опытно-конструкторской работе „Разработка лазерных створов для водных путей“ М МИИВТ, 1988, 73 с.
- Глобальная спутниковая радионавигационная система/под ред. В. Н. Харисова, А. И. Петрова, В. А. Болдина Изд.2. — М.: ИПРЖР, 1999, 560 с.
- Все о GPS навигаторах (справочник)/Найман B.C., Самойлов А. Е., Ильин Н. Р., Шейнис А. И. -М.: НТ Пресс, 2005, 392 с.
- Ю.А. Соловьев. Спутниковая навигация и ее приложения. М.: ЭкоТрэндз, 2003, 326 с.
- B.C. Яценков. Основы спутниковой навигации. Системы GPS, NAVSTAR и ГЛОНАСС. -М.: Горячая линия Телеком, 2005, 272 с.
- Ю.Герман-Шахлы, B.B. Демьянов. Точностные характеристики.. спутниковой навигационной системы в зонах швартовочного маневрирования — судов.//Транспортное дело России. 2003. Спецвыпуск
- John Spenser, Brian G. Frizzelle, Philip H. Page. John D. Vogler. Global Positioning System: A Field Guide for the Social Sciences Maiden: Blackwell Publishing, 2003,224 p.
- Управление судами и составами на внутренних водных путях/Под общей ред. П.Н. Шанчурова-М.: Транспорт, 1966, 272 с.
- Родионов А.И., Сазонов А. Е. Автоматизация судовождения. М.: Транспорт, 1992, 192 с.
- Вагущенко JI.JI. Системы автоматического управления движением судна -Одесса: Латстар, 2002, 304 с.
- В.Г. Савельев. Новое в навигации на флоте: лазерный створный маяк „Анемон"//"Речной транспорт (XXI век)“ №Г2003, с.37−39.35. „Морская политика России“, № 1, 2006, с.34
- Правила пропуска судов при разводке Санкт-Петербургских мостов, утвержденные приказом Комитета по управлению городским хозяйством N36, iот 20.02.1996 г., п. 5. -
- Комплексный план мероприятий по повышению безопасности судоходства при прохождении судами мостов на р. Нева в черте г. Санкт-Петербург от 31.05.2006 г.
- Г. Гладков, П. Гарибин, М. Колосов. Обходной водный путь Ладога -Финский залив//"Речной транспорт (XXI)“ № 1,2007, с 56.
- В.И. Зайков, М. А. Колосов. Повышение безопасности при движении судов под мостами//"Транспорт Российской Федерации“ № 5,2006, с.39
- С.М. Кобранов. Инновации в лазерной навигации//"Речной транспорт (XXI.: век)» № 6'2005, с. 52.
- Атлас ЕГС РСФСР, Том 3, 1982
- Отчет о НИР «Разработка, изготовление, монтаж и ввод вэксплуатацию ЛСМ „Анемон-3″ для порта Туапсе (заключительный)“, Тема 1100-М.: МГАВТ, 2005
- Цупин А.А. Лазерные навигационные системы для водного транспорта (кандидатская диссертация) М.: МФТИ, 1985.
- Александрова Н.В. Лазерные створы для безопасности судоходства на сложных участках водных путей (кандидатская диссертация) М.: МГАВТ, 2000.
- И.Н. Бронштейн, К. А. Семендяев. Справочник по математике для инженеров и учащихся втузов: 13-е изд., испр М.: Наука, Гл. ред. физ.-мат.-лит., 1086−655 с.
- Б. Радж, В. Раджендран, П. Паланичами. Применение ультразвука: пед. с^ англ. М.: Техносфера, 2006, 576 с. :
- Оптика твердого тела и физика ультразвука: Сб.ст./Под ред. Б. В. Новиков -Спб.: С-Петерб. Ун-т, 1999 219 с.
- Stefan Kocis, Zdenko Figura. Ultrasonic Measurements and Technologies. -London: Chapman&Hall, 1996,218 p.
- Lester W. Schmerr. Fundamentals of Ultrasonic Nondestructive Evaluation: A Modeling Approach. New York: Plenum Press, 1998, 550 p. — -
- Emmanuel P.Papadakis. Ultrasonic Instruments and Devices: reference formodern instrumentation, techniques and technology San Diego: Academic Press, 2000, 809 p.
- Майк Предко. Устройства управления роботами: схемотехника, и программирование М.: LVR пресс, 2004,416 с.
- Общие правила плавания и стоянки судов в морских портах Российской Федерации и на подходах к ним СПб.: ЦНИИМФ, 2003
- В.В. Ерыгин, О. Т. Зуйков. Системный подход к обеспечению безопасности швартовки судов в морском порту//"Транспортное дело России» № 1−2, 2004, — с.26
- В.В. Ерыгин. Радиоэлектронные средства обеспечения безопасности-Iшвартовки крупнотоннажных судов в задаче снижения роли человеческого фактора (кандидатская диссертация) Новороссийск: НГМА, 2005
- С.Г. Погосов. Швартовка крупнотоннажных судов. М.: Транспорт, 19/5, 176 с.
- А.Е.Сазонов. Человеческий фактор и безопасность управления подвижными объектами. Материалы XVI Общего собрания Академии навигации и управления движением СПб.: АНУД, 2003
- Автоматизированные обучающие системы профессиональной подготовкиоператоров летательных аппаратов./Под ред. В. Е. Шукшунова М.:11. Машиностроение, 1986 г.
- Ю.Г. Герман-Шахлы. Качество радиоэлектронных систем безопасности с, учетом «человеческого фактора» на нефтетерминалах с выносными причальными сооружениями (кандидатская диссертация) Новосибирск: НГМА, 2003
- Отзыв лоцманов НГШ о работе автоматической системы контроля швартовки танкеров Dockmaster от 23.12.03 г.
- Временные технико-эксплуатационные требования лазерной системы, швартовки крупнотоннажных судов (ЛСШКС), №МФ-02−22/848−64- Морсвязьспутник, 2002 г.
- Инструкция по сигнальным знакам, регулирующим судоходство по водным путям (Резолюция № 59), ЕЭК ООН, 2006 !:
- Отчет на тему «Проведение исследований и разработка современных технологий и средств по обслуживанию судоходной обстановки, разработка концепции» по Государственному контракту № 4.02.001 -6 от 21.09.2006 г.
- Лазерная дальнометрия/Под общ. ред. В. П. Васильева М: Радио и связь, 1995,256 с.
- Проблемы ближней лазерной локации: Учебн. пособ./М.П. Мусьяков и др. -М.: МГТУ им. Баумана, 2000, 295 с.
- Основы импульсной лазерной локации/Под. Ред. В. Н. Рождествина М.: МГТУ им. Баумана, 2006, 511 с.• •
- A.M. Андрусенко, В. П. Дальниченко, А. В. Прокопов и др. Методы и средства лазерной прецизионной лаьнометрии. Дальномеры лазерные М.: Изд-во стандартов, 1987
- В.Н. Назаров, И. Ф. Балашов. Специальные оптические приборы СпБ: СПб ГИТМО (ТУ), 2001
- И. Артоболевский, А. Кобринский. Знакомьтесь роботы! Эврика. Изд.2-е -М.: Молодая гвардия, 1979, 239 с.
- Ю.Ю. Тарасевич. Математическое и компьютерное моделирование. Вводный курс: Учебное пособие М.: Эдиториал УРСС, 2001, 144 с.
- Акт приемки в опытную эксплуатацию J1CM «Анемон-3» от 19.10.2005 г. (утвержден руководителем Росморречфлота 24.10.2005)
- С.В. Поршнев. Компьютерное моделирование физических процессов и систем с использование пакета Mathcad. Учебн. пособ. М.: Горячая линия -Телеком, Радио и связь, 2004,319 с.
- Д. Алексеев. Компьютерное моделирование физических задач в Microsoft Visual Basic. М.: Солон — Пресс, 2004, 528 с.
- П. Культин. Delphi3. Программирование на Object Pascal СПб.: BHV — Санкт-Петербург, 1998,139 с.
- В.Э. Гофман, А. Д. Хомоненко. Delphi5. Спб.: БХВ — Санкт-Петербург,' 1999,598 с.
- М. Краснов. OpenGL. Графика в проектах Delphi. СпБ: БХВ-Петербург, 2004,352 с.
- М. Маров. Полное описание 3ds max. Моделирование трехмерных сцен. -СПб.: Питер, 2005,560 с.
- Frank Luna. Introduction to 3D Game Programming with Direct X 9.0c: A Shader Approach (Wordware Game and Graphics Library) 2006, 544 p.
- Солодянкин A. H. Прикладная информатика: Учеб. пособие. -Владивосток: Дальрыбвтуз, 2001, 98 с.
- Бауэр Ф. Р., Гооз Г. Информатика. М.: Мир, 1990. — Ч. 1. — 366 е.- Ч. 2., 423 с.
- Ваулина Е. Ю. Толковый словарь пользователя PC. СПб.: Атон, 1998, 176 с.
- A.M. Смоляров. Системы отображения информации и инженерная психология: Учебн. пособ. М.: Высшая школа, 1982. 272 с.
- С.Е. Злочевский. Психологические вопросы восприятия -текстовой и графической информации. Киев: Вища школа, 1967.
- Романов Г. М., Туркина Н. В., Колпащиков Л. С. Человек и дисплей. Л. Машиностроение, 1986.
- Е.Н. Саладаев, Т. В. Крылова, М. А. Казимирова Автоматизированные обучающие системы. Метод, указания. Вып.Б. Положение о фонде алгоритмов и программных средств учебного г назначения ГПИ.- Горький, ГПИ, 1990
- Метод, рекомендации по применению автоматизированных систем обучения и контроля на базе микро-эвм. /Под ред. проф. Васильева. М.: МИИГА, 1989
- А.А. Мазаев, О. Е. Монахова, А. Б. Токарев. Методика разработки обучающих программ для автоматизированных обучающих систем. -М.: МЭИ, 1985
- A.M. Столяров. Системы и средства отображения информации Рязань, 1975,360 с.
- А.В. Серегин, А. Г. Чудновская. Устройство компьютер: шаг за шагом. -М.: Эксмо, 2006, 367 с.
- С Бигелоу. Устройство и ремонт персонального компьютера. Аппаратная — платформа и основные компоненты: Пер. с англ. М.: Бином, 2005, 975 с.
- Т. Строзотт, Ш. Шлехтвег. Нефотореалистичная компьютерная графика: моделирование, рендеринг, анимация, учебно-справочное издан. -М.: Кудиц-пресс, 2005,416 с.
- Боресков А.В. Графика трехмерной компьютерной игры на основе OpenGL— М.: Диалог МИФИ, 2004, 384 с.
- В.П. Иванов, А. В. Батраков. Трехмерная компьютерная графика М.: Радио и связь, 1995, 224 с.
- Андреев О.Ю., Музыченко B.JI. Самоучитель компьютерной графики. Учебное пособие М.: Триумф, 2007, 432 с. I
- JI. Залогова. Компьютерная графика. Элективный курс. Учеб. пособие (2-е издание) -М.: Бином, 2006,212 с.
- Т.И Абрагимович, Э. М. Кравченя Компьютерная графика. Учебное пособие- М.: Новое знание, 2006, 248 с.
- А. А. Пузиков, Б. Г. Миронов, Д. А. Пяткина, Р. С. Миронова. Инженерная и компьютерная графика (4-е издание) М.: Высшая школа, 2004, 336 с.
- М. А. Прищепов, Е. В. Севернева, А. И. Шакирин Программирование на языках Basic, Pascal и Object Pascal в среде Delphi М.: ТетраСистемс, 2006, 320 с.
- Н.Б. Культин. Программирование в Turbo Pascal 7.0 и Delphi. СПб.: БХВ Петербург, 1998,240 с. '
- М. Краснов. Direct X. графика в проектах Delphi. Спб.: БХВ-Петербург, ¦ 2003,416 с.
- Фролов А.В., Фролов Г. В. Визуальное проектирование приложений С# -М.: Кудиц-пресс, 2003, 512 с.
- Г. В. Галисеев. Компоненты в Delphi 7. Профессиональная работа. М.: Диалектика-Вильяме, 2004, 624 с. :
- А.В. Левитин. Алгоритмы: введение в разработку и анализ М.:
- Диалектика-Вильяме, 2006, 576 с. 1030.А. Меженный. Turbo Pascal. Краткое руководство. М.: Диалектика-Вильяме, 2005, 240 с.
- Расчет базы расположения огней
- Расчет скорости сканирования
- Для обеспечения требуемой точности ориентирования и частоты подачи сигнала необходимо знать скорость сканирования.
- Минимальная скорость сканирования: sin (arctan (^))cos (arctan (&trade-))1. ,, 1 + 1.703/2. ^ 1 +1.703/2.ч sin (arctan (-)) cos (arctan (-))тш = Ш-Ш5-Ш5-= o. oi 71
- Максимальная скорость сканирования: ц*п* кбитах =-, 60*180где i минуты за шаг — 1.2, п — частота вертикального сканирования — 500, Гц1.2*250*3.1415 А1"гсо max =-= 0,17 560*180
- Начальный угол сканирования: ан = а = 0.024 Конечный угол сканирования: bsh В 36.5 1.703-+ — -+ak = arctan (—-Ц = arctan (—-—) = 0.0251.z 750
- Частота сканирования при скорости сканирования comin: wmin 0.017 Л «&bdquo-&bdquo-щ --=-= 0.347ан+ак 0.025 + 0.024
- Так как щ меньше требуемой, то скорость сканирования будет величиной переменной.
- Определение мощности излучения
- Q = 2ж (1 cos (— —)) = 2 * 3.1415(1 — cos ()) = 2.658 * 10"7120*180 120*1801. Время инерции глаза: j
- О = 0.13 0.08 tanh (log (?/) + /) = 0.13 — 0.08 tanh (log (10 000) +1) = 0.053 Требуемая мощность:, 1*1000
- Р = 1.734 * 10"6 * 2.658 * 107(1 * 1000)2 * 0.65 1850 *
- MgL-q +0.053 °175МД80*60)-7.977*10^5818 * 10 5.818*10 * 3.1415
- Расчет предельно-допустимого уровня экспозиции лазерного излучения
- Расчет общего времени облучения судоводителя за время прохода по створуусудна~10 км/ч = 10 000м/ч-
- S = L-D = 2,175 км 0,75 км = 1,425 км — путь судна в зоне действия ЛСМ «Анемон" —
- Прохода = S/ycyam = (1425 м)/(10 000 м/ч) = 0,1425 ч = 513 с-п = 513/2= 257 количество проблесков, видимых судоводителем за времяпрохода-
- Т = 257*0,0007 с = 0,18 с общее время облучения глаз судоводителя.
- Расчет предельно-допустимого уровня (ПДУ) экспозиции лазерного излучения
- Энергетическая экспозиция Н, усредненная по ограничивающей апертуре: Hnfly=Wnfly/Sa-
- W2= Wnfly (0,0007)* (257/^)2/3= 1,2 * 10"40, 72 * 2572/3 =0,38 Дж- т.к. Wj= W21. WnAy = 0,38 Дж. -1. Рассчитывается НПду :
- НПду = W^y/Sa = 0,38 Дж / 0,38 см2= 0,0001 Дж/см2 = 1*10"4 Дж/см2. ! 3. Расчет экспозиции лазерного излучения
- Qp- выходная энергия лазера по паспортным данным, Дж, Qp = РТ
- Цель эксперимента: оценка возможности применения акустического радара для повышения безопасности швартовки пассажирских речных судов г :
- Место проведения, особенности: г. Москва, р. Москва, Меловой причал (Нагатино). Высота причальной стенки не более 1,5 м.
- Судно: проект № 780 пассажирский теплоход «B.C. Удачин»: разряд «О», ширина — 7,12 м, длина — 42,57 м, высота — 6,09 м, осадка — 1,55 м, мощность -150×2 л.с., пассажировместимость — 242 чел., экипаж — 8 чел.
- Состав аппаратуры: блок управления, 4 ультразвуковых датчика, индикатор с 2-мя трехцветными шкалами, цифровым табло со встроенным бипером (устройством подачи звуковых сигналов), комплект кабелей. v
- Технические характеристики аппаратуры: зона обнаружения препятствия -от 0,3 до 1,5 м, рабочее напряжение 10−15 В, частота импульсов — 1−2 кГц,/ потребляемая мощность — 4 Вт, температура окружающей среды — от -30 до +40 С, громкость бипера — 83Дб.
- Научный руководитель, д.т.н., профессор
- Соискатель, инженер Капитан судна
- Начальник Учебно-тренажерного комплекса «Сторм», преподаватель кафедры судовояеденияМГАВТ
- В.Г. Савельев) (С.М. Кобранов) (А.А. Дудкин)1. А.В. Бойков)
- Текст компьютерной программы «Модель лазерной системы причаливания»
- Создание приложения unit MonitoringLSHKS- interfaceuses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Menus, jpeg, Buttons- type
- TForml = class (TForm) //Описание всех элементов
- Public declarations} end- var
- Forml: TForml- x, y, xl, yl, rl, rkorma, rnos: integer- r: extended- deltaYkorma, deltaYnos: extended- deltaXkorma, deltaXnos: extended- sl, xls, x2s, yls, y2s: integer- implementation {$R*.DFM}
- Процедура создания формы приложения, присвоение параметрам исходных значений procedure TForml. FormCreate (Sender: TObject) — begin
- Процедура обработки событий при нажатии на клавишу «Расчет» procedure TForml. ButtonlClick (Sender: TObject) — begin
- Timerl .Enabled:==true- Timer2. Enabled:=trae- Timer3. Enabled:=true- Timer4. Enabled:=true- Timer5. Enabled:=true- end-
- Edit6.Text:=IntToStr (t+l) — if (s≥200) or (s<0) then begin
- Процедура обработки событий при нажатии на клавишу «Пауза» procedure TForml. Button2Click (Sender: TObject) — begin
- Timerl .Enabled:=false- Timer2. Enabled:=false- Timer3. Enabled:=false- Timer4. Enabled:=false- Timer5. Enabled:=false- end-
- Процедура обработки событий при нажатии на клавишу «Выход"procedure TForml. Button4Click (Sender: TObject)-begin1. Form 1. Close- end-
- Процедура обработки процесса формирования визуального изображения procedure TForml. Paint (Sender: TObject) — var p: integer- beginwith Forml. Canvas do begin
- Brush.Color:=clTeal- Brush. Style:=bsSolid- Pen. Color:=clBlack-
- Pen.Style:=psSolid- Rectangle (10,10,450,325) — Brush. Color:=clGray-
- Brush.Style:=bsSolid- Pen. Color:=clBlack- Pen. Style:=psSolid-
- Rectangle (10,325,450,433) — Brush. Color:=clRed- Brush. Style:=bsSolid-
- Pen.Color:=clBlack- Pen. Style:=psSolid- Ellipse (70,326,80,336) —
- Brush.Color:=clRed- Brush. Style:=bsSolid- Pen. Color:=clBlack-
- Pen.Style:=psSolid- Ellipse (350,326,360,336) — Brush. Color:=clYellow-
- Brush.Style:=bs Vertical- Pen. Color:=clYellow- Pen. Style:=psDashDot-
- MoveTo (75,326) — LineTo (75,110) — Brush. Color:=cl Yellow-
- Brush. Style :=bsVertical- Pen. Color:=clYellow- Pen. Styl e:=psDashDot-
- MoveTo (350,326) — LineTo (350,l 10) — Brush. Color:=clWhite-
- Brush.Style:=bsHorizontal- Pen. Color:=clWhite- Pen. Style:=psSolid-
- MoveTo (l 1,322) — LineTo (21,322)-// 0
- MoveTo (ll, 312) — LineTo (16,312)-//10
- MoveTo (l 1,302) — LineTo (16,302)-//20
- MoveTo (l 1,292) — LineTo (16,292)-//30
- MoveTo (l 1,282) — LineTo (16,282)-//40
- MoveTo (l 1,272) — LineTo (21,272)-//50
- MoveTo (l 1,262) — LineTo (16,262)-//60
- MoveTo (l 1,252) — LineTo (16,252)-//70
- MoveTo (l 1,242) — LineTo (16,242)-//80
- MoveTo (l 1,232) — LineTo (16,232)-//90
- MoveTo (l 1,222) — LineTo (21,222)-//100
- MoveTo (l 1,212) — LineTo (16,212)-//l 10
- MoveTo (l 1,202) — LineTo (16,202)-//120
- MoveTo (l 1,192) — LineTo (16,192)-//130
- MoveTo (l 1,182) — LineTo (16,182)-//140
- MoveTo (l 1,172) — LineTo (21,172)-//150
- MoveTo (l 1,162) — LineTo (16,162)-//160
- MoveTo (l 1,152) — LineTo (16,152)-//170
- MoveTo (l 1,142) — LineTo (16,142)-//180
- MoveTo (11,132) — LineTo (16,132)-//190
- MoveTo (11,122) — LineTo (21,122)-//200
- Polygon (Point (57,123), Point (355,123), Point (410,95), Point (355,67), Point (57,67).) — Brush. Color:=cl01ive- Brush. Style:=bsSolid- Pen. Color:=clBlack- Pen. Style:=psSolid- Pen. Width:=l-
- Polygon (Point (60,120), Point (355,120), Point (405,95), Point (355,70), Point (60,70).) — Pen. Color:=clBlack- Pen. Width:=2- Brush. Color:=clWhite- Ellipse (472,217,592,337) — Ellipse (528,273,53 6,281) — Pen. Color:=clBlack- Pen. Width:=l- for p:=0 to 7 do begin
- MoveTo (531+Round ((60−10)*sin (p/4*pi)), 276-Round ((60−10)*cos (p/4*pi))) — LineTo (531+Round ((60)*sin (p/4*pi)), 276-Round ((60)*cos (p/4*pi))) — end- end- end-
- Процедура обработки процесса перерисовки визуального изображения procedure TForml. ReDraw (DrawColor: TColor- DrawColor2: TColor)-beginif CheckBoxl. Checked then begin1. bel46.Caption:='0,01'- with Forml. Canvas do {} begin
- Brush.Color:=clTeal- Brush. Style:=bsSolid- Pen. Color:=clTeal- Pen. Style:=psSolid- Pen. Width:=l-
- Polygon (Point (x-3+Round (deltaXkorma), 323-rkorma), Point (xl+Round (deltaXnos), 323-mos), Point (x 1 +5+50+Round (deltaXnos), 295-mos), Point (x 1 +Round (deltaXnos), 267-rnos), Point (x-3+Round (deltaXkorma), 267-rkorma).) —
- Brush.Color:=DrawColor- Brush. Style:=bsSolid- Pen. Color:=DrawColor2- Pen. Style:=psSolid- Pen. Width:=l-
- Brush.Color:=DrawColor- Brush. Style:=bsSolid- Pen. Color:=DrawColor2- Pen. Style:=psSolid- Pen. Width:=l-
- Polygon (Point (x, 320-rl), Point (xl, 320-r 1), Point (xl+50,295-rl), Point (xl, 270-rl), 1. Point (x, 270-rl).)-end-end-
- HПроцедура обработки событий при нажатии на клавишу «Выход» в меню доступа procedure TForml. N5Click (Sender: TObject) — begin1. Forml. Close- end-
- Процедура обработки таймера 3procedure TForml. Timer3Timer (Sender: TObject) — vark, n, i: extended- w: integer- begin w:=10- Randomize-i:=Random (w)*0.01- Edit4. Text:=FloatToStr (i) — k:=StrToFloat (Edit4.Text) — if k≥0.05 then begin n:=l-
- Edit5.Text:=FloatToStr (n) — end else beginn:=-l- Edit5, Text:=FloatToStr (n) — end- end-
- Процедура обработки таймера 4 procedure TForml. Timer4Timer (Sender: TObject) — varkl, nl, i 1: extended- wl -.integer-beginwl:=10−1. Randomize-il:=Random (wl)*0.01- Edit7. Text:=FloatToStr (il) — kl :=StrToFloat (Edit7.Text) — if kl ≤0.05 then begin nl:=l-
- Edit8.Text:=FloatToStr (nl)-end else beginnl:=-l- Edit8. Text:=FloatToStr (nl) — end- end-
- Процедура обработки событий при нажатии на поле выбораprocedure TForml. CheckBox2Click (Sender: TObject)-beginif CheckBox2. Checked then begin
- BitBtnl .Visible:=true- BitBtn2. Visible:=true- BitBtn3. Visible:=true- BitBtn4. Visible :=true- end else begin
- BitBtnl .Visible:=false- BitBtn2. Visible:=false- BitBtn3. Visible:=false- BitBtn4. Visible:=false- end- end-
- Процедура обработки событий при нажатии на клавишу «Расчет» меню доступаprocedure TForml. N4Click (Sender: TObject) — begin
- Timerl, Enabled:=true- Timer2. Enabled:=true- Timer3. Enabled:=true-
- Timer4. Enabled :=true- Timer5. Enabled:=true-end-
- Процедура обработки событий при нажатии на клавишу «Сброс» меню доступаprocedure TForml. N3Click (Sender: TObject)-begin
- Edit 1. Text:-'- Edit2. Text:=" — Edit6. Text:='0'- Timerl. Enabled:=fa!se-
- Текст компьютерной программы «Настройка параметров ЛСМ «Анемон»
- Создание приложения unit NastroykaJLSM- interface uses
- Classes, Graphics, Controls, Forms, GLScene, GLObjects, GLMisc, GLTexture, GLCadencer, StdCtrls, ComCtrls, GLWin32Viewer, GLTimeEventsMgr, ExtCtrls, Dialogs, Buttons, GLVectorFileObjects, JPEG- type
- TForml = class (TForm) //Описание всех элементов
- GLSceneViewerl: TGLSceneViewer- GLScenel: TGLScene- Cameral: TGLCamera- Timerl: TTimer- GLCadencerl: TGLCadencer- GLTimeEventsMGRl: TGLTimeEventsMGR- ¦
- Declarations priv6es } public
- Declarations publiques } 'end- var
- Forml: TForml- otkl: real- daln: real- baza: real- ugol: integer- skorost: real- skorostl: real- skorost2: real- d: real- vysota: real- t: integer- 1: real- chuv: real- S: integer- implementation {$R *.dfm} uses SysUtils-
- Cube 1. Visible:=false- Label 17. Caption :='0 i'- Label 19. Caption:=" — Editl2. Text:='20'- otkl:=0- daln:=50- baza:=3- skorost:=230- skorostl:=150- skorost2:=150- ugol:=30- d:=0.5- vysota:=5- t:=1000- 1:=0- chuv:=0.1- S:=20- end-
- Процедура обработки таймера 1procedure TForml. TimerlTimer (Sender: TObject)-begin1.bel4.Caption:=Format ('%.4f, GLCadencerl.CurrentTime.) — GLSceneViewer 1. ResetPerformanceMonitor-end-
- Процедура обработки событий при нажатии на клавишу 2procedure TForml. Button2Click (Sender: TObject)-beginotkl:=StrToFloat (Editl.Text) — S:=StrToInt (Editl2.Text)-if TrackBar 1. Position>(-S/2) thenbegin
- Процедура обработки событий при нажатии на клавишу 1procedure TForml. ButtonlClick (Sender: TObject)-beginotkl:=StrToFloat (Editl.Text) — S:=StrToInt (Editl2.Text)-if TrackBar 1. Position<(S/2) thenbegin
- Процедура обработки событий при нажатии на клавишу 7procedure TForml. Button7Click (Sender: TObject)-beginskorost:=StrToInt (Edit4.Text) — skorost:=skorost+1- Edit4. Text:=FloatToStr (skorost) — end-
- Процедура обработки событий при нажатии на клавишу 8procedure TForml. Button8Click (Sender: TObject)-beginskorost:=StrToInt (Edit4.Text) — skorost:=skorost-l-
- Edit4.Text:=FloatToStr (skorost)-end-
- Процедура обработки событий при нажатии мышью на элемент выбора цвета procedure TForml. ColorMouseDown (Sender: TObject- Button: TMouseButton- Shift: TShiftState- X, Y: Integer) — beginif ColorDialogl. Execute then
- GLSceneViewerl.Buffer.BackgroundColor:=ColorDialogl.Color- SFogColor.Brash.Colon^ColorDialog 1. Color- end-
- Процедура обработки событий при нажатии на клавишу 11procedure TForm 1. Button llClick (Sender: TObject)-begind:=StrToFloat (Edit6.Text) — onel. BottomRadius:=d- Cone2. BottomRadius:=d- d:=d+0.01- Edit6. Text:=FloatToStr (d)-end-
- Процедура обработки событий при нажатии на клавишу 12procedure TForml. Button 12Click (Sender: TObject)-begind:=StrToFloat (Edit6.Text) — Cone 1. BottomRadius:=d- Cone2. BottomRadius:=d- d:=d-0.
- Edit6.Text:=FloatToStr (d)-end-
- Процедура обработки событий при нажатии на клавишу «Выход"procedure TForml. CloseBtnClick (Sender: TObject)-begin1. Form 1. Close- end-
- Процедура обработки событий при нажатии на клавишу 13procedure TForml. Buttonl3Click (Sender: TObject)-beginvysota:=StrToFloat (Edit7.Text) — vysota:=vysota+0.1- Cone 1.Position. Y:=vysota-
- Cone2.Position.Y:=vysota- Edit7. Text:=FloatToStr (vysota)-end-
- Процедура обработки событий при нажатии на клавишу 14procedure TForml. Buttonl4Click (Sender: TObject)-beginvysota:=StrToFloat (Edit7.Text) — vysota:=vysota-0.1- Cone 1.Position.Y:=vysota-
- Cone2.Position. Y:=vysota- Edit7. Text:=FloatToStr (vysota)-end-
- Процедура обработки событий при нажатии на клавишу 15procedure TForml. Buttonl5Click (Sender: TObject)-begint:=StrToInt (Edit8 .Text) — t:=t+100- Edit8. Text:=IntToStr (t) — end-
- Процедура обработки событий при нажатии на клавишу 16procedure TForml. Buttonl6Click (Sender: TObject)-begint:=StrToInt (Edit8.Text) — t:=t-100- Edit8. Text:=IntToStr (t) — end-
- Процедура обработки событий при нажатии на поле выбора 1procedure TForml. CheckBoxlClick (Sender: TObject)-beginif CheckBoxl. Checked=true then Cubel. Visible:=trueelse Cubel. Visible:=false-end-
- Процедура обработки событий при нажатии на клавишу 17procedure TForml. Buttonl7Click (Sender: TObject)-beginchuv:=StrToFloat (Editl 1 .Text) — chuv:=chuv+0.05- Editl l. Text:=FloatToStr (chuv) — end-
- Процедура обработки событий при нажатии на клавишу 18procedure TForml. Button 18Click (Sender: TObject)-beginchuv:=StrToFloat (Editl l. Text) — chuv:=chuv-0.05- Editl l. Text:=FloatToStr (chuv) — end-
- Процедура обработки событий при нажатии на клавишу 19procedure TForml. Buttonl9Click (Sender: TObject)-begin
- S:=StrToInt (Edit 12. Text) — S:=S+2- Editl2. Text:=IntToStr (S) — end-
- Процедура обработки событий при нажатии на клавишу 20procedure TForml. Button20Click (Sender. TObject)-begin
- S:=StrToInt (Editl2.Text) — S:=S-2- Editl2. Text:=IntToStr (S)-end-end.
- Текст компьютерной программы «Проводка судна по JICM «Анемон»
- Создание приложения unit TuapseLSM-interface, -uses
- Windows, GLCadencer, GLVectorFileObjects, GLScene, GLObjects, GLMisc, StdCtrls, Buttons, Controls, ExtCtrls, ComCtrls, Classes, Forms, Graphics, GLSkydome, GL Win32 Viewer, GLNavigator, GLTimeEventsMgr, Menus- type1. TForml = class (TForm)
- GLScene 1: TGLScene- DummyCubel: TDummyCube- Diskl: TDisk- GLSceneViewerl:
- TGLSceneViewer- Actor 1: TActor- GLCadencer 1: TGLCadencer-
- Timerl: TTimer- GLCamera2: TGLCamera- DummyCube2: TDummyCube-
- FreeForml: TFreeForm- GLLightSource2: TGLLightSource- DummyCube3: TDummyCube-
- SkyDome I: TSkyDome- GLNavigator 1: TGLNavigator- GLUserlnterface 1: TGLUserInterface- :
- GLTimeEventsMGRl: GLTimeEventsMGR- Conel: TCone- Cone2: TCone- Panel2: TPanel-
- Edit4: TEdit- Labell: TLabel- Label2: TLabel- Label3: TLabel- Label6: TLabel- Editl: TEdit-
- Edit2: TEdit- Edit3: TEdit- GroupBoxI: TGroupBox- LabeI7: TLabel- GroupBox2: TGroupBox-1.bel5: TLabel- Panell: TPanel- Label36: TLabel- MainMenul: TMainMenu-
- N1: TMenuItem- N2: TMenuItem- N3: TMenuItem- N4: TMenuItem- N5: TMenuItem- N6:
- TMenuItem- CheckBoxl: TCheckBox- LabellO: TLabel- Panel3: TPanel- Label37: TLabel-1.bel 12: TLabel- Labell6: TLabel- Label21: TLabel- Label22: TLabel- Label23: TLabel-
- Cylinderl: TCylinder- Cylinder2: TCylinder-
- Cylinder3: TCylinder- Cylinder4: TCylinder- Cylinder5: TCylinder- Label4: TLabel- Label8: TLabel- Panel4: TPanel- Larrow: TCone- Rarrow: TCone- Lar: TCylinder- Lar2: TCylinder- Rar: TCylinder- Rar2: TCylinder- Label9: TLabel- procedure *'
- FormCreate (Sender: TObject) — :
- Diskl.Material.Texture.Image.LoadFromFile ('media WaterTuapsenight. jpg') — end-
- Actorl .Interval:=100- boost:=cRunBoost*deltaTime end else begin
- DummyCube2. Po sition. X:=0- sl:=200- s2:=200- Edit 1. Text:-FloatToStr (sl) — Edit2. Text:=FloatToStr (s2) — Label37. Caption:-0'- end-if IsKeyDown ('R') then begin
- DummyCube2.Position.X:=0- DummyCube2.Position.Z:=0- GLCamera2.Position.Z:=0- GLCamera2.Position.X:=0- sl:=200- s2:=200-
- GLNavigator l. StrafeHorizontal (O) — DummyCube2.Position.X:=DummyCube2.Position.X- end- end-if IsKeyDown (VKRIGHT) then begin if DummyCube2.Position.X≥-7 then beginif (DummyCube2.Position.X<0) and (DummyCube2.Position.X>-7) then begin
- GLNavigator 1. StrafeHorizontal (O) — DummyCube2.Position.X:=DummyCube2.Position.X- end- end- end-
- Процедура обработки события таймераprocedure TForml. GLCadencerlProgress (Sender: TObject- const deltaTime, newTime: Double) — begin
- HandleKeys (deltaTime) — LSceneViewerl. Invalidate- end-procedure TForml. TimerlTimer (Sender: TObject) — begin
- Процедура обработки события при нажатии на клавишу 3 меню доступа procedure TForml. N3Click (Sender: TObject) — begin
- Процедура обработки события при нажатии на клавишу 4 меню доступа procedure TForml. N4Click (Sender: TObject) — begin1. Forml. Close- end-
- Процедура обработки события при нажатии на клавишу 5 меню доступаprocedure TForml. N5Click (Sender: TObject)-begin1. Form2. Show- end-
- Процедура обработки события при нажатии на клавишу б меню доступаprocedure TForml. N6Click (Sender: TObject)-begin1. Form3. Show-end-end.
- Создание дочернего приложения 2unit Unit2-interfaceuses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls- type1. TForm2 = class (TForm)
- Buttonl: TButton- Panell: TPanel- Labell: TLabel- Label2: TLabel- LabeB: TLabel- Label8: TLabel- Label9: TLabel- LabellO: TLabel- Labell 1: TLabel- Labell3: TLabel- LabelH TLabel- Labell2: TLabel- procedure ButtonlClick (Sender: TObject) — private
- Private declarations} public
- Public declarations} end- var
- Form2: TForm2- implementation {$R *.dfm}procedure TForm2. ButtonlClick (Sender: TObject) — begin1. Form2. Close-end-end.
- Создание дочернего приложения 3 unit Unit3-interface uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls- type1. TForm3 = class (TForm)
- Buttonl: TButton- Panell: TPanel- Labell: TLabel- Label2: TLabel- Label3: TLabel- Label4: TLabel- Label5: TLabel- Label6: TLabel- Label7: TLabel- Label8: TLabel- procedure ButtonlClick (Sender: TObject) — private
- Private declarations} public
- Public declarations} end- var
- Разница во времени между вспышками указывает на степень уклонения судна •. от оси створа: чем больше рассогласование огней, тем больше уклонение. = Особенности программы:
- Инструкция пользователя компьютерной программы «Проводка судна по ЛСМ «Анемон"1. Главное окно программыф Меню программы.1. Файл:
- Начать сначала» перезапуск программы- «Выход» — выход из программы. Помощь
- Справка» справочная информация- «О программе» — информация о программе.
- Табло «Служебные сообщения».
- Выдает следующие сообщения:
- При максимальном уклонении судна влево/вправо от оси створа -«Вы достигли левой/правой границы судового хода!»
- При нахождении на оси створа -«Вы находитесь на оси створа!»
- При максимальном/минимальном удалении от створа «Вы находитесьв начальной/конечной точке маршрута!'
- Табло «Судоходная обстановка».1. Расстояние до створа, м-
- Отклонение от оси створа, м: — при уклонении вправо величина >0- (над створом появляется указатель направления возврата на ось створа ←--) — при уклонении влево величина <0 (над створом появляется указатель направления возврата на ось створа —>).
- Указатель направления движения судна.1. Элементы управления-1. Служебные клавиши:
- Клавиша «Esc» выход из программы- Клавиша «F1» — вызов справки.1. Дополнительные клавиши:
- Клавиша «Shift» ускорение судна- Клавиша «Q» — перемещение по судну вперед- Клавиша «А» — перемещение по судну назад: Клавиша «D» — возвращение судна на ось створа- Клавиша «R» — перезапуск программы.
- Основные клавиши управления:
- Стрелка «Вверх» движение судна вперед- Стрелка «Вниз» — движение судна назад- Стрелка «Влево» — смещение судна влево- Стрелка «Вправо» — смещение судна вправо.
- Прсти-ельсто Москш ОАО ««АО «Всероссийский выставочный центр» Совет ректоров вузов Москвы и московской области
- ВСЕРОССИЙСКАЯ ВЫСТАВКА НАУЧНО ТЕХНИЧЕСКОГО ТВОРЧЕСТВА МОЛОДЕЖИ1. НАГРАЖДАЕТСЯ1. Кобранов Сергейза творческий подход при создании научного проекта и активное участие в выставке НТТМ-20 061. Мэр Москвы js^—^r'^^c1. Ю М Лужков
- Председатель Совета ректоров вузов Москвы и Московской области И Б Федоров
- Генеральный директор ОАО ТАО «ВВЦ» М. X, Муеаев
- Москва, ВВЦ 20 24 июня 2006 г.