samiit106
.pdf
Коэффициенты использования ηг.п. параллельно уложенных горизонтальных полосовых электродов группового заземлителя (ширина полосы L=20÷40 мм;
глубина заложения tо=0,3-0,8 м) (рис. 4, в)
Длина |
Число |
Расстояние между параллельными полосами, м |
|||||||
каждой |
параллельных |
|
|
|
|
|
|
||
1 |
2,5 |
5 |
10 |
15 |
|||||
полосы (м) |
полос |
||||||||
|
|
|
|
|
|
||||
15 |
2 |
0,63 |
0,75 |
0,83 |
0,92 |
0,96 |
|||
|
5 |
0,37 |
0,49 |
0,60 |
0,73 |
0,79 |
|||
|
10 |
0,25 |
0,37 |
0,49 |
0,64 |
0,72 |
|||
|
20 |
0,16 |
0,27 |
0,39 |
0,57 |
0,64 |
|||
25 |
5 |
0,35 |
0,45 |
0,55 |
0,66 |
0,73 |
|||
|
10 |
0,23 |
0,31 |
0,43 |
0,57 |
0,66 |
|||
|
20 |
0,14 |
0,23 |
0,33 |
0,47 |
0,57 |
|||
50 |
2 |
0,60 |
0,69 |
0,78 |
0,88 |
0,93 |
|||
|
5 |
0,33 |
0,40 |
0,48 |
0,58 |
0,65 |
|||
|
10 |
0,20 |
0,27 |
0,35 |
0,46 |
0,53 |
|||
|
20 |
0,12 |
0,19 |
0,25 |
0,36 |
0,44 |
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Рис. 4. Пример схемы размещения заземлителей при контурном заземлении
ЗАДАНИЕ
В целях защиты от поражения электрическим током необходимо заземлить электрооборудование, питающееся от низковольтного щита подстанции. Электрическая сеть с изолированной нейтралью с напряжением 380/220 В.
Исходные данные |
|
|
|
|
Вариант |
|
|
|
|
|
|
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
0 |
Климатическая зона |
I |
II |
III |
IV |
I |
II |
III |
IV |
I |
II |
Глубина заложения заземлителя от |
|
95 |
90 |
85 |
80 |
75 |
70 |
75 |
80 |
85 |
поверхности земли, м |
100 |
|||||||||
Длина вертикального электрода, см |
240 |
245 |
250 |
255 |
260 |
265 |
270 |
275 |
280 |
285 |
Наружный диаметр электрода, см |
5 |
6 |
5 |
6 |
5 |
6 |
5 |
6 |
5 |
6 |
Род грунта |
п |
с |
г |
ч |
г |
т |
п |
с |
г |
ч |
|
е |
у |
л |
е |
р |
р |
е |
у |
л |
е |
|
с |
г |
и |
р |
а |
ф |
с |
г |
и |
р |
|
о |
л |
н |
н |
в |
|
о |
л |
н |
н |
|
к |
и |
а |
о |
и |
|
к |
и |
а |
о |
|
|
н |
|
з |
й |
|
|
н |
|
з |
|
|
о |
|
е |
|
|
|
о |
|
е |
|
|
к |
|
м |
|
|
|
к |
|
м |
Расчет заземления можно произвести с помощью ЭВМ. Ниже представлена программа,
написанная на языке программирования СИ ++ для расчета заземления электрооборудования.
Модуль unit1.cpp “Ввод исходных данных”
//---------------------------------------------------------------------------
#include <vcl.h> #include "unit3.h" #include <math.h> #pragma hdrstop
#include "Unit1.h" //---------------------------------------------------------------------------
#pragma package(smart_init) #pragma resource "*.dfm"
TForm1 *Form1; //---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void SezonyPovKoef()
//Расчет сезонного повышающего коефициента и вывод его в граф. форму
{
float SezKoefTab[4][4]={{1.65,1.45,1.3,1.1}, {1.35,1.25,1.15,1.1}, {5.5,3.5,2.5,1.5}, {4.5,3.0,2.0,1.4}};
Form1->sezkoef=SezKoefTab[Form1->klim_zone-1][Form1->electrode_type-1]; Form1->k=Form1->sezkoef; Form1->Label4->Caption=FloatToStrF(Form1->sezkoef,ffNumber,3,2);
}; //------------------------------------------------------------------------------
//Выбор климатической зоны
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
klim_zone=1; SezonyPovKoef();
}
//------------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
klim_zone=2;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
klim_zone=3;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton4Click(TObject *Sender)
{
klim_zone=4;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton5Click(TObject *Sender)
{
electrode_type=1;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton6Click(TObject *Sender)
{
electrode_type=2;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton7Click(TObject *Sender)
{
electrode_type=3;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton8Click(TObject *Sender)
{
electrode_type=4;SezonyPovKoef();
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
r_itr=(r_s*rs)/(r_s-rs); Form3->Label14->Caption=FloatToStrF(r_itr,ffNumber,3,2); Form1->Hide(); Form3->Show();
}
//---------------------------------------------------------------------------
// Зауск файла справки
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WinExec("write.exe helpfile.rtf",SW_MAXIMIZE);
}
//---------------------------------------------------------------------------
-----------------------------------------------------------------------------
Модуль unit2.cpp “Расчет”
//---------------------------------------------------------------------------
#include <vcl.h>
#include "unit1.h" #include "unit3.h" #include <math.h> #pragma hdrstop
#include "Unit5.h" //---------------------------------------------------------------------------
#pragma package(smart_init) #pragma resource "*.dfm" TForm5 *Form5;
int zazem_type; AnsiString type_script; int zazem_h_type=1; int zazem_v_type=1; // 0 -vert 1-horiz
float r;
void TForm5::SetActive(char a,char b,char c,char d,char e,char f)
{
Edit1->Enabled=a;Edit2->Enabled=b;
Edit3->Enabled=c;Edit4->Enabled=d;
Edit5->Enabled=e;Edit6->Enabled=f;
if (a==1) Edit1->Color=clWhite; else Edit1->Color=clGray; if (a==1) Edit2->Color=clWhite; else Edit2->Color=clGray; if (a==1) Edit3->Color=clWhite; else Edit3->Color=clGray; if (a==1) Edit4->Color=clWhite; else Edit4->Color=clGray; if (a==1) Edit5->Color=clWhite; else Edit5->Color=clGray; if (a==1) Edit6->Color=clWhite; else Edit6->Color=clGray; };
void TForm5::Calculate() |
|
|
{ |
|
|
float d=StrToFloat(Form5->Edit3->Text), |
|
|
D=StrToFloat(Form5->Edit2->Text), |
|
|
t=StrToFloat(Form5->Edit4->Text), |
|
|
a=StrToFloat(Form5->Edit5->Text), |
|
|
b=StrToFloat(Form5->Edit6->Text), |
|
|
L=StrToFloat(Form5->Edit1->Text), |
|
|
ro=Form1->ro; |
|
|
Form1->ro_ras=ro*Form1->k; |
|
|
switch (zazem_type) |
|
|
{ |
|
|
case 1: r=ro/(M_PI*d); |
break; |
|
case 2: r=(ro/(2*M_PI*d))*(1+(D/4*t)); |
break; |
|
case 3: r=(ro/(2*M_PI*L))*log((4*L)/d); |
break; |
|
case 4: r=(ro/(2*M_PI*L))*(log((2*L)/(d+(1/2)))*log((4*t+L)/(4*t-L))); break;
case 5: r=(ro/(M_PI*L))*log((2*L)/d); |
break; |
case 6: r=(ro/(2*M_PI*L))*log((L*L)/(d*t));break; |
|
case 7: r=(ro/(2*M_PI*M_PI*D))*log((8*D)/d); break;
case 8: r=(ro/2*M_PI*M_PI*D)*log((4*M_PI*D*D)/(d*t)); break;
case 9: r=ro/(2*D); |
break; |
case 10:r=ro/(2*D); |
break; |
case 11:r=ro/(4*sqrt(a*b)); |
break; |
} |
|
r=abs(r);
if (Form5->zazem==0) Form3->Label11->Caption=FloatToStrF(r,ffNumber,3,2); else Form3->Label12->Caption=FloatToStrF(r,ffNumber,3,2);
if (Form5->zazem==0) Form3->Label6->Caption=type_script; else Form3->Label8->Caption=type_script;
if (Form5->zazem==0) zazem_v_type=zazem_type; else zazem_h_type=zazem_type;
Form1->r_itr=(Form1->r_s*Form1->rs)/(Form1->r_s-Form1->rs); if (Form5->zazem==0) Form1->r_vert=r; else Form1->r_horiz=r;
}; //---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner) : TForm(Owner)
{
zazem_type=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton9Click(TObject *Sender)
{
SetActive(0,0,1,0,0,0); Label5->Caption="R=p/(pi*d)"; type_script="Полушаровой у поверх."; zazem_type=1; Image1->Picture->LoadFromFile("im1.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton10Click(TObject *Sender)
{
SetActive(0,0,1,1,0,0); Label5->Caption="R=(p/(2*pi*d))*(1+d/(4*t))"; type_script="Шаровой в земле"; zazem_type=2; Image1->Picture->LoadFromFile("im2.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton11Click(TObject *Sender)
{
SetActive(1,0,1,0,0,0); Label5->Caption="R=p/((2*pi*L))*ln(4*L)/d"; type_script="Трубчатый у поверх."; zazem_type=3; Image1->Picture->LoadFromFile("im3.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton12Click(TObject *Sender)
{
SetActive(1,0,1,1,0,0); Label5->Caption="R=(p/(2*pi*L))*(ln*(2*L)/d+(1/2)*ln(4t+L)/(4t-L)))"; type_script="Трубч. в земле";
zazem_type=4; Image1->Picture->LoadFromFile("im4.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton13Click(TObject *Sender)
{
SetActive(1,0,1,0,0,0); Label5->Caption="R=(p/(pi*L))*ln((2*L)/d)"; type_script="Протяженный на пов."; zazem_type=5; Image1->Picture->LoadFromFile("im5.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton14Click(TObject *Sender)
{
SetActive(1,0,1,1,0,0); Label5->Caption="R=(p/(2*pi*L))*ln((L*L)/(d*t)"; type_script="Протяж. в земле";
zazem_type=6; Image1->Picture->LoadFromFile("im6.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton15Click(TObject *Sender)
{
SetActive(0,1,1,0,0,0); Label5->Caption="R=(p/(2*pi*pi*D))*ln((8*D)/d)"; type_script="Кольцев. на поверх.";
zazem_type=7; Image1->Picture->LoadFromFile("im7.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton16Click(TObject *Sender)
{
SetActive(0,1,1,1,0,0); Label5->Caption="R=(p/(2*pi*pi*D))*ln((4*pi*D*D)/(d*t))"; type_script="Кольцевой в земле.";
zazem_type=8; Image1->Picture->LoadFromFile("im8.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton17Click(TObject *Sender)
{
SetActive(0,1,0,0,0,0); Label5->Caption="R=p/(2*D)"; type_script="Кругл. пласт. на поверх."; zazem_type=9; Image1->Picture->LoadFromFile("im9.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton18Click(TObject *Sender)
{
SetActive(0,1,0,1,0,0); Label5->Caption="R=p/(2*D)"; type_script="Кругл. пласт в земле."; zazem_type=10; Image1->Picture->LoadFromFile("im10.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton19Click(TObject *Sender)
{
SetActive(0,0,0,0,1,1); Label5->Caption="R=p/(4*sqrt(a*b))"; type_script="Пластин. в земле"; zazem_type=11; Image1->Picture->LoadFromFile("im11.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
Calculate(); Form5->Hide(); Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button2Click(TObject *Sender)
{
WinExec("write.exe helpfile.rtf",SW_MAXIMIZE);
}
//---------------------------------------------------------------------------
Библиографический список
1.Безопасность жизнедеятельности: Учебное пособие. 4-е изд. /Под ред. О.Н..Русака.: СПб.:Издательсво “Лань”,2001.-448с.
2.Инженерные расчеты систем безопасности труда и промышленной экологии /Под ред.А.Ф.Борисова.:Издательство “Вента-2”,2000.-255с.
3.Охрана труда в грузовом хозяйстве железных дорог /В.И. Бекасов, Н.Е. Лысенко, В.А. Муратов и др. – М.: Транспорт, 1984. -182с.
4.ГОСТ 12.1.030-81*ССБТ “Электробезопасность. Защитное заземление, зануление”