Дипломная (вкр): Автоматизация инженерных расчетов в путевом хозяйстве

Руководитель подразделения ______ _______________ ______________

 подпись расшифровка подписи дата

Рисунок 5.3 - Реестр значимых рисков организации

Форму реестра значимых рисков организации подписывает руководитель (главный инженер) организации.

Аналогично составляется реестр значимых рисков по организации в целом.

После оценки рисков на основании установленной категории (значимости) риска определяется необходимость разработки мероприятий (корректирующих действий) по управлению (регулированию воздействия) для каждого значимого риска в соответствии с таблицей 5.7.

Таблица 5.7 - Корректирующие мероприятия для каждого риска

В графе «Риск в баллах» указывают полученное расчетное значение риска R, на основании которого определяется его категория.

Результаты оценки рисков должны быть обоснованы и документально оформлены таким образом, чтобы выполненные расчеты и выводы могли быть проверены и повторены специалистами, которые не участвовали при первоначальном анализе. В отчет об анализе риска включают:

план анализа риска;

задачи и цели проведенного анализа риска;

исходные данные и их источники, в том числе по аварийности и надежности оборудования;

описание анализируемого объекта, технологического процесса, операции;

результаты оценки опасностей и риска;

предлагаемые меры (корректирующие действия) по снижению рисков и остаточные риски.

При обобщении оценок риска следует, по возможности, проанализировать неопределенность и точность полученных результатов. Как правило, основными источниками неопределенностей является неполная информация по надежности оборудования и человеческим ошибкам. Чтобы правильно интерпретировать результаты оценки риска, необходимо учитывать характер неопределенностей и их причины. Источники неопределенности следует также идентифицировать (например, «человеческий фактор»), оценить и документально оформить.

Если оценка риска указывает, что остаточный риск недопустим, следует повторить весь процесс анализа после проведенных корректировок.

На основании ранжирования значимых рисков по показателю «эффективность-затраты» устанавливаются цели в области охраны труда, которые служат основой для составления Программы управления охраной труда в организации.

Ежегодно (до 1 декабря) руководитель организации издает приказ о пересмотре карт оценки значений рисков во всех структурных подразделениях. Проект приказа готовит служба (инженер) охраны труда.

Руководители структурных подразделений до 15 декабря представляют в службу охраны труда новые карты оценки идентифицированных рисков по результатам внутренних проверок и мониторинга с учетом выявленных или изменивших категорию значимости рисков для последующего ранжирования и возможного внесения изменений в Программу управления охраной труда.

6. Основные положения расчёта стоимости ПО

Для работы вычислительной техники (ВТ) требуется программное обеспечение (ПО), которое является материальным объектом специфической интеллектуальной деятельности специалистов. По стоимости и срокам службы ПО относится к основным производственным фондам предприятия.

Каждое ПО, как реальная продукция, имеет определенный жизненный цикл, т.е. период от начала разработки и до снятия с эксплуатации, включающей три стадии: разработку (проектирование), производство (создание) и использование (сопровождение).

Широкое внедрение и применение ВТ требует постоянного обновления и совершенствования ПО. Выбор эффективных проектов ПО связан с их экономической оценкой и расчетом экономического эффекта.

Расчет экономического эффекта ПО основан на принципах “Комплексной оценки эффективности мероприятий, направленных на ускорение научно-технического прогресса”. Экономический эффект может определяться как у разработчика, так и у пользователя.

У разработчика экономический эффект выступает в виде чистой прибыли, остающейся в распоряжении предприятия от реализации ПО, а у пользователя - в виде экономии трудовых, материальных и финансовых ресурсов, получаемой от:

снижения трудоемкости расчетов, алгоритмизации программирования и отладки программ (задач) за счет использования ПО в процессе разработки автоматизированных систем и систем обработки данных;

сокращения расходов на оплату машинного времени и других ресурсов на отладку задач;

снижения расходов на материалы (компакт-диски и прочие материалы);

ускорения ввода в эксплуатацию новых систем;

улучшения показателей основной деятельности предприятий в результате использования ПО.

Стоимостная оценка ПО у разработчиков предполагает составление сметы затрат, которая включает следующие статьи:

·        заработная плата исполнителей основная и дополнительная;

·        отчисления в фонд социальной защиты населения;

·        налоги, входящие в себестоимость ПО;

·        материальные;

·        спецоборудование;

·        машинное время;

·        расходы на научные командировки;

·        прочие расходов;

·        накладные расходы;

На основании сметы затрат рассчитывается себестоимость и отпускная цена ПО. Сумма основной заработной платы рассчитывается на основе численности специалистов, соответствующих тарифных ставок и фонда рабочего времени. Численность специалистов, календарные сроки разработки программы и фонда рабочего времени определяются по укрупненным нормам времени на разработку, сопровождение и адаптацию программного обеспечения или экспертным путем.

Расчет трудоемкости ПО с использованием укрупненных норм времени осуществляется в основном в крупных научно-технических организациях для решения сложных задач программного обеспечения ВТ. В мелких и средних научно-технических организациях трудоемкость, численность исполнителей и сроки разработки ПО определяются экспертным путем с использованием данных по базовым моделям. При определении трудоемкости ПО учитываются объем ПО (в тыс. условных машинных команд или исходных команд), объем документации (тыс. строк), новизна и сложность ПО, язык программирования, степень использования типовых (стандартных) программ.

6.1 Исходные данные

Расчет основной заработной платы исполнителей, занятых разработкой ПО, производится на основе исходных данных, представленных в таб. 6.1.

В выполнение работ задействованы следующие разработчики ПО:

·        начальник отдела (руководитель дипломного проекта):

·        тарифный разряд - 13;

·        тарифный коэффициент - 3,98;

·        продолжительность участия в разработке - 15 дней;

·        инженер программист (студент дипломник):

·        тарифный разряд - 9;

·        тарифный коэффициент - 2,48;

·        продолжительность участия в разработке -40 день.

Таблица 6.1 - Исходные данные

6.2 Определение объема программного обеспечения

Объем ПО определяется путем подбора аналогов на основании классификации типов ПО, каталога функций ПО и каталога аналогов ПО в разрезе функций, которые постоянно обновляются и утверждаются в установленном порядке. На основании информации о функциях разрабатываемого ПО, по каталогу функций определяется объем функций. Затем по каталогу аналогов в разрезе функций уточняется объем функций. На основании этих данных составлена таблица 6.2.

Общий объем ПО рассчитывается по формуле 6.1:

, (6.1)

где  - общий объем ПО, условных машинных команд;

 - объем функций ПО, условных машинных команд;- общее число функций.

По формуле (6.1) определим общий объем ПО:₀ =378 + 1492 + 3268 + 1768 + 970 + 325+ 790+298 = 9240 условных машинных команд.

Таблица 6.2 - Объем программного обеспечения

6.3 Расчет трудоемкости программного обеспечения

На основании общего объема ПО определяется нормативная трудоемкость T_н по таблицам. Нормативная трудоемкость устанавливается с учетом сложности ПО. Выделяется три группы сложности, в которых учтены следующие составляющие ПО: языковой интерфейс, ввод-вывод, организация данных, режимы работы, операционная система и техническая среда. Кроме того, устанавливаются дополнительные коэффициенты сложности ПО.

С учетом дополнительного коэффициента сложности k_сл (таблица 6.1) рассчитывается общая трудоемкость ПО (формула 6.2)

, (6.2)

где Т_о - общая трудоемкость ПО, человеко-дней;

Т_н - нормативная трудоемкость ПО, человеко-дней;_сл - дополнительный коэффициент сложности ПО.

Объему в 9240 условных машинных команд (3-я группа сложности ПО) соответствует нормативная трудоемкость 375 человеко-дней. По формуле определим общую трудоемкость ПО:

 человеко-дня.

При решении сложных задач с длительным периодом разработки ПО трудоемкость определяется по стадиям разработки (техническое задание - ТЗ, эскизный проект - ЭП, технический проект - ТП, рабочий проект - РП и внедрение - ВН) с учетом новизны, степени использования типовых программ и удельного веса трудоемкости стадий разработки ПО в общей трудоемкости разработки ПО. При этом на основании общей трудоемкости рассчитывается уточненная трудоемкость с учетом распределения по стадиям (формула 6.3)

, (6.3)

где Т_у - уточненная трудоемкость ПО, человеко-дней;

Т_i - трудоемкость разработки ПО на i-й стадии, человеко-дней;- количество стадий разработки.

Трудоемкость ПО по стадиям определяется с учетом новизны и степени использования в разработке типовых программ и ПО (формула 6.4)

, (6.4)

Где T_стi - трудоемкость разработки ПО на i-й стадии (технического задания, эскизного проекта, технического проекта, рабочего проекта и внедрения), человеко-дней;_н - поправочный коэффициент, учитывающий степень новизны ПО;_т - поправочный коэффициент, учитывающий степень использования в разработке типовых программ и ПО;_стi - удельный вес трудоемкости i-й стадии разработки ПО в общей трудоемкости ПО.

На основании уточненной трудоемкости разработки ПО и установленного периода разработки рассчитывается общая плановая численность разработчиков ПО (формула 6.5)

,(6.5)

где Ч_р - плановая численность разработчиков, чел.;

Ф_эф - годовой эффективный фонд времени работы одногоработника в течение года, дней в год;_рд - плановая продолжительность разработки ПО, лет.

По формуле (6.4) определим уточненную трудоемкость на стадии рабочего проекта

 человеко-дней.

По формуле (6.4) определим уточненную трудоемкость на стадии технического задания

 человеко-дней.

По формуле (6.4) определим уточненную трудоемкость на стадии эскизного проекта

 человеко-дней.

По формуле (6.4) определим уточненную трудоемкость на стадии технического проекта

 человеко-дней.

По формуле (6.4) определим уточненную трудоемкость на стадии внедрения

 человеко-дней.

Например, по формуле (6.5) определим общую плановую численность разработчиков на стадии рабочего проекта

 чел.

Аналогичным образом рассчитаем общую плановую численность разработчиков на стадиях: технического задания, эскизного проекта, технического проекта, внедрения. Результаты расчетов уточненной трудоемкости и общей плановой численности разработчиков на разных стадиях разработки по формулам (6.4) и (6.5) представлены в таблице 6.3.

Таблица 6.3 - Результаты расчетов трудоемкости

6.4 Расчет заработной платы разработчиков ПО

Уточненная трудоемкость и общая плановая численность разработчиков служат базой для расчета основной заработной платы. По данным о спецификации и сложности выполняемых функций составляется штатное расписание группы специалистов-исполнителей, участвующих в разработке ПО с определением образования, специальности, квалификации и должности.

В соответствии с тарифными разрядами и коэффициентами должностей руководителей научных организаций каждому исполнителю устанавливается разряд и тарифный коэффициент.

Месячная тарифная ставка каждого исполнителя Т_м определяется путем умножения действующей месячной тарифной ставки 1-го разряда Т_м1 на тарифный коэффициент Т_k, соответствующий установленному разряду (формула 6.6)

. (6.6)

Часовая тарифная ставка рассчитывается путем деления месячной тарифной ставки на установленный при восьмичасовом рабочем дне пятидневной рабочей недели фонд рабочего времени - 168 часов:

 (6.7)

где Т_ч - часовая тарифная ставка, ден. ед.;

Т_м - месячная тарифная ставка, ден. ед.

По формулам (6.6) и (6.7) определим месячные и тарифные ставки начальника отдела (T_мо, T_чо) и инженера программиста 1-й категории (T_мп, T_чп):

бел. руб.

 бел. руб.

 бел. руб.

 бел. руб.

Основная заработная плата исполнителей ПО рассчитывается по формуле 6.8

, (6.8)

где  - количество исполнителей, занятых разработкой ПО;

- часовая тарифная ставка i-го исполнителя, ден. ед.;

 - количество часов работы в день, ч;

 - эффективный фонд рабочего времени i-го исполнителя, дн.;

 - коэффициент премирования.

Определим основную заработную плату исполнителей ПО:

 бел. руб.

Дополнительная заработная плата на ПО , включает выплаты, предусмотренные законодательством о труде (оплата отпусков, льготных часов, времени выполнения государственных обязанностей и других выплат, не связанных с основной деятельностью исполнителей), и определяется по нормативу в процентах к основной заработной плате:

, (6.9)

где  - дополнительная заработная плата исполнителей ПО, ден. ед.;

- норматив дополнительной заработной платы в целом по научной организации. Определим дополнительную заработную плату на ПО:

  бел. руб.

6.6 Расчет отчислений, налогов и затрат

Отчисления в фонд социальной защиты населения З_сзi определяются в соответствии с действующими законодательными актами по нормативу в процентном отношении к фонду основной и дополнительной заработной платы исполнителей (формула 6.10).

, (6.10)

где Н_зсз - норматив отчислений в фонд социальной защиты населения, %.

По формуле (6.10) определим отчисления в фонд социальной защиты населения:

Определим отчисления в фонд социальной защиты населения:

 бел. руб.

Сумма амортизационных отчислений по основным производственным фондам, относимая на себестоимость ПО, А_оi, определяется по формуле:

, (6.11)

где  - первоначальная стоимость ОПФ;

 - норматив амортизационных отчислений на полное восстановление ОПФ в целом по научной организации.

В небольших научных организациях и на малых предприятиях где ОПФ являются лишь средства ВТ, амортизационные отчисления на ПО можно определить прямым счетом, используя нормы амортизационных отчислений:

, (6.12)

где  - амортизационные отчисления по конкретному средству ВТ за расчетный период, ден. ед.;

 - фактический срок использования ВТ (примем равным 110 дней или 0,3 года).

Первоначальная стоимость используемых основных производственных фондов 8000000 бел. руб.

Определим сумму амортизационных отчислений:

 бел. руб.

Расходы по статье "Прочие затраты" на ПО включают затраты на приобретение и подготовку специальной научно-технической информации и специальной литературы. Определяются по нормативу, разрабатываемому в целом по научной организации, в процентах к основной заработной плате:

, (6.13)

где - норматив прочих затрат в целом по научной организации, %.

Определим прочие затраты:

 бел. руб.

Общая сумма расходов по всем статьям сметы  на ПО рассчитывается по формуле:

. (6.14)

Определим общую сумму расходов:

 бел. руб.

Кроме того, организация-разработчик осуществляет затраты на сопровождение и адаптацию ПО, которые определяются по нормативу :

, (6.15)

где  - норматив расходов на сопровождение и адаптацию, %.

Определим расходы на сопровождение и адаптацию:

 бел. руб.

6.6 Расчет себестоимости, отпускной цены и прибыли

Общая сумма расходов на разработку (с затратами на сопровождение и адаптацию) как полная себестоимость ПО C_ni определяется по формуле:

 (6.16)

Определим полную себестоимость ПО:

 бел. руб.

Рентабельность и прибыль от создаваемого ПО определяются исходя из результатов анализа рыночных условий, переговоров с заказчиком (потребителем) и согласования с ним отпускной цены, включающей дополнительно налог на добавленную стоимость. Прибыль рассчитывается по формуле:

, (6.17)

где  - прибыль от реализации ПО заказчика, ден. ед.;

- себестоимость ПО, ден. ед.;

 - уровень рентабельности ПО, принимаем 25 %.

Определим прибыль от реализации создаваемого ПО:

 бел. руб.

В цену ПО включается налог на добавленную стоимость, который рассчитывается по нормативу, установленному действующим законодательством, в процентах к общей сумме добавленной стоимости:

, (5.18)

где  - налог на добавленную стоимость, ден. ед.,

 - добавленная стоимость, ден. ед.;

 - норматив налога на добавленную стоимость, %.

Добавленная стоимость на ПО рассчитывается по формуле

 (6.19)

Определим :

 бел. руб.

Определим налог на добавленную стоимость:

 бел. руб.

Прогнозируемая отпускная цена ПО представляет собой сумму себестоимости, прибыли и налога на добавленную стоимость:

. (6.20)

Определим прогнозируемую отпускную цену ПО:

 бел. руб.

Прибыль от реализации ПО остается организации-разработчику и представляет собой эффект от создания нового программного обеспечения ВТ.

Таким образом, экономический эффект от создания нового ПО составляет 943072 белорусских рублей.

Заключение

В данном дипломном проекте были разработаны программы по расчету пути на прочность и устойчивость и затрат труда. Задача по автоматизированному расчету напряженностей в пути уже решалась, но старая версия программы имела ряд недостатков, таких как отсутствие ввода новых данных по подвижному составу, процесс выбора параметров расчета был закольцован до окончания расчета текущей выборки, отчеты по результатам расчета не имели графического отображения зависимостей, и были труднопереносимыми в другие программы пакеты. В отличие от старой версии программы, новая программа имеет интегрированную базу данных, с разработанными формами для ее редактирования. Расчет напряженностей более гибок, так как берутся аппроксимированные табличные данные. Отчеты формируются, в виде таблиц зависимостей, а также графических представлений этих таблиц, в пакетах Word и Excel.

Для оценки разработанных приложений, были произведена апробации программ. Сравнивались результаты расчета, одних и тех же данных, полученных ручным расчетом, и новой программой. Оценка результатов апробации, показала, что новая программа не уступает ручному расчету и получает данные, превосходящие в точности данные результата расчета старой версией программы.

Рассчитан экономический эффект ПО, основанный на принципах “Комплексной оценки эффективности мероприятий, направленных на ускорение научно-технического прогресса”, который составил 943072 белорусских рублей, с учетом срока разработки в сорок дней.

Список использованных источников

1. Афанасьев Н.Н. Статистическая теория усталостной прочности металлов. Киев: Изд-во АН УССР, 1953. - 123с.

. Иванова В.С., Терентьев В.Ф. Природа усталости металлов. М.: Металлургия, 1975. - 455с.

. Надежность и эффективность в технике. Справочник в 10 томах. М.: Машиностроение, том 1 - 1986, том 10 - 1990.

. Лысюк В.С., Семенов В.Т., Ермаков В.М. и др. Управление надежностью бесстыкового пути. / Под ред. В.С.Лысюка. М.: Транспорт, 1999. - 373с.

. Лысюк В.С., Кузнецов В.М., Данилов B.N., Бащкатова Л.В. Надежность пути. Термины и определения // Путь и путевое хозяйство. 1990, Ns 1. С.22 - 24.

. Болотин В.В. Применение методов теории вероятностей и теории надежности в расчетах сооружений. М.: Стройиздат, 1971. -255с.

. Методика расчета надежности изделий с учетом постепенных отказов. М.: Изд. стандартов, 1976. - 100с.

. Кальнер В.Д., Зильберман А.Г. Практика микрозондовых методов исследования металлов и сплавов. М.: Металлургия, 1981. - 215с.

. Каминский А.А. Механика разрушения вязкоупругих тел. Киев: Наукова думка, 1980. - 159с.

. Волков С.Д. Проблемы прочности и механика разрушения // Проблемы прочности, 1978, З 7, С. 3 - 10.

. Журков С.Н. Кинетическая концепция прочности твердых тел // Вестник АН СССР, 1968, Ns 3, С. 46- 52.

. Нанасюк В.В., Андрейков А.Е., Кончик С.Е. Методы оценки трещиностойкости конструкционных материалов. Киев: Наукова думка, 1977. - 277с.

. Шур Е.А. О выборе допускаемых напряжений при прочностных расчетах рельсов // Вестник ВНИИЖТа, 1977, Ns 8, С.38 - 41.

. Майр Р., Гроснхут И.Р. Развитие поперечных усталостных дефектов в головке железнодорожных рельсов // Железные дороги мира, 1981, Ns 10, С.44 - 53.

. Вериго М.Ф. Основные принципиальные положения разработки новых Правил расчета железнодорожного пути на прочность. М.: Транспорт, 1967 (Труды ЦНИИ МПС, вып. 347).

. Лысюк В.С. О критериях прочности современных конструкций железнодорожного пути. М.: ВНИИЖТ, 1984. - 1.27с. (Рукопись в ЦНИИТЭИ МПС, 30.01.84, Х 2485).

. Лысюк В. С. Износ деревянных шпал и борьба с ним / Труды ЦНИИ МПС, вып. 445. М.: Транспорт, 1971. - 224с.

. Вериго М.Ф., Лысюк В.С. Основы методики статистической оценки прочности пути с учетом грузонапряженности // Труды ЦНИ И МПС, вып. 466. М.: Транспорт, 1972, с.51 - 67.

. Лысюк В. С. Основы методики расчета отказов и межремонтного ресурса железнодорожного пути по повреждениям рельсов. М.: ВНИИЖТ 198з. - 57 с. (Рукопись в цниитэИ 25.02.83г. Ni 2120).

. Бащкатова Л.В., Лысюк В.С. Методика прогнозирования частичных отказов железнодорожного пути. ВНИИЖТ М.: 1983. - 40 с. (Рукопись в ЦНИИТЭИ МПС 17.10.83г. лги 241в).

. Труфяков В.И., Ковальчук В.С. Циклическая долговечность при двухступенчатом нагружении. Киев: ЦЭС им. Е.О. Патона. АН УССР, 1982. - Збс.

. Слово о трибофатике (научное эссе). Минск: 1999. - 132с.

. Gri i А.А. The phenomenon оГ гцр1ыге and йо in solids. - Phi1. Trans. Аау вос. ег. А, 1920, v 221, Е 163 - 188.

. Иатон В.3., Морозов Е.М. Механика упругопластического разрушения. М.: Наука, 1974. 416с.

. Черепанов Г.Н. Механика хрупкого разрушения. М.: Наука, 1974. - 640с.

. В.В. Романенко, П.В. Ковтун Проектирование технологического процесса восстановительного ремонта бесстыкового пути : учеб.-метод. пособие ; М-во образования Респ. Беларусь, Белорус. гос. ун-т трансп. - Гомель : БелГУТ, 2011. - 139 с

Приложение 1

Пример отчета «Расчет пути на прочность»

Расчет железнодорожного пути на прочность

Параметры для расчета пути на прочность, 29.05.2016 :

Тип подвижного состава:  ВЛ60 3о - 3о

Начальная скорость движения, км/ч:  10

Конечная скорость движения, км/ч:  40

Конструкция пути:  Звеньевой

План линии:  Кривая

Радиус кривой, м:  600

Тип Рельсов:  P65

Износ рельсов, мм:  3

Род шпал:  Деревянные IA , IБ

Эпюра шпал, шт./км:  1840

Тип промежуточного скрепления:  ДО

Балласт:  Песчано-гравийный

Минимальная толщина балластной призмы, см: 10

Максимальная толщина балластной призмы, см: 50

σ_п-о (П - О) - осевые напряжения в подошве рельса, кгс/см²;

σ_г-о (Г - О) - осевые напряжения в головке рельса, кгс/см²;

σ_п-к (П - К) - кромочные напряжения в подошве рельса, кгс/см²;

σ_г-к (Г - К) - кромочные напряжения в головке рельса, кгс/см²;

σ_ш (Ш) - напряжения в шпале под подкладкой (прокладкой), кгс/см²;

σ_б (Б) - напряжения в балластной призме под шпалой, кгс/см²;

σ_h (h) - напряжения в основной площадке земляного полотна, кгс/см².

Таблица 1 - Напряжения в балластной призме в зависимости от ее толщины и скорости движения поездов в летний период (напряжения от максимальной толщины балластной призмы - h), кгс/см²

Таблица 2 - Напряжения в элементах верхнего строения пути в зависимости от скорости движения поездов в летний период, кгс/см2

Таблица 3 - Напряжения в балластной призме в зависимости от ее толщины и скорости движения поездов в зимний период (напряжения от максимальной толщины балластной призмы - h), кгс/см2

Таблица 4 - Напряжения в элементах верхнего строения пути в зависимости от скорости движения поездов в зимний период, кгс/см2

Вывод:

Расчетные напряжения в элементах верхнего строения пути при максимальных скоростях движения поездов составляют:

Осевые напряжения в подошве рельса (летом/зимой), кгс/см2: 857,95/813,73

Осевые напряжения в головке рельса (летом/зимой), кгс/см2: 1054,62/1000,26

Кромочные напряжения в подошве рельса (летом/зимой), кгс/см2: 1244,03/1179,91

Кромочные напряжения в головке рельса (летом/зимой), кгс/см2: 1446,93/1372,35

Напряжения в шпале под подкладкой (прокладкой) (летом/зимой), кгс/см2: 6,95/8,49

