(Luận văn thạc sĩ) lựa chọn sơ đồ treo dây chống sét cho đường dây truyền tải nhằm nâng cao hiệu quả kinh tế

112 6 0
(Luận văn thạc sĩ) lựa chọn sơ đồ treo dây chống sét cho đường dây truyền tải nhằm nâng cao hiệu quả kinh tế

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

-0- BỘ GIÁO DỤC VÀ ĐÀO TẠO ĐẠI HỌC ĐÀ NẴNG _ _ LÊ VĂN NGHIỆP LỰA CHỌN SƠ ĐỒ TREO DÂY CHỐNG SÉT CHO ĐƢỜNG DÂY TRUYỀN TẢI NHẰM NÂNG CAO HIỆU QUẢ KINH TẾ LUẬN VĂN THẠC SỸ KỸ THUẬT Đà Nẵng - Năm 2005 -1- BỘ GIÁO DỤC VÀ ĐÀO TẠO ĐẠI HỌC ĐÀ NẴNG _ LÊ VĂN NGHIỆP LỰA CHỌN SƠ ĐỒ TREO DÂY CHỐNG SÉT CHO ĐƢỜNG DÂY TRUYỀN TẢI NHẰM NÂNG CAO HIỆU QUẢ KINH TẾ Chuyên ngành: MẠNG & HỆ THỐNG ĐIỆN Mã số : 60.52.50 LUẬN VĂN THẠC SỸ KỸ THUẬT Ngƣời hƣớng dẫn khoa học:T.S Ngô Văn Dƣỡng Đà Nẵng - Năm 2005 -2- Lời cam đoan Tôi xin cam đoan, cơng trình nghiên cứu riêng Các số liệu kết luận án trung thực Kết nội dung đề tài chưa công bố, chưa trình bày cơng trình Tác giả Lê Văn Nghiệp -3- Lời cảm ơn Để hoàn thành luận văn này, nổ lực thân, tác giả nhận quan tâm giúp đỡ quý thầy cô, bạn bè đồng nghiệp quan đơn vị công tác Tác giả xin tỏ lịng biết ơn đến Tiến sĩ Ngơ Văn Dưỡng, người trực tiếp hướng dẫn đề tài, đến quý thầy cô giáo khoa Điện, Đại Học Bách Khoa Đà Nẵng, Đại Học Bách Khoa Hà Nội, Viện Năng Lượng-EVN tận tình giúp đỡ, đóng góp ý kiến, suốt q trình nghiên cứu học tập, thực luận văn Tác giả xin cảm ơn Lảnh đạo, đồng nghiệp Trung Tâm Thiết Kế Điện giúp đỡ tạo điều kiện tốt để tác giả có đủ điều kiện học tập, nghiên cứu hoàn thành luận văn Xin Chân thành cảm ơn Ban Giám Đốc Đại Học Đà Nẵng, Ban NCKH & Đào tạo sau đại học, Bộ môn Hệ thống điện, khoa Điện trường Đại Học Bách Khoa Đà Nẵng tạo điều kiện cho tác giả hoàn thành luận văn  -4- Mục lục Trang Trang bìa Phụ bìa 01 Lời cam đoan 02 Lời cảm ơn 03 Mục lục 04 Ký hiệu từ viết tắt 09 Phần mở đầu 10 Lý chọn đề tài 11 Đối tượng phạm vi nghiên cứu 13 Mục tiêu nhiệm vụ nghiên cứu 13 Tên đề tài 14 Cấu trúc luận văn 15 Chƣơng 1: Tổng quan chống sét cho ĐD tải điện 17 1.1 Đặt vấn đề 17 1.2 Bảo vệ chống sét 20 1.2.1 Mở đầu 20 1.2.2 Các thiết bị phạm vi bảo vệ chống sét 21 1.2.2.1 Phạm vi bảo vệ cột thu sét 22 1.2.2.2 Phạm vi bảo vệ hai nhiều cột thu sét 22 1.2.2.3 Phạm vi bảo vệ dây thu sét 23 1.2.3 Bảo vệ chống sét đường dây tải điện 24 1.2.3.1 Yêu cầu chung 24 1.2.3.2 Quá điện áp cảm ứng 25 1.2.3.3 Sét đánh đường dây không treo DCS 25 -5- 1.2.3.4 Sét đánh đường dây có treo DCS 26 1.3 Một số giả thiết giới hạn nghiên cứu 26 1.4 Kết luận 26 Chƣơng 2: Cơ sở tính tốn suất cắt điện đƣờng dây 2.1 Mở đầu 28 28 2.1.1 Một số sơ đồ cột đường dây 28 2.1.1.1 Đối với đường dây mạch 28 2.1.1.2 Đối với đường dây mạch 29 2.1.2 Số lần sét đánh vào đường dây 2.2 Số lần điện sét đánh vòng vào dây dẫn nv 31 32 2.2.1 Xác suất sét đánh vòng vào dây dẫn 32 2.2.2 Xác suất phóng điện tr6n cách điện 33 2.2.3 Số lần điện sét đánh trực tiếp vào đường dây 34 2.3 Số lần điện sét đánh vào đỉnh cột nc 2.3.1 Điện áp cách điện 35 35 2.3.1.1 Thành phần điện điện áp cảm ứng 36 2.3.1.2 Tính thành phần 1/a.ic(t) 1/a.dic/dt 38 2.3.1.3 Tính thành phần 1/a.K.Ucs(t) 40 2.3.2 Tính hàm Z(t) 40 2.3.3 Tính độ dốc nguy hiểm dịng điện sét a(t) 41 2.3.4 Tính biên độ dịng điện sét nguy hiểm Ii 42 2.3.5 Tính xác suất phóng điện chuỗi sứ 42 2.3.6 Suất cắt điện sét đánh đỉnh cột 43 2.4 Số lần điện sét đánh vào khoảng vƣợt nkv 2.4.1 Phóng điện khoảng cách khơng khí MM’ 43 44 2.4.1.1 Xác suất hình thành hồ quang phóng điện 44 2.4.1.2 Xác suất phóng điện khơng khí 44 -6- 2.4.2 Phóng điện chuỗi sứ sóng truyền đến cột điện 45 2.4.2.1 Điện áp tác dụng lên chuỗi sứ 45 2.4.2.2 Tính xác suất phóng điện chuỗi sứ 45 2.4.3 Tính xác suất phóng điện trường hợp sét đánh khoảng vượt 46 2.5 Suất cắt điện tổng sét đánh đƣờng dây 46 2.6 Kết luận 46 Chƣơng 3: Xác định hàm chi phí tính toán 47 3.1 Các thành phần chủ yếu hàm chi phí 47 3.2 Xác định chi phí xây dựng ban đầu (C) 48 3.3 Xác định chi phí đền bù thiết hại cho khách hàng (H) 53 3.4 Xác định chi phí tu bảo dƣỡng TB đóng cắt (G) 55 3.5 Xác định hàm chi phí tính tốn (Z) 56 3.6 Kết luận 57 Chƣơng 4: Xây dựng chƣơng trình tính tốn lựa chọn sơ đồ treo dây chống sét 4.1 Tính tốn suất cắt điện đƣờng dây tải điện 58 58 4.1.1 Sơ đồ tính tốn 58 4.1.2 Giới thiệuchương trình tíanh tốn 60 4.1.2.1 Trong cửa sổ F1: Data 61 4.1.2.2 Trong cửa sổ F2: Help 62 4.1.2.3 Trong cửa sổ F3:Calculators 62 4.1.2.4 Trong cửa sổ F4: Result 62 4.1.2.5 Trong cửa sổ F5: Author 63 4.1.2.6 Trong cửa sổ F6: Exit 63 4.2 Tính toán lựa chọn phƣơng án treo dây chống sét 63 4.2.1 Cơ sở tính tốn 63 -7- 4.2.2 Sơ đồ thuật tốn 63 4.2.3 Giới thiệu chương trình 65 4.2.3.1 Trong cửa sổ F1: Data 65 4.2.3.2 Trong cửa sổ F2-F3-F4-F5-F6 65 4.3 Ví dụ minh họa 66 4.4 Ứng dụng chƣơng trình để khảo sát hàm chi phí Z 67 4.4.1 Khảo sát hàm chi phí Z theo chiều dài khoảng cột Lkv 67 4.4.2 Khảo sát hàm chi phí Z theo cơng suất truyền tải P 4.5 Kết luận 68 69 Chƣơng 5: Áp dụng tính tốn cho cơng trình thực tế 71 5.1 Ứng dụng để tính cho cơng trình đƣờng dây 110kV Bình Chánh- Quảng Ngãi 71 5.1.1 Đặc điểm cơng trình 71 5.1.2 Tính chi phí vật liệu-nhân cơng-máy thi cơng 73 5.1.3 Sử dụng chương trình để tính tốn chọn phương án 77 5.1.4 Khảo sát ảnh hưởng tham số đến kết lựa chọn phương án 78 5.1.4.1 Khảo sát thay đổi hàm chi phí Z theo thay đổi tham số P 78 5.1.4.2 Khảo sát thay đổi hàm chi phí Z theo thay đổi tham số Lkv 79 5.2 Ứng dụng để tính cho cơng trình đƣờng dây 110kV Quận – An Đồn 80 5.2.1 Đặc điểm cơng trình 80 5.2.2 Tính chi phí vật liệu-nhân cơng-máy thi cơng 81 5.2.3 Sử dụng chương trình để tính tốn chọn phương án 82 5.3 Kết luận 84 -8- Phần kết luận 85 Các kết đạt đề tài 85 Hướng mở rộng đề tài 86 Kết luận kiến nghị 86 Tài liệu tham khảo 88 Phụ lục 89 -9- KÝ HIỆU CÁC TỪ VIẾT TẮT EVN: Tổng Công Ty Điện Lực Việt Nam ĐDK: Đường dây truyền tải không DCS : Dây chống sét TĐL : Tự động đóng lặp lại (* Tinh toan suat cat *) Procedure Tinhtoan; BEGIN repeat clrscr; textcolor(11); Gotoxy(20,10);Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»'); Gotoxy(20,11);Writeln('º TEN FILE TINH TOAN : º'); Gotoxy(20,12);Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ'); Gotoxy(44,11);readln(S); while pos(' ',s)>0 delete(s,pos(' ',s),1); while pos(';;',s)>0 delete(s,pos(';;',s),1); if s[length(s)]=';' then delete(s,length(s),1); until s''; i:=1; while pos(';',s)>0 begin filename[i]:=copy(s,1,pos(';',s)-1); if sott=4 then begin if pos('.',filename[i])=0 then filename[i]:=filename[i]+'.KQ'; end else if pos('.',filename[i])=0 then filename[i]:=filename[i]+'.INP'; delete(s,1,pos(';',s)); inc(i); end; if s'' then begin filename[i]:=s; if sott=4 then begin if pos('.',filename[i])=0 then filename[i]:=filename[i]+'.KQ'; end else if pos('.',filename[i])=0 then filename[i]:=filename[i]+'.INP'; end; (* Loc bot cac File trung ten *) if i>1 then begin for k:=1 to i-1 begin if filename[k]'' then begin for j2:=k+1 to i if filename[k]=filename[j2] then filename[j2]:=''; end; end; end; (* *) if i>1 then begin k:=0; for j2:=1 to i if filename[j2]'' then begin inc(k); filename[k]:=filename[j2]; end; i:=k; end; k:=0; gotoxy(1,wherey+1); for j:=1 to i (* Loc bot cac File Khong mo duoc *) begin assign(_f,filename[j]); {$I-} reset(_f); {$I+} if IORESULT=0 then begin inc(k); filename[k]:=filename[j]; close(_f); end else begin textcolor(4); write('Khong tim thay File '); textcolor(10); writeln(filename[j]); delay(700); filename[j]:=''; end; end; if k=0 then exit; i:=k; if sott=3 then begin Gotoxy(1,15); for j:=1 to i begin Fxuat:=copy(filename[j],1,pos('.',filename[j])) +'KQ'; assign(_f,Fxuat); rewrite(_f); DOCSL(filename[j]); TONG_CHI_PHI1; TONG_CHI_PHI2; close(_f); textcolor(10);Gotoxy(22,14); writeln('Da Tinh Toan xong File ',filename[j],' '); delay(400); end; delay(1000); end; END; (* Hien SL da Tinh Toan *) Procedure KETQUA; BEGIN repeat clrscr; textcolor(11); Gotoxy(20,10);Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»'); Gotoxy(20,11);Writeln('º TEN FILE KET QUA : º'); Gotoxy(20,12);Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ'); Gotoxy(42,11);readln(S); while pos(' ',s)>0 delete(s,pos(' ',s),1); while pos(';;',s)>0 delete(s,pos(';;',s),1); if s[length(s)]=';' then delete(s,length(s),1); until s''; i:=1; while pos(';',s)>0 begin filename[i]:=copy(s,1,pos(';',s)-1); if sott=4 then begin if pos('.',filename[i])=0 then filename[i]:=filename[i]+'.KQ'; end else if pos('.',filename[i])=0 then filename[i]:=filename[i]+'.INP'; delete(s,1,pos(';',s)); inc(i); end; if s'' then begin filename[i]:=s; if sott=4 then begin if pos('.',filename[i])=0 then filename[i]:=filename[i]+'.KQ'; end else if pos('.',filename[i])=0 then filename[i]:=filename[i]+'.INP'; end; (* Loc bot cac File trung ten *) if i>1 then begin for k:=1 to i-1 begin if filename[k]'' then begin for j2:=k+1 to i if filename[k]=filename[j2] then filename[j2]:=''; end; end; end; (* *) if i>1 then begin k:=0; for j2:=1 to i if filename[j2]'' then begin inc(k); filename[k]:=filename[j2]; end; i:=k; end; k:=0; gotoxy(1,wherey+2); for j:=1 to i (* Loc bot cac File Khong mo duoc *) begin assign(_f,filename[j]); {$I-} reset(_f); {$I+} if IORESULT=0 then begin inc(k); filename[k]:=filename[j]; close(_f); end else begin textcolor(4); writeln('Khong tim thay File '); textcolor(10); writeln(filename[j]); delay(700); filename[j]:=''; end; end; if k=0 then exit; i:=k; if sott=4 then XUATSL END; PROCEDURE Huong_dan; Var c:char; Begin repeat setbkcolor(blue); setcolor(lightgreen); rectangle(1,1,638,478); line(7,19,78,19); line(7,20,78,20); line(20,39,530,39); settextstyle(0,0,1); setcolor(lightred); rectangle(3,3,636,476); outtextxy(7,10,'CHU THICH:'); setcolor(11); outtextxy(5,30,'* Ket qua tinh toan du an duong day tai dien treo 1DCS & 2DCS:'); setcolor(14); outtextxy(10,55,'.Suat cat dien set danh dinh cot (Nc) [Lan/100KM.nam]'); outtextxy(10,70,'.Suat cat dien set danh vong (Nv) [Lan/100KM.nam]'); outtextxy(10,85,'.Suat cat dien set danh khoang vuot(Nkv) [Lan/100KM.nam]'); outtextxy(10,100,'.Suat cat dien set danh vao DZ tai dien (n) [Lan/100KM.nam]'); outtextxy(10,115,'.Chi phi dau tu ban dau (C) [Trieu dong]'); outtextxy(10,130,'.Chi den bu thiet hai mat dien (H) [Trieu dong]'); outtextxy(10,145,'.Chi den bao duong thiet bi (G) [Trieu dong]'); outtextxy(10,160,'.Tong chi phi du an (Z) [Trieu dong]'); outtextxy(10,175,' > Du an dau tu co hieu qua kinh te nhat tong chi phi (Z) la nho nhat '); setcolor(lightred); setcolor(11); outtextxy(269,465,'to continous '); setcolor(lightred); outtextxy(239,465,'ESC '); c := readkey; clearviewport; until c=chr(27); end; Procedure Khoitao; VAR gd,gm:integer; path:string[50]; Begin gd:=detect; initgraph(gd,gm,'c:\bp\bgi'); while graphresult begin write('Loi hoa,hay go duong dan toi *.BGI, hoac ENTER de thoat '); readln(path); if path='' then halt(1); gd:=0; initgraph(gd,gm,path); end; End; Procedure SODO_CCS; Var x,y,x1,y1,x2,y2,x3,x4,x5:integer; Procedure Su(x0,y0:integer); var i:byte; begin setcolor(2); for i:=1 to line(x0-2,y0+2*i,x0+2,y0+2*i); line(x0,y0,x0,y0+8); fillellipse(x0,y0+10,2,2); end; Procedure su_Dcs(x0,y0:integer); begin setcolor(2); fillellipse(x0+30,y0-10,2,2); end; Procedure xa_Dcs(x0,y0:integer); begin setcolor(11); line(x0-43,y0-10,x0-18,y0-10); end; Procedure Dat(x1,y1:integer); var i:byte; begin for i:=1 to 17 line(x1+5+5*i,y1,x1+5*i,y1+5); end; Procedure cot(x6,y6:integer); var i:byte; begin for i:=1 to Begin line(x6-5,y6-8+8*i,x6+5,y6+8*i); line(x6-5,y6+8*i,x6+5,y6+8*i-8); end; rectangle(x6-5,y6,x6+5,y6+72); line(x6-5,y6+72,x6+6,y6+85); line(x6+5,y6+72,x6-6,y6+85); line(x6+6,y6+85,x6-7,y6+100); line(x6-6,y6+85,x6+7,y6+100); line(x6-7,y6+100,x6+8,y6+115); line(x6+7,y6+100,x6-8,y6+115); line(x6+8,y6+115,x6-9,y6+130); line(x6-8,y6+115,x6+9,y6+130); line(x6+9,y6+130,x6-10,y6+150); line(x6-9,y6+130,x6+10,y6+150); line(x6-5,y6+72,x6-10,y6+150); line(x6+5,y6+72,x6+10,y6+150); line(x6+42,y6+150,x6-43,y6+150); dat(x6-50,y6+150); end; Procedure xalon(x9,y9:integer); begin line(x9,y9,x9+62,y9); line(x9,y9,x9+26,y9-8); line(x9+26,y9-8,x9+36,y9-8); line(x9+36,y9-8,x9+62,y9); line(x9+13,y9,x9+13,y9-4); line(x9+49,y9,x9+49,y9-4); line(x9+13,y9-4,x9+26,y9); line(x9+49,y9-4,x9+36,y9); end; Procedure ghikt_ngang(x10,y10,x11:integer;i:string); Begin settextstyle(0,0,1); setcolor(15); line(x10,y10,x11,y10); line(x10,y10-5,x10,y10+5); line(x11,y10-5,x11,y10+5); line(x10,y10,x10+3,y10-2); line(x10,y10,x10+3,y10+2); line(x11,y10,x11-3,y10-2); line(x11,y10,x11-3,y10+2); outtextxy((x10+x11)div 2-6,y10-10,i); End; Procedure ghikt_ngangNho(x10,y10,x11:integer;k:string); Begin settextstyle(0,0,1); setcolor(14); line(x10,y10,x11,y10); line(x10,y10-5,x10,y10+5); line(x11,y10-5,x11,y10+5); line(x10,y10,x10+3,y10-2); line(x10,y10,x10+3,y10+2); line(x11,y10,x11-3,y10-2); line(x11,y10,x11-3,y10+2); outtextxy((x10+x11)div 2-10,y10-10,k); End; Procedure ghikt_dung(x12,y11,y12:integer;j:string); Begin settextstyle(0,1,1); setcolor(14); line(x12,y11,x12,y12); line(x12-5,y11,x12+5,y11); line(x12-5,y12,x12+5,y12); line(x12,y11,x12+2,y11+3); line(x12,y11,x12-2,y11+3); line(x12,y12,x12+2,y12-3); line(x12,y12,x12-2,y12-3); outtextxy(x12-2,(y11+y12-35)div 2,j); end; {****** Chuong trinh chinh so do***** } Begin x:=64; y1:=255; x1:=x-5; setcolor(11); { -Dang cot treo DCS -} x5:=x+4*128-375; cot(x5,y1-20); line(x5-5,y1+52,x5-10,y1+130);{thu} line(x5+5,y1+52,x5+10,y1+130); xalon(x5-31,y1+52); xalon(x5-31,y1+4); xalon(x5-31,y1+28); su(x5+30,y1+52); su(x5-30,y1+52); su(x5+30,y1+28); su(x5-30,y1+28); su(x5+30,y1+4); su(x5-30,y1+4); su_Dcs(x5-30,y1-10); settextstyle(0,0,1); setcolor(14); outtextxy(165,397,'Cot DCS'); outtextxy(173,393,'^'); outtextxy(174,401,'.'); ghikt_ngang(x5-31,y1+75,x5,'D1'); ghikt_ngang(x5,y1+75,x5+31,'D1'); ghikt_dung(x5+80,y1-20,y1+130,'Hcs1'); ghikt_dung(x5+60,y1+15,y1+130,'Hdd1'); { -Dang cot treo DCS -} x5:=x+4*128-215; y1:=256; setcolor(11); cot(x5,y1-20); line(x5-5,y1+52,x5-10,y1+130); line(x5+5,y1+52,x5+10,y1+130); xalon(x5-31,y1+52); xalon(x5-31,y1+4); xalon(x5-31,y1+28); su(x5+30,y1+52); su(x5-30,y1+52); su(x5+30,y1+28); su(x5-30,y1+28); su(x5+30,y1+4); su(x5-30,y1+4); su_Dcs(x5-45,y1-10); su_Dcs(x5-15,y1-10); xa_Dcs(x5+30,y1-10); settextstyle(0,0,1); setcolor(14); outtextxy(328,398,'Cot DCS'); outtextxy(336,394,'^'); outtextxy(337,402,'.'); ghikt_ngang(x5-31,y1+75,x5,'D2'); ghikt_ngang(x5,y1+75,x5+31,'D2'); ghikt_ngangnho(x5-15,y1-29,x5+15,'Dcs'); ghikt_dung(x5+80,y1-20,y1+130,'Hcs2'); ghikt_dung(x5+60,y1+15,y1+130,'Hdd2'); End; PROCEDURE CHU_BONG(c,h,b,mb,mc:integer;St:String;cc:byte); { c,h : toa man hinh b: bong; mb : mau bong; mc : mau chu; cc: co chu } var i:integer; begin Settextstyle(8,0,cc); for i:=1 to b begin setcolor(Mb); OuttextXY(c+i,h-i,St); end; setcolor(Mc); OuttextXY(c,h,St); end; { ***** HET THU TUC CHU BONG ****** } PROCEDURE CHU_BONG1(c,h,b,mb,mc:integer;St:String;cc:byte); { c,h : toa man hinh b: bong; mb : mau bong; mc : mau chu; cc: co chu } var i:integer; begin Settextstyle(2,0,cc); for i:=1 to b begin setcolor(Mb); OuttextXY(c+i,h-i,St); end; setcolor(Mc); OuttextXY(c,h,St); end; PROCEDURE VIET1; begin begin setbkcolor(14); SetFillStylE(1,14);circle(80,80,15); setcolor(4); SetFillStylE(1,4);Bar(77,77,83,83); line(80,66,78,78);line(78,78,66,80);line(66,80,78,82);line(78,82,80,94); line(80,94,82,82);line(82,82,94,80);line(94,80,82,78);line(82,78,80,66); line(80,67,79,79);line(79,79,67,80);line(67,80,79,81);line(79,81,80,93); line(80,93,81,81);line(81,81,93,80);line(93,80,81,79);line(81,79,80,67); line(80,65,77,77);line(77,77,65,80);line(65,80,77,83);line(77,83,80,95); line(80,95,83,83);line(83,83,95,80);line(95,80,83,77);line(83,77,80,65); setbkcolor(14); line(80,67,80,93); line(93,80,67,80); end; setbkcolor(14); chu_bong(194,40,1,13,15,'CHUONG TRINH TINH TOAN',1); chu_bong(70,95,3,4,14,'DUONG DAY TAI DIEN',5); chu_bong(229,136,1,13,15,'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',1); end; {***** het thu tuc viet1 *****} PROCEDURE Cua_so(c1,h1,c2,h2,v,m_t,m_d,M_n:integer); Var i:integer; Begin For i:=1 to v begin SetColor(m_D); line(c1+i,h1+i,c2-i,h1+i);{Tren} Line(c1+i,h1+i,c1+i,h2-i);{Trai} SetColor(M_T); line(c1+i,h2-i,c2-i,h2-i); {Duoi} Line(c2-i,h2-i,c2-i,h1+i); {Phai} end; SetFillStylE(1,M_N);Bar(c1+v,h1+v,c2-v,h2-v); End; {******** HET THU TUC CUA SO ******** } Procedure Batdau; Var i:byte;c:char; Begin cua_so(3,3,635,476,20,15,11,1); SODO_CCS; VIET1; setcolor(10); for i:=0 to rectangle(i,i,638-i,479-i); {VE KHUNG HINH CHU NHAT MAU XANH} setcolor(4); for i:=0 to rectangle(i,i,639-i,479-i); {VE KHUNG HINH CHU NHAT MAU DO} setcolor(3); for i:=0 to rectangle(22+i,22+i,616-i,457-i);{VE KHUNG HINH CHU NHAT MAU XANH LO} repeat c:=readkey; until (c=#13) or (c=#27) ; End; PROCEDURE Cua_so1(c1,h1,c2,h2,v,m_t,m_d,M_n:integer); Var i:integer; Begin For i:=1 to v begin SetColor(m_D); line(c1+i,h1+i,c2-i,h1+i);{Tren} Line(c1+i,h1+i,c1+i,h2-i);{Trai} SetColor(M_T); line(c1+i,h2-i,c2-i,h2-i); {Duoi} Line(c2-i,h2-i,c2-i,h1+i); {Phai} end; End; {******** HET THU TUC CUA SO ******** } PROCEDURE VE_MENU (chon:integer); Var i:integer; mang_mn:Array[1 6] of string[30];{ dung luu cac dong menu } begin; SETBKCOLOR(1); mang_mn[1]:='F1.Data'; mang_mn[2]:='F2.Help'; mang_mn[3]:='F3.Calculators'; mang_mn[4]:='F4.Result'; mang_mn[5]:='F5.Author'; mang_mn[6]:='F6.Exit'; cua_so1(209,134,441,356,20,15,7,7); setcolor(10); for i:=0 to rectangle(207+i,132+i,443-i,356-i); {VE KHUNG HINH CHU NHAT MAU XANH} setcolor(4); for i:=0 to rectangle(206+i,131+i,444-i,357-i); {VE KHUNG HINH CHU NHAT MAU DO} setcolor(3); for i:=0 to rectangle(229+i,154+i,421-i,336-i);{VE KHUNG HINH CHU NHAT MAU XANH LO} setcolor(15); Settextstyle(0,horizdir,1); for i:=1 to begin { Neu chon = i thi dong i to mau khac } if i=chon then begin cua_so(230,125+i*30,420,155+i*30,5,15,15,13); setcolor(14); outtextxy(241,137+i*30,mang_mn[i]); end else begin cua_so(230,125+i*30,420,155+i*30,5,15,15,7); { Viet dong chu vao hinh chu nhat } setcolor(8); outtextxy(241,137+i*30,mang_mn[i]); end ; end; end; (************ HET THU TUC MENU *************) PROCEDURE VE_MENU1(chon1:integer); Var i:integer; mang_mn1:Array[1 3] of string[30];{ dung luu cac dong menu } begin; SETBKCOLOR(1); mang_mn1[1]:='1.Input Data'; mang_mn1[2]:='2.Edit'; mang_mn1[3]:='3.End'; cua_so1(228,134,408,267,20,15,7,7); setcolor(10); for i:=0 to rectangle(226+i,132+i,410-i,269-i); {VE KHUNG HINH CHU NHAT MAU XANH} setcolor(4); for i:=0 to rectangle(225+i,131+i,411-i,270-i); {VE KHUNG HINH CHU NHAT MAU DO} setcolor(3); for i:=0 to rectangle(249+i,154+i,387-i,246-i);{VE KHUNG HINH CHU NHAT MAU XANH LO} setcolor(15); Settextstyle(0,horizdir,1); for i:=1 to begin { Neu chon = i thi dong i to mau khac } if i=chon1 then begin cua_so(250,125+i*30,386,155+i*30,5,15,15,13); setcolor(14); outtextxy(261,137+i*30,mang_mn1[i]); end else begin cua_so(250,125+i*30,386,155+i*30,5,15,15,7); { Viet dong chu vao hinh chu nhat } setcolor(8); outtextxy(261,137+i*30,mang_mn1[i]); end ; end; end; (************ HET THU TUC MENU *************) FUNCTION CHON_DOC1:BYTE; { thu tuc chon doc menu } Var Sott1:integer;key:char; Begin SETBKCOLOR(9); Sott1:=1; ve_menu1(Sott1); { Ve hinh chu nhat to mau muc } While true { lap khong dieu kien } Begin key:=readkey; { dieukhien phim chon menu} case key of #13: case Sott1 of 1:Begin RESTORECRTMODE; textbackground(9); NHAPSL; SETGRAPHMODE(GETGRAPHMODE); End; 2:Begin RESTORECRTMODE; textbackground(9); SUASL; SETGRAPHMODE(GETGRAPHMODE); End; 3:BEGIN exit; END; end; #72: Begin Sott1:=Sott1-1; if Sott13 then Sott1:=1; End; { Go so cung duoc ! } #49:Begin SOTT1:=1; RESTORECRTMODE; textbackground(9); NHAPSL; SETGRAPHMODE(GETGRAPHMODE); End; #50: Begin SOTT1:=2; RESTORECRTMODE; textbackground(9); SUASL; SETGRAPHMODE(GETGRAPHMODE); End; #51: BEGIN SOTT1:=3; Exit; END; end; { of case key } { Tro ve MENU1 } SetBKcolor(1); ve_menu1(Sott1); end;{ of While } CHON_DOC1:=SOTT1; End; FUNCTION CHON_DOC:BYTE; { thu tuc chon doc menu } Var key:char; Begin Sott:=1; ve_menu(Sott); { Ve hinh chu nhat to mau muc } While true { lap khong dieu kien } Begin key:=readkey; { dieukhien phim chon menu} case key of #13: case Sott of 1:Begin SETGRAPHMODE(GETGRAPHMODE); CHON_DOC1; SETGRAPHMODE(GETGRAPHMODE); End; 2:Begin SETGRAPHMODE(GETGRAPHMODE); HUONG_DAN; End; 3:Begin RESTORECRTMODE; textbackground(9); TINHTOAN; SETGRAPHMODE(GETGRAPHMODE); End; 4:Begin RESTORECRTMODE; textbackground(9); KETQUA; SETGRAPHMODE(GETGRAPHMODE); End; 5:Begin RESTORECRTMODE; textbackground(9); NGUOITHUCHIEN; SETGRAPHMODE(GETGRAPHMODE); End; 6:BEGIN exit; END; end; #72: Begin Sott:=Sott-1; if Sott6 then Sott:=1; End; { Go so cung duoc ! } #59:Begin SOTT:=1; SETGRAPHMODE(GETGRAPHMODE); CHON_DOC1; SETGRAPHMODE(GETGRAPHMODE); End; #60:Begin SOTT:=2; SETGRAPHMODE(GETGRAPHMODE); HUONG_DAN; End; #61:Begin SOTT:=3; RESTORECRTMODE; TINHTOAN; SETGRAPHMODE(GETGRAPHMODE); End; #62:Begin SOTT:=4; RESTORECRTMODE; KETQUA; SETGRAPHMODE(GETGRAPHMODE); End; #63:Begin SOTT:=5; RESTORECRTMODE; NGUOITHUCHIEN; SETGRAPHMODE(GETGRAPHMODE); End; #64:BEGIN SOTT:=6; Exit; END; end; { of case key } { Tro ve MENU } SetBKcolor(1); ve_menu(Sott); end;{ of While } CHON_DOC:=SOTT; End; BEGIN KHOITAO; SETBKCOLOR(1); BATDAU; SETGRAPHMODE(GETGRAPHMODE); CHON_DOC; CLOSEGRAPH; END ... NẴNG _ LÊ VĂN NGHIỆP LỰA CHỌN SƠ ĐỒ TREO DÂY CHỐNG SÉT CHO ĐƢỜNG DÂY TRUYỀN TẢI NHẰM NÂNG CAO HIỆU QUẢ KINH TẾ Chuyên ngành: MẠNG & HỆ THỐNG ĐIỆN Mã số : 60.52.50 LUẬN VĂN THẠC SỸ KỸ THUẬT... tư cho dự án cụ thể Thực tế nay, đường dây truyền tải bố trí treo dây chống sét, riêng đường dây 110KV mạch kép (2 đường dây bố trí cột ) tồn dạng sơ đồ treo dây chống sét sau: -13- - Dạng : Đường. .. sét đánh vào đường dây trường hợp treo dây chống sét (n1) dây chống sét (n2) (tính theo mật độ dơng sét vùng, chiều dài đường dây …) - Suất đầu tư cho đường dây truyền tải lắp đặt dây chống sét

Ngày đăng: 17/06/2021, 11:40

Tài liệu cùng người dùng

Tài liệu liên quan