Поможем в ✍️ написании учебной работы

Имя

Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Выберите тип работыЧасть дипломаДипломная работаКурсовая работаКонтрольная работаРешение задачРефератНаучно - исследовательская работаОтчет по практикеОтветы на билетыТест/экзамен onlineМонографияЭссеДокладКомпьютерный набор текстаКомпьютерный чертежРецензияПереводРепетиторБизнес-планКонспектыПроверка качестваЭкзамен на сайтеАспирантский рефератМагистерская работаНаучная статьяНаучный трудТехническая редакция текстаЧертеж от рукиДиаграммы, таблицыПрезентация к защитеТезисный планРечь к дипломуДоработка заказа клиентаОтзыв на дипломПубликация статьи в ВАКПубликация статьи в ScopusДипломная работа MBAПовышение оригинальностиКопирайтингДругое

Нажимая кнопку "Продолжить", я принимаю политику конфиденциальности

 

1. Нормы и правила по охране труда при работах на подстанциях и ВЛ электропередачи напряжением 400, 500, 750 кВ переменного тока промышленной частоты. -М.: СЦНТИ ОРГРЭС, 1972. -11с. № 868-80.

2. ГОСТ 12.1.002.-75 - Общественные стандарты Союза СССР. Система стандартов и безопасности труда. Государственный комитет СССР по стандартам. -М.: Изд-во стандартов, 1979. -12 с.

3. Нормы и правила по охране труда при работах на подстанциях и ВЛ электропередачи напряжением 400, 500, 750 кВ переменного тока промышленной частоты. -М.: СЦНТИ ОРГРЭС, 1972. -11с.

4. Правила устройства электроустановок. Минэнерго СССР. - 6-е изд., перераб. и доп. - М.: Энергоатом издат., 1985. - 640 с.

5. CCБТ. Электрические поля промышленной частоты. Допустимые уровни напряженности и требования к проведению контроля на рабочих местах.

6. Санитарные нормы и правила защиты населения от воздействия электрического поля, создаваемого воздушными линиями электропередачи переменного тока промышленной частоты. Министерство здравоохранения СССР. -Москва, 1984 .

7. ГОСТ 12.1.051 – 90 - Электробезопасность. Расстояния безопасности в охранной зоне линий электропередачи напряжением свыше 1000 В. -Москва, 1990.

8. Санитарные нормы и правила выполнения работ в условиях воздействия электрических полей промышленной частоты (50 Гц). Министерство здравоохранения СССР. - Москва, 1991.

9. Санитарные правила и нормы. СанПиН 2.2.4.723-98.

10 . Отчет НИР. Программа рачета, результаты расчетов и измерений электрических и магнитных полей высоковольтных воздушных линий электропередачи. – М.: РАО ЕЭС России “Электросетьсервис”, 1999. -130 с.

11. Справочник по физике. Сост.: Б. М. Яворский, А. А. Детлаф. - М.: Наука, 1977. -942 с.

12. Справочник по сооружению линий электропередачи напряжением 35-750 кВ. Сост.: С. В. Крылов и др.: под ред. М. А. Реута. -М.: энергоатомиздат, 1990. - 496 с.

13. Кац Р. А., Пельман Л. С. Расчет электрического поля трехфазной линии электропередачи. Электричество. 1978. -16 с. №1.

14. Солдатов В.А., Постолатий В.М. Расчет и оптимизация параметров и режимов управляемых многопроводных линий. Кишинев: Изд. “Штиинца”, 1990. -240 с.

15. Солдатов В. А., Постолатий В. М. Расчет напряженности электрического поля в пространстве, окружающем линию электропередач. Изд. АН МССР. Сер. физ.-техн. и мат. наук, 1984. -73 с. №216. Отчет НИР “Пути улучшения электромагнитной обстановки вдоль трасс ВЛ”. Том №3. Часть 1. Экранирование электрических полей ВЛ СВН с помощью пассивных тросовых экранов. - М.: РАО ЕЭС России “Электросетьсервис”, 2000. -26 с.

17. Справочник по электроустановкам высокого напряжения. Энергоатомиздат. Под ред. И. А. Баумштейна и С. А. Бажанова. - Москва, 1989.

18. Фукс Б. А., Шабат В. В. Теория функций комплексного переменного и некоторые их приложения. -М.: Гос. изд. физ.-мат. лит-ры, 1959.- 242 с.

19. Водяников В.Т. Экономическая оценка средств электрификации и автоматизации сельскохозяйственного производства и систем сельской энергетики. Учебное пособие для студентов, аспирантов и специалистов сельской энергетики. – М.: МГАУ, 1997. -180 с.

ПРИЛОЖЕНИЕ

 

Программа расчета электрического поля трехфазной ЛЭП на языке Turbo Pascal.

 

program diplom;

uses crt,printer,graph;

const

{Eps0=8.85-12;}

con=1/(2*pi);

e=500;

c1='-------------------------------------------------------------------------------';

