Tái cấu trúc lưới phân phối có xét đến ảnh hưởng của tụ bù

Đại Học Quốc Gia Tp Hồ Chí Minh TRƯỜøNG ĐI HC BÁCH KHOA  TRỊNH HOÀNG DŨNG TÁI CẤU TRÚC LƯỚI PHÂN PHỐI CÓ XÉT ĐẾN ẢNH HƯỞNG CỦA TỤ BÙ Chuyên ngành : Thiết bị, mạng nhà máy điện Mã số ngành : 2.06.07 LUẬN VĂN THẠC SĨ TP HỒ CHÍ MINH, tháng 06/2007 Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh CÔNG TRÌNH ĐƯC HOÀøN THÀ øNH TI TRƯỜøNG ĐI HC BÁCH KHOA ĐI HC QUỐC GIA TP HỒ CHÍ MINH Cán hướng dẫn khoa học :Tiến só QUYỀN HUY ÁNH Cán chấm nhận xét : (Ghi rõ họ, tên, học hàm, học vị chữ ký) Cán chấm nhận xét : (Ghi rõ họ, tên, học hàm, học vị chữ ký) Luận văn thạc só bảo vệ TI HỘI ĐỒNG CHẤM BẢO VỆ LUẬN VĂN THC SĨ TRƯỜøNG ĐI HC BÁCH KHOA, ngày tháng 07 năm 2007 HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang GVHD : TS Quyền Huy Ánh Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù CỘNG HÒA XÃ HI CHỦû NGHĨA VIỆT NAM ĐỘC LẬP – TỰ DO – HANH PHÚC TRƯNG ĐI HC BÁCH KHOA PHÒøNG ĐO TO SĐH Tp HCM, ngày tháng năm 2007 NHIỆM V LUẬN VĂN THẠC SĨ Họ tên học viên: TRỊNH HOÀNG DŨNG Phái: Nam Ngày, tháng, năm sinh: 20-07-1974 Nơi sinh: Long An Chuyên ngành: Thiết bị, mạng nhà máy điện MSHV: 01804478 I- TÊN ĐỀ TÀI : Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù II- NHIỆM VỤ VÀ NỘI DUNG: NHIỆM VỤ: Nghiên cứu phương pháp ứng dụng cho việc tái cấu trúc hệ thống phân phối điện nghiên cứu trước Từ nghiê n cứu, xây dựng giải thuật, xác định hàm mục tiêu ràng buộc Từ giải thuật xây dựng được, viết chương trình ứng dụng thực giải thuật số mạng cụ thể kiểm chứng lại so với kết nghiên cứu trước NỘI DUNG: Chương Tổng quan Chương Phân tích phương pháp nghiên cứu Chương Xây dựng hàm mục tiêu ràng buộc, Các giải thuật tái cấu trúc hệ thống phân phối điện Xây dựng giải thuật đề tài Chương Chương trình ứng dụng kiểm tra số toán điển hình Chương Nhận xét kết luận III- NGÀY GIAO NHIỆM VỤ : 16/01/2006 IV- NGÀY HOÀN THÀNH NHIỆM VỤ : 30-06-2007 V- CÁN BỘ HƯỚNG DẪN : Tiến só Quyền Huy Ánh CÁN BỘ HƯỚNG DẪN CHỦ NHIỆM NGÀNH CN BỘ MÔN QL CHUYÊN NGÀNH Nội dung đề cương luận văn thạc só Hội đồng chuyên ngành thông qua Ngày TRƯỞNG PHÒNG ĐT – SĐH HVTH :Trịnh Hoàng Dũng tháng 07 năm 2007 TRƯỞNG KHOA QL NGÀNH Luận văn tốt nghiệp Trang Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh LỜI CẢM ƠN Tôi xin chân thành cảm ơn Thầy Quyền Huy nh, người tận tình hướng dẫn giúp đỡ hoàn thành luận văn Tôi xin chân thành cảm ơn tất thầy cô môn Hệ thống Điện, Khoa Điện-Điện tử, Phòng Đào tạo Sau đại học Thư viện Trường Đại học Bách Khoa TP.HCM tạo điều kiện thuận lợi cho hoàn thành luận văn Tôi xin chân thành cảm ơn gia đình, bạn bè, đồng nghiệp hỗ trợ, giúp đỡ hoàn thành tốt luận văn Do thời gian thực luận văn có hạn nên tránh khỏi thiếu sót trình nghiên cứu, trình bày luận văn, mong Quý Thầy cô bạn niệm tình thông cảm, xin chân thành cảm ơn Trịnh Hoàng Dũng HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh TÓM TẮT LUẬN VĂN TỐT NGHIỆP Lưới phân phối thực tế xây dựng thành hệ thống mạng điện kín, cấp điện từ nhiều nguồn khác để đảm bảo phụ tải cấp điện điều kiện tốt Tuy nhiên, thực tế vận hành lưới phân phối vận hành dạng mạng hình tia lý kỹ thuật Giữa nhánh hình tia nối với qua thiết bị đóng cắt Recloser, máy cắt, dao cách ly gọi tắt khóa điện Trong lưới phân phối, phụ tải thay đổi thường xuyên hàng giờ, hàng ngày, gây tổn thất điện mạng điện Để giải vấn đề giảm tổn thất điện có nhiều phương pháp bù công suất phản kháng, nâng cao điện áp vận hành lưới điện Tuy nhiên, phương pháp tiệân lợi kinh tế việc đóng mở khóa điện để có cấu trúc mạng cho tổn thất công suất thấp phương pháp gọi tái cấu trúc Luận văn nghiên cứu phương pháp tái cấu trúc áp dụng phương pháp tìm kiếm tối ưu rời rạc phối hợp với lan truyền ngược để đưa cấu trúc mạng có tổn thất thấp tuân theo hàm mục tiêu đặt thỏa mãn ràng buộc điện áp, dòng điện Điểm khác biệt phương pháp tái cấu trúc trình bày luận văn so với phương pháp tái cấu trúc cổ điển khác việc tìm kiếm thực rời rạc, phi tuyến có xét đến ảnh hưởng tụ bù tỉnh mạng điện trình thực tái cấu trúc Chi tiết trình bày cụ thể luận văn HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh MỤC LỤC Nội dung Trang Nhiệm vụ luận văn thạc só Lời cảm ơn Tóm tắt luận văn tốt nghiệp Mục lục Chương Tổng quan 1.1 Đặt vấn đề 1.2 Giới thiệu 10 1.2.1 nh hưởng ràng buộc lên tái cấu trúc 14 1.2.2 Trình bày vấn đề 15 Chương 16 Phân tích phương pháp nghiên cứu 16 2.1 Các phương pháp thay đổi nhánh 16 2.2 Phương pháp cắt vòng kính 18 2.3 Phương pháp tìm kiếm heuristic 19 2.4 Phương pháp chuyển mạch 20 2.5 Phương pháp thực mô 22 2.6 Phương pháp giải thuật Gen 23 2.7 Phương pháp mạng nơron 24 2.8 Phương pháp tối ưu rời rạc ngược 24 Chương 26 Thuật toán tái cấu trúc 26 I Thuật tái cấu trúc cổ điển 26 II Thuật toán tái cấu trúc đề nghị 29 3.1 Hoạt động khóa 30 3.2 Tái cấu trúc với đánh giá dòng tải xác 31 3.3 Tái cấu trúc ới phương pháp tổn thất gần 34 3.4 Lan truyền ngược 36 3.5 Ví dụ minh họa phương pháp tái cấu trúc với lan truyền ngược 37 Chương 45 Chương trình ứng dụng ví dụ, số liệu kiểm tra 45 4.1 Chương trình ứng dụng 45 4.1.1 Lưu đồ thuật toán 45 4.1.2 Cấu trúc chương trình ứng dụng 47 HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh 4.2 Các ví dụ số liệu kiểm tra 4.2.1 Mạng Civanlar nguồn 4.2.2 Mạng Civanlar nguồn 4.2.3 Mạng Glamocanin 4.2.4 Mạng 32 nút tải Baran Wu Chương Nhận xét kết luận Phần phụ lục Các biểu thức tính toán luận văn Mã nguồn chương trình Tài liệu tham khảo Lý lịch trích ngang HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp 61 61 62 64 66 70 70 73 73 76 126 128 Trang Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh CHƯƠNG 1.1 Đặt vấn đề TỔNG QUAN Hệ thống điện phân phối đóng vai trò quan trọng việc cung cấp điện đến hộ tiêu thụ Vì lý kỹ thuật, vận hành theo kiểu hình tia (hở), thiết kế theo kiểu mạch vòng để tăng độ tin cậy trình cung cấp điện Tổn thất lượng lưới phân phối khoảng 5% - 7%, so với 2%-3% lưới điện truyền tải Do đó, nghiên cứu biện pháp giảm tổn thất điện lưới phân phối nhu cầu xúc, hứa hẹn mang lại nhiều lợi ích kinh tế.Về mặt lý thuyết, có nhiều biện pháp để giảm tổn thất trình phân phối điện bù công suất phản kháng, nâng cao điện áp vậ ân hành lưới điện phân phối, tăng tiết diện dây dẫn Tuy biện pháp mang tính khả thi kỹ thuật lại tốn chi phí đầu tư lắp đặt thiết bị Trong đó, biện pháp tái cấu trúc lưới thông qua việc chuyển tải cách đóng/mở cặp khoá điện có sẵn lưới giảm tổn thất điện đáng kể đạt cân công suất tuyến dây mà không cần nhiều chi phí để cải tạo lưới điện Không dừng lại mục tiêu giảm tổn thất điện năng, tái cấu trúc lưới điện phân phối nâng cao khả tải lưới điện, giảm sụt áp cuối lưới giảm thiểu số lượng hộ tiêu thụ bị điện có cố hay cần sửa chữa đường dây Trong trình vận hành, thực tế việc tái cấu trúc lưới nhằm giảm tổn thất lượng điều kiện phải thoả mãn ràng buộc kỹ thuật với hàng trăm khoá điện hệ thống điện phân phối điều vô khó khăn điều độ viên Do đó, cần phương pháp phân tích phù hợp với lưới điện phân phối thực tế giải thuật đủ mạnh để tái cấu trúc lưới điều kiện thoả mãn mục tiêu điều khiển điều độ HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh viên Các giải thuật tái cấu trúc lưới xem xét hai góc độ thiết kế vận hành Ở góc độ thiết kế, cần phải vị trí đặt khoá điện sử dụng loại khoá (máy cắt, máy cắt có tải, dao cách ly …) để cực tiểu hoá tổn thất lượng giảm chi phí đóng/cắt chuyển tải, giúp điều độ viên có không gian điều khiển đủ lớn đáp ứng nhu cầu ngày tăng tương lai Ở góc độ vận hành, dựa vào vị trí khoá điện có sẵn, điều độ viên phải cấu trúc vận hành cho chi phí vận hành bao gồm chi phí chuyển tải tổn thất lượng bé Khi có cố hay cần sửa chữa lưới điện, cần phải tái cấu trúc lưới điện cho giảm thiểu số lượng khách hàng bị điện, chống tải phần tử lưới, đảm bảo chất lượng điện giảm tổn thất lượng Lưới điện phân phối thường vận hành theo cấu trúc hình tia, với khóa điện liên kết mạch để nhận nguồn khác Tổn thất cực tiểu tất khóa điện đóng, điều không thực phức tạp hóa việc bảo vệ dòng hệ thống Khi phần tử hư hỏng, số khóa điện phải hoạt động để khôi phục lại việc cấp điện cho khách hàng với khả tốt Khi tải thay đổi theo thời gian, khóa hoạt động giảm tổn thất hệ thống Cả hai trường hợp áp dụng cho việc tái cấu trúc lưới Vấn đề phối hợp mà thuật toán ngăn ngừa đảm bảo tối ưu toàn cục Hầu hết thuật toán tái cấu trúc có theo hai hướng Hướng thứ nhất, thay đổi nhánh, hệ thống vận hành theo cấu trúc hình tia khả thi thuật toán mở đóng khóa ứng viên theo cặp Hướng thứ hai cắt mạch vòng, hệ thống hoàn toàn theo cấu trúc lưới giải thuật mở khóa ứng viên để có cấu trúc hình tia mong muốn Các thuật toán tái cấu trúc dựa HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh chuyển mạch tuyến tính, mạng nơron, heuristic, giải thuật gen mô nghiên cứu chưa dùng rộng rãi Các thuật toán tái cấu trúc làm việc với mô hình đơn giản hệ thống điện, chúng có ràng buộc gần điện áp dòng điện Thuật toán trình bày phương pháp xây dựng dùng mô hình hệ thống hoàn toàn phi tuyến mà ràng buộc xác Hệâ thống bắt đầu với tất khóa điện mở tất phần tử hư hỏng cách ly khỏi hệ thống Một lựa chọn phân bố, công suất lưới cho giới hạn biên thấp tổn thất Sau đó, giải thuật đóng khóa thời điểm để cực tiểu gia tăng cấu trúc mong muốn mà tính tổn thất thực chia cho công suất biểu kiến tải Cấu trúc mong muốn gia tă ng đóng thêm khóa Nguyên lý gọi chương trình tối ưu rời rạc ngược áp dụng cho vấn đề khác hệ thống điện, bao gồm việc điều phối cho kinh tế cân pha Với việc tái cấu trúc, tính tham lam phương pháp giảm chút với thuật toán tìm kiếm lan truyền ngược Các công thức gần phát triển hiệu với giải pháp phân bố tải riêng biệt Sự tiến phương pháp việc xử lý xác ràng buộc điện áp dòng điện, bao gồm hiệu hoạt động điều khiển Một ví dụ lấy từ luận văn cho thấy làm giải thuật đạt giải pháp tối ưu, việc điều chỉnh điện áp đường dây phải thỏa mãn ràng buộc điện áp 1.2 Giới thiệu Hệ thống điện phân phối lưới điện chuyển tải điện trực tiếp từ trạm biến trung gian đến khách hàng Đường dây truyền tải thường vận hành mạch vòng hay mạch hở, đường dây phân phối điện vận hành hở trường HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang 10 Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh Dim keey As String keey = "nguon" & rs.Fields("Manguon") collect.Add obj, keey cltNguon.Add obj.MaNguon, keey keey = "Nguon" & rs.Fields("MaNguon") collected.Add collect, keey rs.MoveNext Loop collected0.Add collected ' toi day collected chi chua cac nguon ' '//////////////////////////////////////// lstNguon = lstNguon & ")" Dim m As Integer Dim w As Integer Dim nut As clsNutTai Dim duocNoi As Boolean Dim Key As String Dim soPhatTuyen As Integer lap = True Do While (lap = True) Set cltFLoss = New Collection Set collecting = New Collection Dim iPa As Integer For iPa = To collected0.Count PA = iPa Set cltUngVien = New Collection Set cltUngVien = Me.M_CacNutTaiUngVien(collected0.Item(iPa), MaCT, PA) Dim fLossMin As Double chonduocnut = False Dim MaDay As Long Dim vi As Integer For vi = To nUngVien Set nut = New clsNutTai nut.CopyNutTai cltUngVien.Item(vi) MaDay = nut.MaDay Dim coll As Collection Set coll = New Collection Dim varmaNguon As Long Dim key3 As String key3 = "Nguon" & nut.MaNguon Set coll = Me.M_CollectToCollect(collected0.Item(nut.PA).Item(key3), varmaNguon, nut.PA) If (nut.ChaLaNguon = True) Then cmd.CommandText = "select * from PhatTuyen where MaPhatTuyen=" & MaDay Set rs = cmd.Execute Dim phatTuyen As clsPhatTuyen Set phatTuyen = New clsPhatTuyen phatTuyen.CSDinhMuc = rs.Fields("CSDinhMuc_PT") phatTuyen.DeltaU = -1 phatTuyen.FLoss = -1 phatTuyen.PN = nut.CSTieuThu_P phatTuyen.QN = nut.CSTieuThu_Q HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang 112 Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh phatTuyen.MaPhatTuyen = rs.Fields("MaPhatTuyen") phatTuyen.rNhanh = rs.Fields("rNhanh") phatTuyen.TenPhatTuyen = rs.Fields("TenPhatTuyen") phatTuyen.xNhanh = rs.Fields("xNhanh") phatTuyen.DeltaU = phatTuyen.TinhDeltaU(Udm) phatTuyen.FLoss = phatTuyen.TinhFLoss(Udm) key3 = "phattuyen" & phatTuyen.MaPhatTuyen coll.Add phatTuyen, key3 Else cmd.CommandText = "select * from NhanhDay where MaNhanh=" & MaDay Set rs = cmd.Execute Dim nhanhDay As clsNhanhDay Set nhanhDay = New clsNhanhDay nhanhDay.CSDinhMuc = rs.Fields("CSDinhMuc_Nhanh") nhanhDay.DeltaU = -1 nhanhDay.FLoss = -1 nhanhDay.PN = nut.CSTieuThu_P nhanhDay.QN = nut.CSTieuThu_Q nhanhDay.MaNhanh = rs.Fields("MaNhanh") nhanhDay.rNhanh = rs.Fields("rNhanh") nhanhDay.TenNhanh = rs.Fields("TenNhanh") nhanhDay.xNhanh = rs.Fields("xNhanh") nhanhDay.DeltaU = nhanhDay.TinhDeltaU(Udm) nhanhDay.FLoss = nhanhDay.TinhFLoss(Udm) key3 = "nhanhday" & nhanhDay.MaNhanh coll.Add nhanhDay, key3 End If ' If (nut.ChaLaNguon = True) Then key3 = "nut" & nut.MaNutTai & nut.MaNutCha & nut.PA coll.Add nut, key3 ' collected Dim tongP As Double, tongQ As Double Dim key4 As String Dim nut1 As clsNutTai Set nut1 = New clsNutTai Dim isDk1 As Boolean, isDK2 As Boolean, isDk3 As Boolean Dim laNguon As Boolean tongP = nut.CSTieuThu_P tongQ = nut.CSTieuThu_Q isDk1 = True isDK2 = True isDk3 = True laNguon = nut.ChaLaNguon If (nut.ChaLaNguon = False) Then key4 = "nut" & nut.MaNutCha & nut.MaNutNoi & nut.PA nut1.CopyNutTai coll.Item(key4) Do While (laNguon = False) Dim keyN As String If (nut1.ChaLaNguon) Then keyN = "phattuyen" & nut1.MaDay coll.Item(keyN).PN = coll.Item(keyN).PN + tongP coll.Item(keyN).QN = coll.Item(keyN).QN + tongQ laNguon = True HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang 113 Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh Else keyN = "nhanhday" & nut1.MaDay coll.Item(keyN).PN = coll.Item(keyN).PN + tongP coll.Item(keyN).QN = coll.Item(keyN).QN + tongQ key4 = "nut" & nut1.MaNutCha & nut1.MaNutNoi & nut1.PA Set nut1 = New clsNutTai nut1.CopyNutTai coll.Item(key4) End If Loop End If Dim r As Integer For r = To coll.Count If (TypeOf coll.Item(r) Is clsPhatTuyen Or TypeOf coll.Item(r) Is clsNhanhDay) Then coll.Item(r).DeltaU = coll.Item(r).TinhDeltaU(Udm) coll.Item(r).FLoss = coll.Item(r).TinhFLoss(Udm) If (coll.Item(r).CSDinhMuc > 0) Then If (coll.Item(r).S_TieuThuDay() > coll.Item(r).CSDinhMuc) Then If (isDk1 = True) Then isDk1 = False End If End If End If End If Next r knNguon = coll.Item("nguon" & nut.MaNguon).CSDinhMuc_Nguon coll.Item("nguon" & nut.MaNguon).S_DiaPhuong If (knNguon > 0) Then If (Me.S_TieuThuNguon(coll) > knNguon) Then If (isDK2 = True) Then isDK2 = False End If End If End If ' If (knNguon > 0) Then If (Me.M_TinhDeltaUChinh(coll, nut) > Usutap) Then If (isDk3 = True) Then isDk3 = False End If If (isDk1 = True And isDK2 = True And isDk3 = True) Then chonduocnut = True Dim pos As Integer Dim vFloss As clsMyData Set vFloss = New clsMyData Dim ptFloss As Double 'Dim tongFloss As Double Dim maxFlossNut As Double Dim FlossTrung As Integer nut.DeltaUchinh = Me.M_TinhDeltaUChinh(coll, nut) tongFloss = Me.TinhFLossNguon(coll) Dim i As Integer For i = To cltNguon.Count If (cltNguon.Item(i) nut.MaNguon) Then tongFloss = tongFloss + Me.TinhFLossNguon(collected0.Item(iPa).Item("Nguon" & cltNguon.Item(i))) HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang 114 Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh End If Next i 'Dim mKey As String nut.TonThatDA = tongFloss ptFloss = tongFloss pos = FlossTrung = For i = To cltFLoss.Count If (cltFLoss.Item(i).Value > ptFloss) Then pos = i Exit For ElseIf (cltFLoss.Item(i).Value < ptFloss) Then pos = i + Else FlossTrung = i Exit For End If Next i If (FlossTrung = 0) Then key3 = "Nut" & nut.MaNutTai & nut.MaNutCha & nut.PA Set vFloss = New clsMyData vFloss.Value = ptFloss vFloss.Key = key3 If (pos 0) Then 'kMin = Min(cltFLoss, soPhuongAn) If (cltFLoss.Count >= soPhuongAn) Then kMin = soPhuongAn Else kMin = cltFLoss.Count End If Dim mp As clsMyData Set cltChonFLoss = New Collection Dim mKey As String For i = To kMin Set mp = New clsMyData mp.Key = cltFLoss.Item(i).Key mp.Value = cltFLoss.Item(i).Value mKey = mp.Key cltChonFLoss.Add mp, mKey HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang 115 Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh Next i Dim collected01 As Collection Set collected01 = New Collection For i = To collected0.Count Set collected = New Collection Set collected = Me.NCollectToNCollect(collected0.Item(i), i) collected01.Add collected Next i Set collected0 = New Collection For i = To cltChonFLoss.Count mKey = cltChonFLoss.Item(i).Key PA = collecting.Item(mKey).Item("nut" & Mid(mKey, 4)).PA Set collected = New Collection Set collected = Me.NCollectToNCollect(collected01.Item(PA), PA) collected0.Add collected Next i For i = To cltChonFLoss.Count mKey = cltChonFLoss.Item(i).Key PA = collecting.Item(mKey).Item("nut" & Mid(mKey, 4)).PA Set collected = New Collection Set collected = Me.M_CollectToCollect(collecting.Item(mKey), varmaNguon, i) mKey = "Nguon" & varmaNguon ' "Nguon" & collecting.Item(mKey).Item("nut" & Mid(mKey, 4)).MaNguon collected0.Item(i).Remove mKey collected0.Item(i).Add collected, mKey Dim doituong As Object For Each doituong In collected0.Item(i).Item(mKey) If (TypeOf doituong Is clsNutTai) Then doituong.PA = i Next doituong Next i sonutduocnoi = Me.M_TimSoNutDuocNoi(collected0.Item(1)) Else lap = False End If If (cltFLoss.Count > 0) Then Else lap = False End If ' If (sonutduocnoi = soNut) Then lap = False Else If (cltFLoss.Count 0) Then lap = True End If If (cltFLoss.Count = 0) Then lap = False Loop ' while(lap) If (sonutduocnoi = soNut) Then Usutap = 12 If (sonutduocnoi soNut) Then Usutap = Usutap + 0.5 If (Usutap 1) Then mKey = mKey & "," mKey = mKey & collected0.Item(i).Item(j).Item(r).MaNhanh End If If (TypeOf collected0.Item(i).Item(j).Item(r) Is clsNutTai) Then tonThat = collected0.Item(i).Item(j).Item(r).TonThatDA If (maxFlossNut < tonThat) Then maxFlossNut = tonThat Me.M_TinhDeltaUChinh(collected0.Item(i).Item(j), collected0.Item(i).Item(j).Item(r)) DeltaUchinh1 = collected0.Item(i).Item(j).Item(r).DeltaUchinh If (maxDeltaUChinh < DeltaUchinh1) Then maxDeltaUChinh = DeltaUchinh1 End If Next r Next j mKey = mKey & ")" cmd.CommandText = "select * from nhanhDay where Mact=" & MaCT & " and manhanh not in " & mKey Set cltDay = New Collection Set rs = cmd.Execute Dim l As Long Do While (Not rs.EOF) l = rs.Fields("maNhanh") cltDay.Add l rs.MoveNext Loop Me.Display_HFGKhoaMo HFGKhoaMo, cltDay Me.txtTongFLoss.Text = Format(maxFlossNut, "#0.000") Me.txtDeltaU = Format(maxDeltaUChinh, "#0.0000") Next i End Sub '=============== HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang 117 Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh Public Function M_CollectToCollect(ByVal clt As Collection, MaNguon As Long, ByVal PA As Integer) As Collection 'MsgBox "moi" Dim col As Collection Set col = New Collection If (clt.Count > 0) Then Dim i As Integer Dim Key As String For i = To clt.Count If (TypeOf clt.Item(i) Is clsNguon) Then Dim nguon As clsNguon Set nguon = New clsNguon nguon.CopyNguon clt.Item(i) MaNguon = nguon.MaNguon Key = "nguon" & nguon.MaNguon col.Add nguon, Key ElseIf (TypeOf clt.Item(i) Is clsNhanhDay) Then Dim day As clsNhanhDay Set day = New clsNhanhDay day.CopyNhanhDay clt.Item(i) Key = "nhanhday" & day.MaNhanh col.Add day, Key ElseIf (TypeOf clt.Item(i) Is clsNutTai) Then Dim nut As clsNutTai Set nut = New clsNutTai nut.CopyNutTai clt.Item(i) nut.PA = PA Key = "nut" & nut.MaNutTai & nut.MaNutCha & PA col.Add nut, Key ElseIf (TypeOf clt.Item(i) Is clsPhatTuyen) Then Dim pt As clsPhatTuyen Set pt = New clsPhatTuyen pt.CopyPhatTuyen clt.Item(i) Key = "phattuyen" & pt.MaPhatTuyen col.Add pt, Key End If Next i End If Set M_CollectToCollect = col End Function Public Function NCollectToNCollect(ByVal clt As Collection, ByVal PA As Long) As Collection Dim col As New Collection 'collected0.collected1.collected Dim colLon As New Collection Dim MaNguon As Long Dim i As Integer For i = To clt.Count If (TypeOf clt.Item(i) Is Collection) Then Set col = New Collection Set col = Me.M_CollectToCollect(clt.Item(i), MaNguon, PA) colLon.Add col, "Nguon" & MaNguon End If HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang 118 Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh Next i Set NCollectToNCollect = colLon End Function Public Function S_TieuThuNguon(ByVal clt As Collection) As Double Dim kq As Double, i As Integer Dim tongP As Double, tongQ As Double tongP = 0: tongQ = For i = To clt.Count If (TypeOf clt.Item(i) Is clsNutTai) Then Dim nut As New clsNutTai nut.CopyNutTai clt.Item(i) tongP = tongP + nut.CSTieuThu_P tongQ = tongQ + nut.CSTieuThu_Q End If Next i kq = Sqr(tongP * tongP + tongQ * tongQ) S_TieuThuNguon = kq End Function Public Function M_TinhDeltaUChinh(ByVal coll As Collection, ByVal nut As clsNutTai) As Double Dim kq As Double, i As Integer Dim key4 As String Dim nut1 As clsNutTai Set nut1 = New clsNutTai Dim laNguon As Boolean If (nut.ChaLaNguon) Then key4 = "phattuyen" & nut.MaDay Else key4 = "nhanhday" & nut.MaDay End If kq = coll.Item(key4).DeltaU laNguon = nut.ChaLaNguon If (nut.ChaLaNguon = False) Then key4 = "nut" & nut.MaNutCha & nut.MaNutNoi & nut.PA Set nut1 = New clsNutTai nut1.CopyNutTai coll.Item(key4) Do While (laNguon = False) Dim keyN As String If (nut1.ChaLaNguon) Then keyN = "phattuyen" & nut1.MaDay kq = kq + coll.Item(keyN).DeltaU laNguon = True Else keyN = "nhanhday" & nut1.MaDay kq = kq + coll.Item(keyN).DeltaU key4 = "nut" & nut1.MaNutCha & nut1.MaNutNoi & nut1.PA Set nut1 = New clsNutTai nut1.CopyNutTai coll.Item(key4) End If Loop End If HVTH :Trịnh Hoàng Dũng Luận văn tốt nghiệp Trang 119 Tái cấu trúc lưới phân phối có xét đến ảnh hưởng tụ bù GVHD : TS Quyền Huy Ánh M_TinhDeltaUChinh = kq End Function Public Sub M_Display_HFGResults(ByVal HFGResults As MSHFlexGrid, _ ByVal sonutduocnoi As Long, ByVal collected As Collection) If (sonutduocnoi