Поиск

Подписка

Работает на Drupal, система с открытым исходным кодом.

Вход в систему

Новенькие

  • Admin

Сейчас на сайте

Сейчас на сайте 0 users и 0 guests.

Программа.

Программа.

В данной работе была исследована опасность поражения током в трехфазных сетях с изолированной нейтралью при уменьшении сопротивления изоляции. На основании анализа математических формул и статистической информации была выяснена необходимость не периодического, а постоянного контроля сопротивления изоляции в сетях с изолированной нейтралью, особенно актуальным этот вопрос является в карьерных распределительных сетях напряжением 6-10 кВ.<!--more--> Именно для данных сетей была разработана система автоматического контроля, позволяющая вести непрерывный контроль сопротивления изоляции.

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

Выбор персонального компьютера также обусловлен требованиями, предъявляемыми разработанным специальным программным обеспечением (С++ Builder).

При анализе технико-экономической эффективности разработанной системы выявлено, что экономическая эффективность составляет 3779.49 долларов США, а сама система окупается за 1.2 года; для систем автоматического контроля этот показатель является одним из наиболее высоких.

 

Текст программы контроля за состоянием изоляции.

 

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

# include <vcl\\vcl.h>

# pragma hdrstop

 

# include “primer1.h”

# include “prim2.h”

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

# pragma resource “*.dfm”

Tform1 *Form1;

<!--more-->

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

_____fastcall TForm1:: TForm1 (Tcomponent* Owner)

: Tform (Owner)

{

}

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

void _____ fastcall TForm:: Button 1 Click (Tobjekt*Sender)

{

Form1 -> Close( )

}

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

void _____ fastcall TForm:: Button 2 Click (Tobjekt*Sender)

}

int n;

double I1, I2, I3, LinU1, LinU2, LinU3, FasU1, FasU2, FasU3, NNP, g0, g1,g2,g3;

Timer 1-> Enabled = true;

char d[10];

FILE *gaz;

n++;

gaz=foren(“NAMES/TXT”,”rt”);

fgets (LinU1, 4, gaz);

fgets (FasU1, 4, gaz);

fgets (LinU2, 4, gaz);

fgets (FasU2, 4, gaz);

fgets (LinU3, 4, gaz);

fgets (FasU3, 4, gaz);

fgets (NNP, 4, gaz);

g0=1000;

g1=((LinU1*LinU1-3*FasU1-NNP*NNP)*0.5*g0/(NNP*NNP));

g2=((LinU2*LinU2-3*FasU2-NNP*NNP)*0.5*g0/(NNP*NNP));

g3=((LinU3*LinU3-3*FasU3-NNP*NNP)*0.5*g0/(NNP*NNP));

I1=LinU1*FasU1*NNP/g0;

I2=LinU2*FasU2*NNP/g0;

I3=LinU3*FasU3*NNP/g0;

ListBox 1-> Items ->Add(g1);

ListBox 2-> Items ->Add(g2);

ListBox 3-> Items ->Add(g3);

If(n= =100)

{

fclose(gaz);

}

}

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

void _____ fastcall Tform1:: Button3 Click (Tobjekt*Sender)

{

Timer 1-> Enabled = false;

}

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

void _____ fastcall Tform1:: Button4 Click (Tobjekt*Sender)

{

Form2->Show( );

}

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