label

tabl;

var

st:integer;

g:array[1..2,1..e] of real;

x:array[1..3] of real; {массив координат проводников фаз}

y:array[1..3] of real; {массив координат проводников фаз}

Umod:array[1..3] of real;{массив модулей напряжений фаз}

Uarg:array[1..3] of real; {массив углов напряжений фаз}

Xm,Ym,r0:real; {координаты точки расчета и радиус проводников}

k,i,j:integer; {счетчики циклов}

Ur:array[1..3] of real; {массив действительной части комплексного напряжения}

Ui:array[1..3] of real; { массив мнимой части комплексного напряжения }

delta:array[1..3] of real; {промежуточная переменная}

delta1:array[1..3] of real;{ промежуточная переменная }

Cx:array[1..3] of real; { промежуточная переменная }

Cy:array[1..3] of real; { промежуточная переменная }

Exr,Eyr,Exi,Eyi,Ex,Ey:real;{действительная и мнимая части вертикальной и горизонтальной составляющих напряженности}

LK,LNA,DL:real;       {LK-конечная точка расчета, LN- начальная точка расчета, DL-шаг}

Exmod,Eymod,Fix,Fiy:real; {модули вертикальной и горизонтальной составляющих, фазы напряженности}

A,B,Tmax,Tmin,Emax,Emin,Emaxkor2,h:real;

nf,Kei:integer; {nf  число проводников в фазе}

DZ,D,rf,rekv:real;

 

procedure graphika;

var

grDriver: Integer;

grMode: Integer;

ErrCode: Integer;

begin

grDriver := Detect;

InitGraph(grDriver, grMode,'F:\BP\PROGI\D1\');

end;

 

begin

x[1]:=-11.5;x[2]:=0;x[3]:=11.5;y[1]:=8;y[2]:=8;y[3]:=8;

r0:=0.0124; rf:=0.088; nf:=3;

Umod[1]:=500; Umod[2]:=500; Umod[2]:=500;

Uarg[1]:=0; Uarg[2]:=120; Uarg[3]:=240;

h:=15; Xm:=0; Ym:=2;

LNA:=-20; LK:=20;

clrscr;

for i:=1 to 3 do

begin

Write('X',i,'=');

readln(x[i]);

Write('Y',i,'=');

readln(y[i]);

Write('Umod',i,'=');

readln(Umod[i]);

Write('Uarg',i,'=');

readln(Uarg[i]);

end;

Write('R0=');

readln(R0);

Write('Ln=');

readln(LNA);

Write('Lk=');

readln(LK);

Write('Y=');

readln(Ym);}

for i:=1 to 3 do

begin

Ur[i]:=Umod[i]*cos(Uarg[i]*Pi/180);

Ui[i]:=Umod[i]*sin(Uarg[i]*Pi/180);

writeln('Ur',i,'=',Ur[i]:10:10);

writeln('Ui',i,'=',Ui[i]:10:10);

end;

clrscr;

st:=round(e/15+0.5);

Xm:=1;

DL:=(LK-LNA)/(e-1);

for k:=1 to e do

begin

Xm:=LNA+(k-1)*DL;

DZ:=64/sqrt(50*0.0001);

for i:=1 to 3 do

begin

delta1[i]:=sqr(x[i]-Xm)+sqr(y[i]-Ym);

delta[i]:=sqr(x[i]-Xm)+sqr(y[i]+Ym+DZ);

Cx[i]:=(Xm-x[i])/delta1[i]-(Xm-x[i])/delta[i];

Cy[i]:=(Ym-y[i])/delta1[i]-(Ym+y[i]+DZ)/delta[i];

end;

Exr:=con*(Ur[1]*Cx[1]+Ur[2]*Cx[2]+Ur[3]*Cx[3]);

Exi:=con*(Ui[1]*Cx[1]+Ui[2]*Cx[2]+Ui[3]*Cx[3]);

Eyr:=con*(Ur[1]*Cy[1]+Ur[2]*Cy[2]+Ur[3]*Cy[3]);

Eyi:=con*(Ui[1]*Cy[1]+Ui[2]*Cy[2]+Ui[3]*Cy[3]);

Exmod:=sqrt(sqr(Exr)+sqr(Exi));

Eymod:=sqrt(sqr(Eyr)+sqr(Eyi));

Fix:=arctan(Exi/Exr);

Fiy:=arctan(Eyi/Eyr);

A:=sqr(Exmod)*cos(2*Fix)+sqr(Eymod*cos(2*Fiy));

B:=sqr(Exmod)*sin(2*Fix)+sqr(Eymod*sin(2*Fiy));

Tmax:=arctan((A+sqrt(sqr(A)+sqr(B)))/B);

Tmin:=arctan((A-sqrt(sqr(A)+sqr(B)))/B);

Emax:=sqrt(2)*(sqrt(sqr(Exmod)*sqr(sin(Tmax+Fix))+sqr(Eymod)*sqr(sin(Tmax+Fiy))));