Напряжения в балластной призме под шпалой (летом/зимой), кгс/см2: 1,41/1,73

Приложение 2

Пример отчета «Расчет пути на прочность и устойчивость»

Расчет железнодорожного пути на прочность и устойчивость

Параметры для расчета пути на прочность, 03.06.2016 :

Тип подвижного состава:  БГК-1

Начальная скорость движения, км/ч:  10

Конечная скорость движения, км/ч:  80

Конструкция пути:  Бесстыковой

План линии:  Прямая

Радиус кривой, м:  Нет

Тип Рельсов:  P65

Износ рельсов, мм:  3

Род шпал:  Железобетонные

Эпюра шпал, шт./км:  1840

Тип промежуточного скрепления:  СБ3

Балласт:  Щебеночный

Минимальная толщина балластной призмы, см: 10

Максимальная толщина балластной призмы, см: 50

σ_п-о (П - О) - осевые напряжения в подошве рельса, кгс/см²;

σ_г-о (Г - О) - осевые напряжения в головке рельса, кгс/см²;

σ_п-к (П - К) - кромочные напряжения в подошве рельса, кгс/см²;

σ_г-к (Г - К) - кромочные напряжения в головке рельса, кгс/см²;

σ_ш (Ш) - напряжения в шпале под подкладкой (прокладкой), кгс/см²;

σ_б (Б) - напряжения в балластной призме под шпалой, кгс/см²;

σ_h (h) - напряжения в основной площадке земляного полотна, кгс/см².

Таблица 1 - Напряжения в балластной призме в зависимости от ее толщины и скорости движения поездов в летний период (напряжения от максимальной толщины балластной призмы - h), кгс/см²

Таблица 2 - Напряжения в элементах верхнего строения пути в зависимости от скорости движения поездов в летний период, кгс/см2

Таблица 3 - Напряжения в балластной призме в зависимости от ее толщины и скорости движения поездов в зимний период (напряжения от максимальной толщины балластной призмы - h), кгс/см2

Таблица 4 - Напряжения в элементах верхнего строения пути в зависимости от скорости движения поездов в зимний период, кгс/см2

Вывод:

Осевые напряжения в подошве рельса (летом/зимой), кгс/см2:  684,04/621,06

Осевые напряжения в головке рельса (летом/зимой), кгс/см2:  840,84/763,42

Кромочные напряжения в подошве рельса (летом/зимой), кгс/см2:  738,76/670,74

Кромочные напряжения в головке рельса (летом/зимой), кгс/см2:  1044,33/948,17

Напряжения в шпале под подкладкой (прокладкой) (летом/зимой), кгс/см2: 25,11/32,52

Напряжения в балластной призме под шпалой (летом/зимой), кгс/см2:  2,53/3,28

Расчетный интервал закрепления рельсовых плетей составляет от 8 °С до 90 °С;

Температурные напряжения в рельсовых плетях (произведение коэффициента линейного расширения рельсовой стали, модуль упругости рельсовой стали и разности между температурой, при которой определяется напряжение и температурой закрепления плети) при изменении температуры от 25°С до Tmax = 90°С составляют 162,50 кгс/см2;

Суммарные напряжения в плетях (кромочные напряжения в подошве рельса в зимний период с коэффициентом запаса прочности 1,3 плюс температурные напряжения в рельсовых плетях) составляет 1033,50 кгс/см2

Запас продольных сил по устойчивости:

при закреплении плетей в нижней границе оптимального интервала закрепления +25°С запас сжимающих сил - 66533,00 кгс, растягивающих - 261300,00 кгс;

при закреплении плетей в верхней границе оптимального интервала закрепления +35°С запас сжимающих сил - 106733,00 кгс, растягивающих - 221100,00 кгс.

Приложение 3

Пример отчета «Расчет затрат труда по техническим нормам»

Приложение 4

Фрагмент Листнинга программы «Расчет затрат труда по техническим нормам»

#include <vcl.h>

#include <math.h>

#include <cstring.h>

#include <windows.h>

#include <ComObj.hpp>

#include <utilcls.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

#include "Unit10.h"

#pragma package(smart_init)

#pragma resource "*.dfm"vVarApp, vVarDoc, vVarParagraphs, vVarParagraph, v;vVarRange, vVarTables, vVarTable, vVarCell, vVarDocs;vVarAppEx, vVarBooks, vVarBook, vVarSheets, vVarCellEx, vVarSheet,, vEx;fStart;*Form2;

float Gp; // жесткость рессорного подвешивания Жр из SOSTAVAp, Bp; // коэфф Ар и Вр из SOSTAVu; // u , скорость движения поезда из SOSTAVPp; // Pp максимальное значение вертикальной силыPPp; // PPp среднее значение верт сил, вызываемых колебаниями рессорPP; // PP среднее давление любого колесаPst; // Статическая нагрузка на рельс/ колесоPrach;Sp; // среднее квадратичное откланение вертикальных силSnp; // среднее квадратическое откланение сил инерцииSink; // среднее квадратическое откланение инерции неровностиSnnk; // среднее квадратическое откланение инерции пост. неровности

float S;f; // коэффициент f

float e0; // коэфф неровности колесаd; // диаметр колеса смa, a0, r1; // коэфф a - для дер =1 ,для жб =0.931e; // кофф е - для дер =1 , для жб =0.322B; // кофф В -> Р75 = 0.82; Р65=0.87; P50=1;Y; // кофф Y -> Щебень= 1; Гравий = 1.1; Песок= 1.5;

float L, l, l2, l3, lmin; // коофф L -> 1600 = 63; 1840 = 55; 2000=50;

float kol_sh = 1600, dlin_sh; // колл шпал на км, и длина шпалы

float U, k, k1, qk;M, M1, M2, M3, Q, y, Q1, Q2, Q3;Qp_o, Qg_o, Qp_k, Qg_k, Qsh, Qb, Qras, Qszh;Wp, Wr, mg_k;uu, uu1, uu2, uu3, nn, nn1, nn2, nn3;w; // опорная площадьA_sh, B_sh, a_sh;

float h, h1, h2, h3; // глубина основания подкладки

float Nach_skor, Konech_skor, Konstr_put, Pln_ln, ep_wpl, tp_np_skrp,_tolsch, max_tolsch;adr, adr2, adrEx1, adrEx2, adr_hp;adr_file, speed;x_0, y_0, x_1, y_1, yy;count, count_t1, item1 = 1, item2 = 2, itemEx = 1, ex_cn = 0, xxx = 0;Ocpl;Ocgl;krpl;krgl;nwppl;Ocpz;Ocgz;krpz;krgz;nwppz;nbpl;nbpz;

__fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) {

}__fastcall TForm2::FormShow(TObject *Sender) {buffer[MAX_PATH];(sizeof(buffer), buffer);= buffer;_file = buffer;= buffer;= adr + "\\Шаблон2.docx";= adr2 + "\\Лето.xlsx";_hp = buffer;_hp = adr_hp + "\\";->Text = "10";->Text = "40";->Text = "10";->Text = "10";->Text = "50";->Text = "10";(RadioButton8->Checked == true) {->Clear();->SQL->Clear();->SQL->Add

("select SOSTAV from Sostav where SOSTAV not like 'Модель%'");->Active = true;->First();(!Query1->Eof) {->Items->Add(Query1->FieldByName("SOSTAV")->Value);->Next();

}

}->Clear();->Active = true;->First();(!Query4->Eof) {->Items->Add(Query4->FieldByName("TIP_SHPAL")->Value);->Next();

}->Clear();->Active = true;->First();(!Query5->Eof) {->Items->Add(Query5->FieldByName("TYPE_BAL")->Value);->Next();

}->Clear();->Active = true;->First();(!Query9->Eof) {->Items->Add(Query9->FieldByName("TIP_PODKL")->Value);->Next();

}->Checked = True;->Checked = True;->Checked = True;->Active = false;->ParamByName("SOSTAV")->AsString = (ComboBox1->Text);->Active = true;(RadioButton1->Checked == true) {->Enabled = False;->Enabled = False;(!(Query12->FieldByName("ID")->IsNull)) {->Active = false;->ParamByName("ID")->AsInteger =->FieldByName("ID")->Value;->Active = true;(!(Query3->FieldByName("PR_UCH")->IsNull)) {->Text = Query3->FieldByName("PR_UCH")->Value;= StrToFloat(Query3->FieldByName("PR_UCH")->Value);

}->Text = "Прямой участок";

}

}

}__fastcall TForm2::Button2Click(TObject *Sender) {u1, u2, u3;x1, x2;Q_, Q_c, Q_cc, nn_, nn1_c, nn1_cc, nn2_c, nn2_cc;q_b, q_bc, q_bcc;q_h, q_hh, q_hc, q_hcc;C1, C2, A;->Clear();{(f < 1.1 && f >= 1) {->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 1.0;->Active = true;= Query8->FieldByName("REK_M")->Value;->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 1.1;->Active = true;= Query8->FieldByName("REK_M")->Value;_k = x1 + ((f - 1.0) / (1.1 - 1.0)) * (x2 - x1);

}(f < 1.25 && f >= 1.1) {->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 1.1;->Active = true;= Query8->FieldByName("REK_M")->Value;->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 1.25;->Active = true;= Query8->FieldByName("REK_M")->Value;_k = x1 + ((f - 1.1) / (1.25 - 1.1)) * (x2 - x1);

}(f < 1.5 && f >= 1.25) {->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 1.25;->Active = true;= Query8->FieldByName("REK_M")->Value;->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 1.5;->Active = true;= Query8->FieldByName("REK_M")->Value;_k = x1 + ((f - 1.25) / (1.5 - 1.25)) * (x2 - x1);

}(f < 1.75 && f >= 1.5) {->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 1.5;->Active = true;= Query8->FieldByName("REK_M")->Value;->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 1.75;->Active = true;= Query8->FieldByName("REK_M")->Value;_k = x1 + ((f - 1.5) / (1.75 - 1.5)) * (x2 - x1);

}(f < 2.0 && f >= 1.75) {->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 1.75;->Active = true;= Query8->FieldByName("REK_M")->Value;->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 2.0;->Active = true;= Query8->FieldByName("REK_M")->Value;_k = x1 + ((f - 1.75) / (2.0 - 1.75)) * (x2 - x1);

}(f < 2.25 && f >= 2.0) {->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 2.0;->Active = true;= Query8->FieldByName("REK_M")->Value;->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 2.25;->Active = true;= Query8->FieldByName("REK_M")->Value;_k = x1 + ((f - 2.0) / (2.25 - 2.0)) * (x2 - x1);

}(f < 2.5 && f >= 2.25) {->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 2.25;->Active = true;= Query8->FieldByName("REK_M")->Value;->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 2.5;->Active = true;= Query8->FieldByName("REK_M")->Value;_k = x1 + ((f - 2.25) / (2.5 - 2.25)) * (x2 - x1);

}(f <= 2.75 && f >= 2.5) {->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 2.5;->Active = true;= Query8->FieldByName("REK_M")->Value;->Active = false;->ParamByName("RELS_TYPE")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->ParamByName("KOFF_F")->AsFloat = 2.75;->Active = true;= Query8->FieldByName("REK_M")->Value;

mg_k = x1 + ((f - 2.5) / (2.75 - 2.5)) * (x2 - x1);

}sezon = "Летний период :";

u1 = StrToFloat(Edit15->Text);= StrToFloat(Edit16->Text);= StrToFloat(Edit10->Text);(ComboBox2->ItemIndex != -1 && ComboBox3->ItemIndex != -1 &&->ItemIndex != -1 && ComboBox4->ItemIndex != -1 &&->ItemIndex != -1 && ComboBox7->ItemIndex != -1) {->Active = false;->ParamByName("TYPE_SHPAL")->AsString = (ComboBox2->Text);->ParamByName("TYPE_RELS")->AsString = (ComboBox3->Text);->ParamByName("TYPE_PODKL")->AsString = (ComboBox5->Text);->ParamByName("KOL_SHP_KM")->AsFloat = kol_sh;->Active = true;->Text = Query6->FieldByName("UPRUG_U")->Value;= Query6->FieldByName("UPRUG_U")->Value;->Active = false;->ParamByName("TYPE_RELS")->AsString = (ComboBox3->Text);->ParamByName("IZNOS")->AsInteger = StrToInt(ComboBox4->Text);->Active = true;= Query7->FieldByName("WR")->Value;= Query7->FieldByName("WP")->Value;->Active = false;->ParamByName("TIP_PODKL")->AsString = (ComboBox6->Text);->ParamByName("TIP_RELS")->AsString = (ComboBox3->Text);->Active = true;= Query10->FieldByName("OP_PL_PODK")->Value;->Active = false;->ParamByName("TIP_SHPAL")->AsString = (ComboBox2->Text);->ParamByName("DLINA_SHP")->AsInteger = dlin_sh;->ParamByName("TYPE_BAL")->AsString = (ComboBox5->Text);->Active = true;_sh = Query11->FieldByName("DLINA_SHP")->Value;_sh = Query11->FieldByName("SHIR_SHP")->Value;_sh = Query11->FieldByName("KOF_A")->Value;

}("НЕ все данные введены!");

for (int i = 0; i < 2; i++) {= u1;= U / (4.0 * 2.1 * pow(10.0,

.0) * (Query7->FieldByName("IV")->AsFloat));= pow(k1, 1.0 / 4.0);->Text = k;(u <= u2) {= StrToFloat(Edit3->Text);= StrToFloat(Edit7->Text);= StrToFloat(Edit8->Text);= StrToFloat(Edit2->Text);= StrToFloat(Edit1->Text);= StrToFloat(Edit9->Text);= StrToFloat(Edit4->Text);= StrToFloat(Edit5->Text);= StrToFloat(Edit6->Text);= StrToFloat(Edit20->Text);= Gp * (Ap + Bp * (pow(u, 2))); // рассчитали Pp= 0.75 * Pp;= Pst + PPp;= 0.08 * Pp;= 0.565 * (pow(10.0, -8)) * a * e * B * Y * L * sqrt

((U * qk) / k) * PP * u;= 0.5 * a0 * 1.47 * e0 * (U / k);= (0.052 * a0 * U * pow(u, 2) * sqrt(qk)) /

(pow(d, 2) * sqrt(k * U - 3.26 * pow(k, 2) * qk));= sqrt(pow(Sp, 2) + pow(Snp, 2) + 0.05 * pow(Sink, 2) +

(1 - 0.05) * pow(Snnk, 2));= PP + 2.5 * S;(k*l > 5.5)= 0;= (exp(-(StrToFloat(FormatFloat("0.00", k * l)))) *

(cos(StrToFloat(FormatFloat("0.00", k * l))) -(StrToFloat(FormatFloat("0.00", k * l)))));(k*(l + l2) > 5.5)= 0;= (exp(-(StrToFloat(FormatFloat("0.00", k * (l + l2)))))

* (cos(StrToFloat(FormatFloat("0.00", k * (l + l2)))) -(StrToFloat(FormatFloat("0.00", k * (l + l2))))));(k*l2 > 5.5)= 0;= (exp(-(StrToFloat(FormatFloat("0.00", k * l2)))) *

(cos(StrToFloat(FormatFloat("0.00", k * l2))) -(StrToFloat(FormatFloat("0.00", k * l2)))));(k*(l + l2 + l3) > 5.5)= 0;= (exp(-(StrToFloat(FormatFloat("0.00",* (l + l2 + l3))))) * (cos(StrToFloat(FormatFloat("0.00",* (l + l2 + l3)))) - sin(StrToFloat(FormatFloat("0.00",* (l + l2 + l3))))));(l3 == 0 && l2 == 0) {= (1 / (4 * k)) * (Prach + PP * uu);

}if (l3 == 0 || l + l2 + l3 < 350) {= (1 / (4 * k)) * (Prach + PP * uu + PP * uu1);= (1 / (4 * k)) * (Prach + PP * uu + PP * uu2);= (1 / (4 * k)) * (Prach + PP * uu1 + PP * uu2);(M1 >= M2 && M1 >= M3)= M1;(M2 >= M1 && M2 >= M3)= M2;(M3 >= M2 && M3 >= M1)= M3;

}{= (1 / (4 * k)) * (Prach + PP * uu + PP * uu1 +* uu3);= (1 / (4 * k)) * (Prach + PP * uu + PP * uu2 +* uu1);(M1 >= M2)= M1;= M2;

}(l >= l2 && l >= l3)= l;(l2 >= l && l2 >= l3)= l2;(l3 >= l && l3 >= l2)= l3;(k*l > 5.5)= 0;= (exp(-(StrToFloat(FormatFloat("0.00", k * l)))) *

(cos(StrToFloat(FormatFloat("0.00", k * l))) +(StrToFloat(FormatFloat("0.00", k * l)))));(k*(l + l2) > 5.5)= 0;= (exp(-(StrToFloat(FormatFloat("0.00", k * l + l2)))) *

(cos(StrToFloat(FormatFloat("0.00", k * l + l2))) +(StrToFloat(FormatFloat("0.00", k * l + l2)))));(k*l2)= 0;= (exp(-(StrToFloat(FormatFloat("0.00", k * l2)))) *

(cos(StrToFloat(FormatFloat("0.00", k * l2))) +(StrToFloat(FormatFloat("0.00", k * l2)))));(k*(l + l2 + l3) > 5.5)= 0;= (exp(-(StrToFloat(FormatFloat("0.00",* l + l2 + l3)))) * (cos(StrToFloat(FormatFloat("0.00",* l + l2 + l3))) + sin(StrToFloat(FormatFloat("0.00",* l + l2 + l3)))));(l3 == 0 && l2 == 0) {= ((k * L) / 2) * (Prach + PP * nn);

}if (l3 == 0) {((3 * 3.14) / (4 * k) > lmin) {= ((k * L) / 2) * (Prach + PP * nn + PP * nn1);= ((k * L) / 2) * (Prach + PP * nn1 + PP * nn2);(Q1 >= Q3)= Q1;(Q3 >= Q1)= Q3;

}{= ((k * L) / 2) * (Prach + PP * nn + PP * nn2);= Q2;

}

}{= ((k * L) / 2) * (Prach + PP * nn + PP + nn1 +* nn3);= ((k * L) / 2) * (Prach + PP * nn + PP + nn2 +* nn1);(Q1 >= Q2)= Q1;= Q2;

}= (k / (2 * U)) * (Prach + PP * nn);_o = M / Wp;_o = M / Wr;_k = f * Qp_o;_k = mg_k * Qg_o;= Q / w;= Q / (0.5 * a_sh * A_sh * B_sh);_ = ((k * L) / 2) * (Prach + PP * nn);_b = Q_ / (0.5 * a_sh * A_sh * B_sh);_c = (exp(-(StrToFloat(FormatFloat("0.00", k * L)))) *

(cos(StrToFloat(FormatFloat("0.00", k * L))) +(StrToFloat(FormatFloat("0.00", k * L)))));_c = (exp(-(StrToFloat(FormatFloat("0.00", k * (l + L))))) *

(cos(StrToFloat(FormatFloat("0.00", k * (l + L)))) +(StrToFloat(FormatFloat("0.00", k * (l + L))))));_c = ((k * L) / 2) * (Prach * nn1_c + PP * nn2_c);_bc = Q_c / (0.5 * a_sh * A_sh * B_sh);_cc =

(exp(-(StrToFloat(FormatFloat("0.00", k * L)))) *

(cos(StrToFloat(FormatFloat("0.00", k * L))) +(StrToFloat(FormatFloat("0.00", k * L)))));_cc =

(exp(-(StrToFloat(FormatFloat("0.00", k * (l - L))))) *

(cos(StrToFloat(FormatFloat("0.00", k * (l - L)))) +(StrToFloat(FormatFloat("0.00", k * (l - L))))));_cc = ((k * L) / 2) * (Prach * nn1_cc + PP * nn2_cc);_bcc = Q_cc / (0.5 * a_sh * A_sh * B_sh);= h1;->Lines->Add(sezon);

Memo1->Lines->Add("Cкорость движения равна" +

FormatFloat("0.00", u));->Lines->Add("_____________________");->Lines->Add("|Глубина h | Напр qh |");(h <= h2) {= (B_sh / (2.0 * h)) -

(pow(B_sh, 3) / (24.0 * (pow(h, 3))));= (B_sh * h) / (pow(B_sh, 2) + pow(h, 2) * 4.0);_hh = r1 * q_b *

(0.635 * 1 * C1 + 1.275 * (2.0 - 1.0) * C2);= atan((L + 0.5 * B_sh) / h) +

.5 * sin(2 * (atan((L + 0.5 * B_sh) / h))) -((L - 0.5 * B_sh) / h) -

.5 * sin(2 * (atan((L - 0.5 * B_sh) / h)));_hc = (r1 / 3.14) * A * q_bc;_hcc = (r1 / 3.14) * A * q_bcc;_h = q_hh + q_hc + q_hcc;->Lines->Add(" " + FormatFloat("0.00", h) +

" | " + FormatFloat("0.00", q_h) + " |");= h + h3;

}->Lines->Add("_____________________");->Lines->Add("Pp = " + FormatFloat("0.00", Pp));->Lines->Add("PPp = " + FormatFloat("0.00", PPp));->Lines->Add("PP = " + FormatFloat("0.00", PP));->Lines->Add("Sп = " + FormatFloat("0.00", Sp));->Lines->Add("Sнп = " + FormatFloat("0.00", Snp));->Lines->Add("Sинк = " + FormatFloat("0.00", Sink));->Lines->Add("Sннк = " + FormatFloat("0.00", Snnk));->Lines->Add("S = " + FormatFloat("0.00", S));->Lines->Add("Pрасч = " + FormatFloat("0.00", Prach));->Lines->Add("----------------");->Lines->Add("M = " + FormatFloat("0.00", M));->Lines->Add("Q = " + FormatFloat("0.00", Q));->Lines->Add("y = " + FormatFloat("0.00", y));->Lines->Add("Qп-о = " + FormatFloat("0.00", Qp_o));->Lines->Add("Qг-о = " + FormatFloat("0.00", Qg_o));->Lines->Add("Qп-к = " + FormatFloat("0.00", Qp_k));->Lines->Add("Qг-к = " + FormatFloat("0.00", Qg_k));->Lines->Add("Qш = " + FormatFloat("0.00", Qsh));->Lines->Add("Qб = " + FormatFloat("0.00", Qb));(ComboBox7->ItemIndex == 1) {= 3500.0 + 1.3 * Qg_k;= 3500.0 - 1.3 * Qp_k;->Lines->Add("Qрас = " + FormatFloat("0.00", Qras));->Lines->Add("Qсж = " + FormatFloat("0.00", Qszh));

}->Lines->Add("");->Lines->Add("");

u = u + u3;

}= "Зимний период :";= U * 2;

}

}(...) {("Возможно произошла ошибка! Проверьте выбранные данные!");

}

}

