СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
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.
Популярное: Модели организации как закрытой, открытой, частично открытой системы: Закрытая система имеет жесткие фиксированные границы, ее действия относительно независимы... Генезис конфликтологии как науки в древней Греции: Для уяснения предыстории конфликтологии существенное значение имеет обращение к античной... Почему двоичная система счисления так распространена?: Каждая цифра должна быть как-то представлена на физическом носителе... Почему человек чувствует себя несчастным?: Для начала определим, что такое несчастье. Несчастьем мы будем считать психологическое состояние... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (180)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |