VB直流潮流计算主程序.doc

********************************************************线路自定义数据类型 Type xianlu str(1 To 2) As String L As Double Un As Integer ρ As Double S As Double d As Double n As Integer dm As Double Dm3(1 To 3) As Double End Type Type xianluoutput duanhao(1 To 2) As String R As Double x As Double B As Double End Type Dim xl() As xianlu, xlb() As xianluoutput ********************************************************双绕组变压器自定义数据类型 Type shuangbian str(1 To 2) As String shuju(1 To 9) As Double End Type Type shuangbianoutput duanhao(1 To 2) As String canshu(1 To 5) As Double End Type Dim tt() As shuangbian, ttb() As shuangbianoutput ********************************************************三绕组变压器自定义数据类型 Type sanbian str(1 To 3) As String Sn(1 To 3) As Double Ut(1 To 3) As Double Ub(1 To 3) As Double Pk(1 To 3) As Double Uk(1 To 3) As Double Po As Double Io As Double End Type Type sanbianoutput duanhao(1 To 3) As String Rb(1 To 3) As Double Xb(1 To 3) As Double k13 As Double k23 As Double Gb As Double Bb As Double End Type Dim st() As sanbian, stb() As sanbianoutput *****************************************************节点数据自定义类型 Type jiedianshuju name As String leixing As String pr As Double qu As Double Ub As Double End Type Dim codedate() As jiedianshuju Dim ZL() As Double, G() As Double, B() As Double Dim P() As Double, Q() As Double, U() As Double, ang() As Double Dim PB() As Double, QB() As Double, yzPB() As Double, yzQB() As Double Dim SZL() As Double *******************************************************主程序 Sub PQ法潮流计算程序() Dim Sb As Double Dim i As Integer, j As Integer, m As Integer, k As Integer *******************************************************线路参数计算 Dim n1 As Integer Worksheets(线路).Activate n1 = Cells(1, 3) Sb = Cells(2, 3) ReDim xl(1 To n1), xlb(1 To n1) For i = 1 To n1 xl(i).str(1) = Cells(5 + i