Приложение 5

Фрагмент листнинга программы «Расчет пути на прочность и устойчивость»

#include <vcl.h>

#pragma hdrstop

#include "UnitT.h"

#include "Unit10.h"

#include "Unit11.h"

#include <math.h>

#pragma package(smart_init)

#pragma resource "*.dfm"*FormT;

__fastcall TFormT::TFormT(TComponent* Owner) : TForm(Owner) {

}__fastcall TFormT::Button1Click(TObject *Sender) {FF = Edit6->Text.ToDouble();q;qq;p;(Form11->RadioButton4->Checked == true) {= 8.5;= 13;(Form11->ComboBox3->Text == "P50") { // 1840(Form11->ComboBox2->Text == "Железобетонные") {= 5.89;

}{= 3.35;

}

}(Form11->ComboBox3->Text == "P65") {(Form11->ComboBox2->Text == "Железобетонные") {= 6.15;

}{= 3.61;

}

}

}(Form11->RadioButton5->Checked == true) { // 2000= 9;= 14;(Form11->ComboBox3->Text == "P50") {(Form11->ComboBox2->Text == "Железобетонные") {= 6.41;

}{= 3.58;

}

}(Form11->ComboBox3->Text == "P65") {(Form11->ComboBox2->Text == "Железобетонные") {= 6.68;

}{= 3.92;

}

}

}I;In = Edit18->Text.ToDouble();->Text = Form11->ComboBox6->Text;(Edit19->Text == "ДО") {= 4 * In;

}{= 5 * In;

}>Edit19->Text = I;Iv = Edit17->Text.ToDouble();R;(Form11->Edit11->Text == "Прямой участок") {= 1;

}{= Form11->Edit11->Text.ToDouble();

}E = 2100000;pk1 = 1;pk2 = 1;pk3 = 1;levstor1;levstor2;levstor3;pravstor1;pravstor3;r1;r2;r3;lk1;lk2;lk3;{= pk1 + 1;= 19.18 * (pow(((E * I) / pk1), 0.5));= pk1 * (pow((1 + (pk1 / (4 * p * lk1))), 0.25));= 2.416 * (pow((I * 2 * FF * E * E * q * q), 0.25));= pravstor1 - levstor1;

}(r1 > 0.001);{= pk2 + 1;= 13.92 * ((pow((E * I / pk2), 0.5)));= ((pk2 * pk2 * (pow((1 + (pk2 / (4 * p * lk2))), 0.25))) /

(7.18 * E * pow((I * 2 * FF), 0.5))) + (pk2 / (R * 100));= q - levstor2;

}(r2 > 0.000000001);{= pk3 + 1;= 13.92 * (pow(((E * 2 * Iv) / pk3), 0.5));= pk3 * (pow((1 + (pk3 / (4 * p * lk3))), 0.25));= 2.68 * (pow((2 * Iv * 2 * FF * E * E * qq * qq), 0.25));= pravstor3 - levstor3;

}(r3 > 0.001);(Form11->RadioButton1->Checked == true) {(pk1 < pk3) {->Text = pk1;

}{->Text = pk3;

}

}(Form11->RadioButton1->Checked == false) {(pk2 < pk3) {->Text = pk2;

}{->Text = pk3;

}

}>Edit3->Text = Form11->Edit21->Text;Ch = FormT->Edit3->Text.ToDouble(); // с приложенияqzpk = FormT->Edit4->Text.ToDouble();qlgk = FormT->Edit5->Text.ToDouble();tras1 = int((Ch - (1.3 * qzpk)) / 25);tcj1 = int((Ch - (1.3 * qlgk)) / 25);F = FormT->Edit6->Text.ToDouble(); // с приложенияNcj1 = int(2 * 25 * F * tcj1);Nrast1 = int(2 * 25 * F * tras1);Pkr = FormT->Edit7->Text.ToDouble();Nyst1 = int(Pkr / 1.1);tmax1 = FormT->Edit10->Text.ToDouble();tmin1 = FormT->Edit9->Text.ToDouble();Ta = tmax1 - tmin1;Ngod1 = 2 * 25 * F * Ta;>Edit8->Text = Ta;>Edit11->Text = tras1;>Edit12->Text = Nrast1;>Edit13->Text = tcj1;>Edit14->Text = Ncj1;>Edit15->Text = Nyst1;>Edit16->Text = Ngod1;Tmx = tmax1; // maximalnaya tempiraturaTmn = tmin1; // minimalnaya tempiraturaNcj = Ncj1 / 1000; // N cjaiyaNyst = Nyst1 / 1000; // N ystNrast = Nrast1 / 1000; // N rastNgod = Ngod1 / 1000; // N godovoeXA = Tmn;YA = Nyst;XA1 = Tmx;YA1 = Nyst;XB = Tmn;YB = Nyst - Ngod;XC = Tmn;YC = -Nrast;XD = Tmx;YD = -Nrast;XF = Tmx;YF = -Nrast + Ngod;->BottomAxis->Maximum = Tmx;->BottomAxis->Minimum = Tmn;->BottomAxis->Increment = 10;->LeftAxis->Maximum = Ncj + 20;->LeftAxis->Minimum = -Nrast - 5;->LeftAxis->Increment = 10;->LeftAxis->PositionPercent =

