Для антиплагиата (Разработка имитационных моделей стендов для проведения лабораторных работ по дисциплине Электроснабжение нетягового подвижного состава), страница 4
Описание файла
Файл "Для антиплагиата" внутри архива находится в следующих папках: Разработка имитационных моделей стендов для проведения лабораторных работ по дисциплине Электроснабжение нетягового подвижного состава, Соломка Никита Александрович. Документ из архива "Разработка имитационных моделей стендов для проведения лабораторных работ по дисциплине Электроснабжение нетягового подвижного состава", который расположен в категории "". Всё это находится в предмете "дипломы и вкр" из 8 семестр, которые можно найти в файловом архиве ДВГУПС. Не смотря на прямую связь этого архива с ДВГУПС, его также можно найти и в других разделах. .
Онлайн просмотр документа "Для антиплагиата"
Текст 4 страницы из документа "Для антиплагиата"
A1.Caption:='0,715'; V2.Caption:='216'; A2.Caption:='0,020';
end;
if TrackBar1.SelEnd=5 then begin
A1.Caption:='0,736'; V2.Caption:='216'; A2.Caption:='0,023';
end;
if TrackBar1.SelEnd=6 then begin
A1.Caption:='0,748'; V2.Caption:='217'; A2.Caption:='0,025';
end;
if TrackBar1.SelEnd=7 then begin
A1.Caption:='0,761'; V2.Caption:='218'; A2.Caption:='0,027';
end;
if TrackBar1.SelEnd=8 then begin
A1.Caption:='0,775'; V2.Caption:='218'; A2.Caption:='0,029';
end;
if TrackBar1.SelEnd=9 then begin
A1.Caption:='0,790'; V2.Caption:='219'; A2.Caption:='0,032';
end;
if TrackBar1.SelEnd=10 then begin
A1.Caption:='0,816'; V2.Caption:='220'; A2.Caption:='0,036';
end;
if TrackBar1.SelEnd=11 then begin
A1.Caption:='0,828'; V2.Caption:='220'; A2.Caption:='0,038';
end;
if TrackBar1.SelEnd=12 then begin
A1.Caption:='0,842'; V2.Caption:='221'; A2.Caption:='0,041';
end;
if TrackBar1.SelEnd=13 then begin
A1.Caption:='0,851'; V2.Caption:='222'; A2.Caption:='0,044';
end;
if S2.Visible=false then begin
V1S2.Visible:=true; Button3.Enabled:=true;
V2S2.Visible:=true;
A1S2.Visible:=true;
A2S2.Visible:=true;
end;
if S2.Visible=true then begin
V1S2.Visible:=false; Button3.Enabled:=false;
V2S2.Visible:=false;
A1S2.Visible:=false;
A2S2.Visible:=false;
end;
if TrackBar1.SelEnd>0 then
V1S2.Caption:=IntToStr(TrackBar1.SelEnd+39)
else
V1S2.Caption:='39';
if TrackBar1.SelEnd=0 then begin
A1S2.Caption:='0,619'; V2S2.Caption:='211'; A2S2.Caption:='0,083';
end;
if TrackBar1.SelEnd=1 then begin
A1S2.Caption:='0,621'; V2S2.Caption:='213'; A2S2.Caption:='0,095';
end;
if TrackBar1.SelEnd=2 then begin
A1S2.Caption:='0,630'; V2S2.Caption:='213'; A2S2.Caption:='0,101';
end;
if TrackBar1.SelEnd=3 then begin
A1S2.Caption:='0,642'; V2S2.Caption:='214'; A2S2.Caption:='0,107';
end;
if TrackBar1.SelEnd=4 then begin
A1S2.Caption:='0,674'; V2S2.Caption:='215'; A2S2.Caption:='0,110';
end;
if TrackBar1.SelEnd=5 then begin
A1S2.Caption:='0,687'; V2S2.Caption:='215'; A2S2.Caption:='0,113';
end;
if TrackBar1.SelEnd=6 then begin
A1S2.Caption:='0,704'; V2S2.Caption:='216'; A2S2.Caption:='0,115';
end;
if TrackBar1.SelEnd=7 then begin
A1S2.Caption:='0,711'; V2S2.Caption:='217'; A2S2.Caption:='0,117';
end;
if TrackBar1.SelEnd=8 then begin
A1S2.Caption:='0,725'; V2S2.Caption:='217'; A2S2.Caption:='0,118';
end;
if TrackBar1.SelEnd=9 then begin
A1S2.Caption:='0,740'; V2S2.Caption:='218'; A2S2.Caption:='0,120';
end;
if TrackBar1.SelEnd=10 then begin
A1S2.Caption:='0,759'; V2S2.Caption:='219'; A2S2.Caption:='0,122';
end;
if TrackBar1.SelEnd=11 then begin
A1S2.Caption:='0,774'; V2S2.Caption:='220'; A2S2.Caption:='0,125';
end;
if TrackBar1.SelEnd=12 then begin
A1S2.Caption:='0,797'; V2S2.Caption:='220'; A2S2.Caption:='0,129';
end;
if TrackBar1.SelEnd=13 then begin
A1S2.Caption:='0,809'; V2S2.Caption:='221'; A2S2.Caption:='0,130';
end;
if S3.Visible=false then begin
V1S3.Visible:=true;
V2S3.Visible:=true; Button4.Enabled:=true;
A1S3.Visible:=true; Button2.Enabled:=false;
A2S3.Visible:=true;
end;
if S3.Visible=true then begin
V1S3.Visible:=false; Button4.Enabled:=false;
V2S3.Visible:=false;
A1S3.Visible:=false;
A2S3.Visible:=false;
end;
if TrackBar1.SelEnd>0 then
V1S3.Caption:=IntToStr(TrackBar1.SelEnd+38)
else
V1S3.Caption:='38';
if TrackBar1.SelEnd=0 then begin
A1S3.Caption:='0,639'; V2S3.Caption:='210'; A2S3.Caption:='0,125';
end;
if TrackBar1.SelEnd=1 then begin
A1S3.Caption:='0,641'; V2S3.Caption:='211'; A2S3.Caption:='0,125';
end;
if TrackBar1.SelEnd=2 then begin
A1S3.Caption:='0,650'; V2S3.Caption:='212'; A2S3.Caption:='0,127';
end;
if TrackBar1.SelEnd=3 then begin
A1S3.Caption:='0,662'; V2S3.Caption:='213'; A2S3.Caption:='0,130';
end;
if TrackBar1.SelEnd=4 then begin
A1S3.Caption:='0,683'; V2S3.Caption:='213'; A2S3.Caption:='0,133';
end;
if TrackBar1.SelEnd=5 then begin
A1S3.Caption:='0,699'; V2S3.Caption:='214'; A2S3.Caption:='0,135';
end;
if TrackBar1.SelEnd=6 then begin
A1S3.Caption:='0,714'; V2S3.Caption:='214'; A2S3.Caption:='0,137';
end;
if TrackBar1.SelEnd=7 then begin
A1S3.Caption:='0,726'; V2S3.Caption:='215'; A2S3.Caption:='0,139';
end;
if TrackBar1.SelEnd=8 then begin
A1S3.Caption:='0,731'; V2S3.Caption:='216'; A2S3.Caption:='0,142';
end;
if TrackBar1.SelEnd=9 then begin
A1S3.Caption:='0,756'; V2S3.Caption:='217'; A2S3.Caption:='0,144';
end;
if TrackBar1.SelEnd=10 then begin
A1S3.Caption:='0,765'; V2S3.Caption:='218'; A2S3.Caption:='0,145';
end;
if TrackBar1.SelEnd=11 then begin
A1S3.Caption:='0,776'; V2S3.Caption:='219'; A2S3.Caption:='0,147';
end;
if TrackBar1.SelEnd=12 then begin
A1S3.Caption:='0,799'; V2S3.Caption:='220'; A2S3.Caption:='0,151';
end;
if TrackBar1.SelEnd=13 then begin
A1S2.Caption:='0,810'; V2S3.Caption:='221'; A2S3.Caption:='0,153';
end;
if S4.Visible=false then begin
V1S4.Visible:=true;
V2S4.Visible:=true; Button5.Enabled:=true;
A1S4.Visible:=true; Button3.Enabled:=false;
A2S4.Visible:=true;
end;
if S4.Visible=true then begin
V1S4.Visible:=false; Button5.Enabled:=false;
V2S4.Visible:=false;
A1S4.Visible:=false;
A2S4.Visible:=false;
end;
if TrackBar1.SelEnd>0 then
V1S4.Caption:=IntToStr(TrackBar1.SelEnd+37)
else
V1S4.Caption:='37';
if TrackBar1.SelEnd=0 then begin
A1S4.Caption:='0,639'; V2S4.Caption:='209'; A2S4.Caption:='0,127';
end;
if TrackBar1.SelEnd=1 then begin
A1S4.Caption:='0,642'; V2S4.Caption:='210'; A2S4.Caption:='0,128';
end;
if TrackBar1.SelEnd=2 then begin
A1S4.Caption:='0,651'; V2S4.Caption:='211'; A2S4.Caption:='0,132';
end;
if TrackBar1.SelEnd=3 then begin
A1S4.Caption:='0,663'; V2S4.Caption:='212'; A2S4.Caption:='0,135';
end;
if TrackBar1.SelEnd=4 then begin
A1S4.Caption:='0,685'; V2S4.Caption:='212'; A2S4.Caption:='0,137';
end;
if TrackBar1.SelEnd=5 then begin
A1S4.Caption:='0,699'; V2S4.Caption:='213'; A2S4.Caption:='0,138';
end;
if TrackBar1.SelEnd=6 then begin
A1S4.Caption:='0,713'; V2S4.Caption:='214'; A2S4.Caption:='0,142';
end;
if TrackBar1.SelEnd=7 then begin
A1S4.Caption:='0,727'; V2S4.Caption:='214'; A2S4.Caption:='0,145';
end;
if TrackBar1.SelEnd=8 then begin
A1S4.Caption:='0,732'; V2S4.Caption:='216'; A2S4.Caption:='0,147';
end;
if TrackBar1.SelEnd=9 then begin
A1S4.Caption:='0,757'; V2S4.Caption:='216'; A2S4.Caption:='0,149';
end;
if TrackBar1.SelEnd=10 then begin
A1S4.Caption:='0,766'; V2S4.Caption:='217'; A2S4.Caption:='0,151';
end;
if TrackBar1.SelEnd=11 then begin
A1S4.Caption:='0,777'; V2S4.Caption:='218'; A2S4.Caption:='0,153';
end;
if TrackBar1.SelEnd=12 then begin
A1S4.Caption:='0,799'; V2S4.Caption:='219'; A2S4.Caption:='0,154';
end;
if TrackBar1.SelEnd=13 then begin
A1S4.Caption:='0,811'; V2S4.Caption:='220'; A2S4.Caption:='0,156';
end;
if S5.Visible=false then begin
Button4.Enabled:=false; TrackBar2.Position:=10;
A2S5.Visible:=true;
A2S4.Visible:=false;
end;
По техническим характеристикам инвертор ППБ-50 обладает мощностью 30 Вт. В программе используется активная нагрузка, состоящая из четырех ламп накаливания, мощностью 10 Вт каждая. При суммированной нагрузке равной 40 Вт, решено было сделать перегрузку инвертора и его автоматическое выключение из-за увеличивающегося тока. Эта процедура требовала отдельного компонента TTimer, с задержкой 100 мс, и скрытого элемента TTrackBar. Программный код данной операции выглядит таким образом:
procedure TForm3.Timer3Timer(Sender: TObject);
begin
if TrackBar2.Position>TrackBar2.SelEnd
then
begin
TrackBar2.SelEnd:=TrackBar2.SelEnd+1
end;
if TrackBar2.Position<TrackBar2.SelEnd
then
begin
TrackBar2.SelEnd:=TrackBar2.SelEnd-1;
end;
if TrackBar2.SelEnd=0 then begin
A2S5.Caption:='0,157';
end;
if TrackBar2.SelEnd=1 then begin
A2S5.Caption:='0,158';
end;
if TrackBar2.SelEnd=2 then begin
A2S5.Caption:='0,160';
end;
if TrackBar2.SelEnd=3 then begin
A2S5.Caption:='0,164';
end;
if TrackBar2.SelEnd=4 then begin
A2S5.Caption:='0,168';
end;
if TrackBar2.SelEnd=5 then begin
A2S5.Caption:='0,170';
end;
if TrackBar2.SelEnd=6 then begin
A2S5.Caption:='0,172';
end;
if TrackBar2.SelEnd=7 then begin
A2S5.Caption:='0,175';
end;
if TrackBar2.SelEnd=8 then begin
A2S5.Caption:='0,177';
end;
if TrackBar2.SelEnd=9 then begin
A2S5.Caption:='0,180';
end;
if TrackBar2.SelEnd=10 then begin
A2S5.Caption:='0,183';
S1off.Visible:=true;
S4.Visible:=true;
S3.Visible:=true;
A2S5.Visible:=false;
S5.Visible:=true;
TrackBar2.Position:=0;
end;
Для того, чтобы наблюдать за выходящим током, а именно, за синусоидой переменного тока, в программе предусмотрен осциллограф. Для открытия окна необходимо нажать на клавишу в рабочем окне «Осциллограф». На рисунке 1.11 изображено это окно.
Рисунок 1.11 – окно осциллографа в программе «Инвертор»
Запуск осциллографа возможен только тогда, когда замкнут ключ S1. Это окно показывает аналоговую синусоидальную кривую переменного тока, выходящего из инвертора ППБ-50. Изображение анимировано и полностью соответствует аналоговому сигналу. На рисунке 1.12 показано работающее устройство.
Рисунок 1.12 – Сигнал осциллографа программы «инвертор»
Программный код данной операции выглядит следующим образом:
procedure TForm4.Button1Click(Sender: TObject);
begin
ANI.Visible:=true;
ANI.Active:=true;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
ANI.Visible:=false;
ANI.Active:=false;
end;
1.3 Разработка приложения «Угольный регулятор напряжения»
1.3.1 Устройство и принцип работы угольного регулятора напряжения типа 64.01.18
Генератор, приводимый во вращение от оси колесной пары вагона, при всех режимах эксплуатации (переменная частота вращения и нагрузка) должен вырабатывать постоянное по величине напряжение. Для обеспечения этого служит автоматический регулятор напряжения, который, воздействуя на величину тока возбуждения, поддерживает напряжение генератора практически неизменным.
В системе электроснабжения вагонов с генератором продольного поля, в качестве регулируемого сопротивления в цепи обмотки возбуждения применяется угольный столб. Принцип работы регулятора основан на изменении сопротивления угольного столба, состоящего из большого числа угольных шайб и включаемого последовательно в цепь обмотки возбуждения генератора. Сопротивление угольного столба складывается из сопротивления самих шайб и переходного сопротивления в контакте между отдельными шайбами. На поверхностях шайб всегда имеются микронеровности, поэтому соприкосновение шайб происходит не по плоскости, а по отдельным точкам. При сжатии столба площадь соприкосновения между шайбами увеличивается, а переходное сопротивление уменьшается. Изменяя давление на столб, регулируют его полное сопротивление, а, следовательно, и ток возбуждения генератора.
Схема включения угольного регулятора напряжения генератора показана на рисунке 1.13.
Рисунок 1.13 - Схема включения угольного регулятора напряжения
При увеличении напряжения генератора G увеличивается ток в обмотке электромагнита 
. Электромагнитная система регулятора имеет сердечник 5 с обмоткой 6 и якорь 2. На якорь электромагнита действуют три основные силы: усилие электромагнита, направленное ему навстречу усилие пружины 3 и сила упругой деформации угольного столба. Якорь находится в равновесии, если сумма моментов, создаваемых этими силами, равна нулю.
При увеличении тока в обмотке электромагнита увеличивается магнитный поток в сердечнике электромагнита и якорь, преодолевая сопротивление пружины, поворачивается против часовой стрелки. Якорь связан рычажной системой с угольным столбом, который растягивается, сопротивление столба 
увеличивается, ток в обмотке возбуждения генератора падает. Поворот якоря происходит до тех пор, пока не наступит новое равновесие моментов. При уменьшении напряжения генератора происходит обратный процесс.
Изменять установленное напряжение генератора можно, регулируя натяжение пружины 3 при помощи специального винта 1.
Для повышения устойчивости работы регулятора применяется стабилизирующее устройство, выполненное в виде воздушного демпферауспокоителя 4.
При работе регулятора и при повышении температуры окружающей среды возрастает температура обмотки электромагнита, а значит и ее сопротивление. По этой причине электромагнитная сила притяжения якоря к сердечнику уменьшается, столб сжимается, напряжение генератора повышается. При понижении температуры напряжение генератора уменьшается. Для компенсации влияния температуры на работу регулятора в цепь обмотки электромагнита последовательно включается добавочный резистор Rt из константана или манганина. Его сопротивление практически не зависит от температуры. Величина Rt выбирается в несколько раз больше величины сопротивления обмотки, поэтому общее сопротивление цепи мало меняется при колебаниях температуры.
1.3.2 Разработка алгоритма и создание программного кода
