3. Часть 1-5 (1229611), страница 7

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

Текст из файла (страница 7)

Рисунок 5.6 – Интерфейс прибора

Из примера видно, что цифровое табло показывает давлении воздуха в хвостовом вагоне 3,2 МПа.

Коды комплекта передатчик - приёмник имеют 10 тыс. вариантов, исключающих возможность приёма сигнала аналогичной пары приборов, установленных даже на соседнем составе. Другими словами, совместно работают только комплекты с одноименным кодированием, индекс которых полностью совпадает, например 1-1, 2-2, 45-45…

Прибор имеет целый ряд дополнительных положительных свойств. При его применении отпадает необходимость сокращённой проверки тормозов на промежуточных станциях после стоянки более 30 мин. И после отправления поезда нет необходимости проверять эффективность тормозов, поскольку контроль целостности ТМ происходит непрерывно. Только это может дать локомотивному хозяйству значительную экономию электроэнергии и дизельного топлива.

Могут быть случаи, когда нельзя отказаться от сокращённой проверки действия тормозов поезда, но её можно произвести, не выходя из кабины локомотива. Выполнил ступень торможения краном машиниста №394 – и наблюдай за показаниями прибора (приёмника) УКПТМ, фиксирующего снижения давления воздуха в ТМ хвостового вагона. При отпуске тормозов - обратный процесс.

Основное назначение разработанного устройства – полная визуализация состояния прижимных механизмов состава, а также устранение возможности отправления поезда с незаряженной ТМ или перекрытыми концевыми кранами ТМ между вагонами в любой части состава. УПКТМ в пути практически мгновенно (1-2 с) фиксирует и передаёт на локомотив информацию о перекрытии концевых кранов, рассоединении концевых рукавов и даже о незначительном нарушении целостности ТМ, о самопроизвольном срабатывании тормозов того или иного вагона из-за неисправности воздухораспределителя.

5.2 Проведение эксперимента в лабораторных условиях

Цель: определить точность, сравнительные показатели измерений и соответствия данных параметров стенда и приставленных датчиков давления, выдвижения штока ТЦ.

Для проведения эксперимента была задействована лаборатория «Тормозное оборудование» ауд. 3111. В данном случае эксперимент проводился не по радиоканалу, а с помощью проводниковой системы.

Нами разработана и опробована система соединения измерительных устройств. Блок- схема данного устройства приведена на рисунке 5.7.

5.3 Программа обработки, хранения информации чтения данных с датчиков давления и выхода штока тормозных цилиндров (ТЦ)

program chtenie;

uses crt,dos; {используемые модули PASCAL}

var

i : byte; {номер датчика}

cod_preobr: word; {код преобразования АЦП}

F1,F2 : text; {файловые переменные (файла перемещения и температуры) }

perem : real; {текущее давление}

ch : char; {код нажатой клавиши}

const

max_perem : real = 10; {максимальное давление, мРа }

max_ perem: real = 120; { выход штока ТЦ, мм}

rele : array [1..8] of byte = {коды включения реле Р1-Р8}

(1, {код включения первого реле}

2, {-|- второго реле}

4, {-|- третьего реле}

8, {-|- четвёртого реле}

16, {-|- пятого реле}

32, {-|- шестого реле}

64, {-|- седьмого реле}

128); {-|- восьмого реле}

label

start; {метка}

function read_acp (kanal : byte): word; {функция чтения кода преобразования АЦП}

begin {kanal - номер канала АЦП}

portw[$301] := kanal; {выбор канала АЦП}

portw[$300] := 255; {запуск АЦП на преобразование}

delay (10); {задержка на преобразование АЦП, мс.}

read_acp := portw[$300] {чтение результата преобразования АЦП}

end;

{тело основной программы}

begin

clrscr; {Очистка экрана}

writeln ('ПРОГРАММА СНЯТИЯ ДАННЫХ С ДАТЧИКОВ');

writeln ('Для выхода нажмите клавишу ESC ');

writeln ('Перем.1 Перем.2 Перем.3 Перем.4 'Перем.5 Перем.6 Перем.7 Перем.8');

window (2,4,75,24); {окно выводов результатов}

assign (f1,'perem.dat'); rewrite (f1); { perem.dat - файл замеров давления}

assign (f2,' perem.dat'); rewrite (f2); { perem.dat - файл замеров выхода штока ТЦ }

start:

while not keyPressed do {пока не нажата клавиша проводить цикл измерений}

for i:=1 to 8 do

begin

portw[$301] := rele[i]; {посылаем в цифровой порт код включения реле}

{ i - номер включаемого реле}

delay(100); {задержка в 100 мс на переходные пр. в контактах реле}

if (i<4) or (i=4) then {если включаются реле датчиков давления}

begin

cod_preobr := read_acp(1); {читаем код преобразования АЦП}

{1 - номер канала преобразования для перемещения}

perem := ((cod_preobr/2048)-1)*max_perem; {получаем текущее значение перемещения}

write(perem:5:1,' '); writeln(f1,perem:5:1); {вывод полученных значений на экран и в файл}

end;

if (i=5) or (i>5) then {если включаются реле датчиков выхода штока ТЦ}

begin

cod_preobr := read_acp(2); {читаем код преобразования АЦП}

{2 - номер канала преобразования для выхода штока ТЦ}

temperat := (cod_preobr/4096)*max_temperat; {получаем текущее значение перемещения штока ТЦ}

write(temperat:5:1,' '); writeln(f2,temperat:5:1); {вывод полученных значений на экран и в файл}

end;

if i = 8 then writeln; {для нового цикла измерения переходим на следующую строку экрана}

end;

ch := readkey;

if ord (Ch) <> 27 then goto start; {если нажатая клавиша не ESC то продолжить, иначе закончить}

close (f1); {закрываем файл данных о перемещениях}

close (f2); {закрываем файл данных о температуре}

end.

67

Характеристики

Список файлов ВКР