(-tmin1 / (fabs(tmin1) + fabs(tmax1)) * 100);->BottomAxis->PositionPercent =

(-(-Nrast - 5) / (fabs(-Nrast - 5) + fabs(Ncj + 20)) * 100);X = XC;Y = YC;->AddXY(X, Y, ' ', clGreen);X3 = XF;Y3 = YF;->AddXY(X3, Y3, ' ', clGreen);Tmax;b = (X3 * Y - X * Y3) / (X3 - X);k = (Y3 - Y) / (X3 - X);= (0 - b) / k;X1 = XB;Y1 = YB;->AddXY(X1, Y1, ' ', clGreen);X2 = XA1;Y2 = YA1;->AddXY(X2, Y2, ' ', clGreen);Tmin;b1 = (X2 * Y1 - X1 * Y2) / (X2 - X1);k2 = (Y2 - Y1) / (X2 - X1);= (0 - b1) / k2;->AddXY(Tmn, Ncj, clBlue);->AddXY(Tmx, Ncj, clBlue);X_3 = XA;Y_3 = YA;->AddXY(X_3, Y_3, ' ', clBlue);X4 = XA1;Y4 = YA1;->AddXY(X4, Y4, ' ', clBlue);X5 = XD;Y5 = YD;->AddXY(X3, Y3, ' ', clBlue);->AddXY(X5, Y5, ' ', clBlue);->AddXY(X5, Y5, ' ', clBlue);->AddXY(X, Y, ' ', clBlue);->AddXY(X1, Y1, ' ', clBlue);->AddXY(X_3, Y_3, ' ', clBlue);Smesh;= (k2 * 25) + b1;Yminmin;Yminmax;= (k2 * X1) + (b1 - Smesh);= (k2 * X5) + (b1 - Smesh);->AddXY(X1, Yminmin, ' ', clRed);->AddXY(X5, Yminmax, ' ', clRed);Smesh1;= (k * 35) + b;Ymaxmin;Ymaxmax;= (k * X1) + (b - Smesh1);= (k * X5) + (b - Smesh1);->AddXY(X1, Ymaxmin, ' ', clRed);->AddXY(X5, Ymaxmax, ' ', clRed);delT;->AddXY(X, Y, "C(" + AnsiString(X) + ";" + AnsiString(Y) + ")",);->AddXY(X1, Y1, "B(" + AnsiString(X1) + ";" + AnsiString(Y1) + ")",);->AddXY(X2, Y2, "A1(" + AnsiString(X2) + ";" + AnsiString(Y2) + ")",);->AddXY(X3, Y3, "F(" + AnsiString(X3) + ";" + AnsiString(int(Y3)) +

")", clBlue);->AddXY(X_3, Y_3, "A(" + AnsiString(X_3) + ";" + AnsiString(Y_3) +

")", clBlue);->AddXY(X5, Y5, "D(" + AnsiString(X5) + ";" + AnsiString(Y5) + ")",);->AddXY(Tmin, 0, "minTз(" + AnsiString(int(Tmin)) + ";" +(0) + ")", clBlue);(Tmax > tmax1) {->LeftAxis->PositionPercent =

(-tmin1 / (fabs(tmin1) + fabs(Tmax)) * 100);

}->AddXY(Tmax, 0, "maxTз(" + AnsiString(int(Tmax)) + ";" +(0) + ")", clBlue);= Tmax - Tmin;->AddXY(((Tmax + Tmin) / 2), -50,

"дельта T =" + AnsiString(int(delT)), clBlack);Nraszap25;Nraszap35;Ncjzap25;Ncjzap35;= 2 * 25 * F * (Tmax - 25);= 2 * 25 * F * (25 - Tmin);= 2 * 25 * F * (Tmax - 35);= 2 * 25 * F * (35 - Tmin);->AddXY(Tmx, (Y2 - ((Y2 - Y3) / 2) - 15),

"Nсж= " + AnsiString(int(Ncjzap35)) + "кгс", clBlue);->AddXY(Tmx, (Y2 - ((Y2 - Y3) / 2) + 15),

"Nсж= " + AnsiString(int(Ncjzap25)) + "кгс", clBlue);->AddXY(Tmn, (Y1 - ((Y1 - Y) / 2) + 15),

"Nрас= " + AnsiString(int(Nraszap25)) + "кгс", clBlue);->AddXY(Tmn, (Y1 - ((Y1 - Y) / 2) - 15),

"Nрас= " + AnsiString(int(Nraszap35)) + "кгс", clBlue);->Marks->ArrowLength = 25;->AddXY(25, 0, "(25;0)", clBlue);->AddXY(35, 0, "(35;0)", clBlue);>Edit1->Text = (int(Tmin));>Edit2->Text = (int(Tmax));->AddXY(0, -Nrast, "Nрас=" + Edit12->Text + "кгс", clBlue);->AddXY(0, Nyst, "Nуст=" + Edit15->Text + "кгс", clBlue);->AddXY(0, Ncj, "Nсж=" + Edit14->Text + "кгс", clBlue);->AddXY(Tmn, ((YA + YB) / 2), "Nгод=" + Edit16->Text + "кгс",);->AddXY(Tmx, ((YF + YD) / 2), "Nгод=" + Edit16->Text + "кгс",);>Label3->Caption = "";(25 >= Tmin) {

FormT->Label3->Caption = "Не заданных пределах";

if (35 <= Tmax) {>Label3->Caption = "В заданных пределах";

}{

FormT->Label3->Caption = "Не в заданных пределах";

}

}{>Label3->Caption = "Не заданных пределах";

}

}