Emin:=sqrt(2)*(sqrt(sqr(Exmod)*sqr(sin(Tmin+Fix))+sqr(Eymod)*sqr(sin(Tmin+Fiy))));

Emaxkor2:=Emax/sqrt(2);

 

g[1,k]:=Xm;

g[2,k]:=Emaxkor2;

---------------------------------

writeln('Exr=',Exr:20:20);

writeln('Exi=',Exi:20:20);

writeln('Eyr=',Eyr:20:20);

writeln('Eyi=',Eyi:20:20);

writeln('Exmod=',Exmod:20:20);

writeln('Eymod=',Eymod:20:20);

writeln('Fix=',Fix:20:20);

writeln('Fiy=',Fiy:20:20);

writeln('A=',A:2);

writeln('B=',B:20:20);

writeln('Tmax=',Tmax:20:20);

writeln('Tmin=',Tmin:20:20);

writeln('Emax/koren iz 2=',Emaxkor2:20:20);

readln;

---------------------------------

 

if k>1 then goto tabl;

clrscr;

writeln('Rashet elektricheskogo polia na visote',Ym:2:2,'m ot zemli.');

writeln('');

writeln(c1);

writeln('| X | Emax | Emin | Emax/koren iz 2 | Ex | Ey |');

writeln('| m | kV/m | kV/m |   kV/m | kv/m | kV/m |');

writeln(c1);

tabl:

if k mod st =0 then

writeln('| ',Xm:9:3,' | ',Emax:9:3,' | ',Emin:9:3,' | ',Emaxkor2:15:3,' | ',Exmod:9:3,' | ',Eymod:9:3,' |');

end;

writeln(c1);

writeln('Konec rascheta.');

readln;

 

----------------------------------------------------------------

graphika;

setcolor(13);

line(round(g[1,1]*15+getmaxx/2),round(getmaxy/2)+180,round(20*15+getmaxx/2)+15,round(getmaxy/2)+180);

line(round(g[1,1]*15+getmaxx/2),round(-10*12+getmaxy/2)+180,round(20*15+getmaxx/2),round(-10*12+getmaxy/2)+180);

line(round(g[1,1]*15+getmaxx/2),round(-20*12+getmaxy/2)+180,round(20*15+getmaxx/2),round(-20*12+getmaxy/2)+180);

line(round(g[1,1]*15+getmaxx/2),round(-30*12+getmaxy/2)+180,round(20*15+getmaxx/2),round(-30*12+getmaxy/2)+180);

 

setcolor(14);

outtextxy(round(g[1,1]*15+getmaxx/2),round(getmaxy/2)+167,'0 kV/m');

outtextxy(round(g[1,1]*15+getmaxx/2),round(-10*12+getmaxy/2)+167,'10 kV/m');

outtextxy(round(g[1,1]*15+getmaxx/2),round(-20*12+getmaxy/2)+167,'20 kV/m');

outtextxy(round(g[1,1]*15+getmaxx/2),round(-30*12+getmaxy/2)+167,'30 kV/m');

 

setcolor(13);

line(round(g[1,1]*15+getmaxx/2),round(getmaxy/2)+180,round(g[1,1]*15+getmaxx/2),round(-30*12+getmaxy/2)+165);

line(round((g[1,1]+10)*15+getmaxx/2),round(getmaxy/2)+180,round((g[1,1]+10)*15+getmaxx/2),round(-30*12+getmaxy/2)+180);

line(round((g[1,1]+20)*15+getmaxx/2),round(getmaxy/2)+180,round((g[1,1]+20)*15+getmaxx/2),round(-30*12+getmaxy/2)+180);

line(round((g[1,1]+30)*15+getmaxx/2),round(getmaxy/2)+180,round((g[1,1]+30)*15+getmaxx/2),round(-30*12+getmaxy/2)+180);

line(round((g[1,1]+40)*15+getmaxx/2),round(getmaxy/2)+180,round((g[1,1]+40)*15+getmaxx/2),round(-30*12+getmaxy/2)+180);

 

setcolor(14);

outtextxy(round((g[1,1]+10)*15+getmaxx/2),round(getmaxy/2)+183,'-10');

outtextxy(round((g[1,1]+20)*15+getmaxx/2),round(getmaxy/2)+183,'0');

outtextxy(round((g[1,1]+30)*15+getmaxx/2),round(getmaxy/2)+183,'10');

outtextxy(round((g[1,1]+40)*15+getmaxx/2),round(getmaxy/2)+183,'20');

outtextxy(round((g[1,1])*15+getmaxx/2),round(getmaxy/2)+183,'-20');

 

setcolor(15);

for i:=2 to e do

line(round(g[1,i-1]*15+getmaxx/2),round(-g[2,i-1]*12+getmaxy/2)+180,round(g[1,i]*15+getmaxx/2),

round(-g[2,i]*12+getmaxy/2)+180);

readkey;

closegraph;

end.