Приложение 6

Листнинг программы «Расчет затрат труда по техническим нормам»

// ---------------------------------------------------------------------------

#include <vcl.h>

#include <math.h>

#include <cstring.h>

#include <windows.h>

#include <ComObj.hpp>

#include <utilcls.h>

#pragma hdrstop

#include "Unit1.h"

// ---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"*Form1;skr;

// ---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {

}

// ---------------------------------------------------------------------------nbolt;__fastcall TForm1::N3Click(TObject *Sender) {->VertScrollBar->Position = 0;

}

// ---------------------------------------------------------------------------__fastcall TForm1::N4Click(TObject *Sender) {->VertScrollBar->Position = 400;

}

// ---------------------------------------------------------------------------

// ---------------------------------------------------------------------------__fastcall TForm1::N5Click(TObject *Sender) {->VertScrollBar->Position = 2140;

}

// ---------------------------------------------------------------------------__fastcall TForm1::N6Click(TObject *Sender) {->VertScrollBar->Position = 3075;

}__fastcall TForm1::N7Click(TObject *Sender) {->VertScrollBar->Position = 6255;

}

// ---------------------------------------------------------------------------__fastcall TForm1::N8Click(TObject *Sender) {->VertScrollBar->Position = 5292;

}

// ---------------------------------------------------------------------------__fastcall TForm1::Button1Click(TObject *Sender) {{Wkm=Edit120->Text.ToDouble();Lfr = Edit1->Text.ToDouble()/1000;Lzv = ComboBox1->Text.ToDouble();nkm = Edit2->Text.ToDouble();nper = Edit3->Text.ToDouble();Sper = nper * 6;npopr = Edit4->Text.ToDouble()/100;npr = Edit5->Text.ToDouble(); nkr = Edit6->Text.ToDouble();Epr = ComboBox3->Text.ToDouble();Ekr = ComboBox4->Text.ToDouble();nwp = (npr * Epr / 1000) + (nkr * Ekr / 1000);->Text = nwp;= Edit7->Text.ToDouble();nrixt = Edit8->Text.ToDouble()/100;nizo = Edit9->Text.ToDouble();lvpo = Edit10->Text.ToDouble();lotv = Edit11->Text.ToDouble();nvpo = (lvpo + lotv);lRM1 = Edit13->Text.ToDouble()/1000;lRM2 = Edit111->Text.ToDouble()/1000;lRM3 = Edit114->Text.ToDouble()/1000;lRM4= Edit117->Text.ToDouble()/1000;

// Double lRM5 = Edit121->Text.ToDouble()/1000;

//Double lRM6= Edit124->Text.ToDouble()/1000;n1k=Edit109->Text.ToDouble();n2k=Edit112->Text.ToDouble();n3k=Edit115->Text.ToDouble();n4k=Edit118->Text.ToDouble();W1=Edit110->Text.ToDouble()/100;W2=Edit113->Text.ToDouble()/100;W3=Edit116->Text.ToDouble()/100;W4=Edit119->Text.ToDouble()/100;W5=Edit122->Text.ToDouble()/100;W6=Edit123->Text.ToDouble()/100;lnas = Edit14->Text.ToDouble();llotk = Edit15->Text.ToDouble();lviem = Edit16->Text.ToDouble();nvix = Edit17->Text.ToDouble();Uvix = nvix * 8;n = Edit18->Text.ToDouble();Lpk = n * 50;Urem = nper * 0.2;Upr = npr * 0.15;nstel = Edit19->Text.ToDouble();wosn1=W1*Wkm*Lfr;wosn2=W2*Wkm*Lfr;wosn3=W3*Wkm*Lfr;wosn4=W4*Wkm*Lfr;wosnq=W5*Wkm*Lfr;wosnw=W6*Wkm*Lfr;SUMM1 = 0;SUMM2 = 0;SUMM3 = 0;SUMM4 = 0;SUMM11 = 0;SUMM21 = 0;SUMM31 = 0;SUMM41 = 0;n1 = lnas * 0.05;n2 = Lfr * 0.16;n3 = Lfr * 0.016;n4 = llotk * 0.1;Lq=Edit12->Text.ToDouble();

Double U1 = Lq * 0.6; // lviem заменить на дополнительное окно Lq Очистка кюветов в местах препятствия м3

Double Lob=Edit99->Text.ToDouble();

Double U2 = Lob * 0.5; // lviem заменить на дополнительное окно Lобощины срезка обочины в местах препятствия м3

Double Lkr = nkr * 0.25;->Text = 0;->Text = 0;->Text = 0;->Text = 0;->Text = 0;adr;adr_file;buffer[MAX_PATH];(sizeof(buffer),buffer);=buffer;_file=buffer;= adr+"\\шаблон.docx";vVarApp, vVarDoc, vVarParagraphs, vVarParagraph, v;

//Формирование отчета=CreateOleObject("Word.Application");

//Сделаем приложение видимым.OlePropertySet("Visible",true);

//Переменной vVarDoc присваивается значение Documents - свойство объекта Word.Application, содержащее набор рабочих документов=vVarApp.OlePropertyGet("Documents");

//загружаем в Word шаблон документа

vVarDoc.OleProcedure("Open", adr.c_str());

//работать будем с последним созданным нами документом (Item = 1)=vVarDoc.OleFunction("Item",1);

//Смотреть будем тоже на последний созданный нами документ - т.е. активируем его

vVarDoc.OleProcedure("Activate");=vVarDoc.OlePropertyGet("Paragraphs");c1 = 0;c11 = 0;c11k = 0;(CheckBox1->Checked == true) {k=ceil(((Lfr*1000 / 100) - nkm));= ceil(16.6 * ceil(((Lfr*1000 / 100) - nkm)));=ceil( ceil(16.6 * ceil(((Lfr*1000 / 100) - nkm))) * Edit21->Text.ToDouble());+= c1;+= c11;

}->Text = SUMM1; vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sumk1",false,false,false,false,false,true,1,false,SUMM1,2);.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sum2",false,false,false,false,false,true,1,false,SUMM11,2);.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sum3",false,false,false,false,false,true,1,false,SUMM2,2);.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sum4",false,false,false,false,false,true,1,false,SUMM21,2);.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sum5",false,false,false,false,false,true,1,false,SUMM3,2);.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sum6",false,false,false,false,false,true,1,false,SUMM31,2);.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sum7",false,false,false,false,false,true,1,false,SUMM4,2);.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sum8",false,false,false,false,false,true,1,false,SUMM41,2);.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sum9",false,false,false,false,false,true,1,false,SUMM1+SUMM2+SUMM3+SUMM4,2);.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute","*Sum1k",false,false,false,false,false,true,1,false,SUMM11+SUMM21+SUMM31+SUMM41,2);CurrTime = Time().CurrentTime();hour = CurrTime.FormatString("h").ToInt();minute = CurrTime.FormatString("n").ToInt();second = CurrTime.FormatString("s").ToInt();time = IntToStr(hour) + "H " + IntToStr(minute) + "M " +(second) + "s";

// - Cохранение отчетов(100);_file = adr_file + "\\Отчёты\\" + Date() + time +

"Расчет.docx";.OleProcedure("SaveAs", adr_file.c_str());

}(...)

{("Не все данные введены!!!");

}

}