|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧, s* o! A6 [* P1 }
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
9 `6 l1 t6 \2 F. B( J+ e8 k: }% A* I
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
* p# W: l( r3 M3 { n1 ~
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
# B! S2 b% @* x
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
( Q6 _9 J6 A! Q. r+ o j& ]8 L7 Q不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:1 A. K" f/ Q( W, \1 n* d
Dim i As Integer '循环变量' d- L6 [, t# B" c b; b7 \ C( g
Dim sTemp As String '临时字符串变量
! |" ]2 R5 l: S4 @0 \- N: ?# KDim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据 D; d! V) o7 K& P
Dim Line_Num As Integer = 0 '支路总数3 {. O/ @2 B3 I& r0 q4 q
Dim Transformer_Num As Integer = 0 '变压器数( T: B5 o# g+ R2 K: M
Dim Ground_Num As Integer = 0 '接地支路数. J/ [* p# A' Z: c! F7 `. a
Dim PV_Num As Integer = 0 'PV节点数
9 g( J! P7 Z6 O3 ]Dim PointPower_Num As Integer = 0 '节点功率数据的数目
# U% f4 G9 J. h: H' ^Dim Point_Num As Double '节点总数
7 {. H& d' o8 pDim jzP_value As Double '基准功率: z& m) _; s6 m8 E& c4 a5 Q1 y6 ^
Dim Balance_Point As Double '平衡节点号7 T$ P0 S/ j" g$ ]
Dim Balance_U As Double '平衡节点电压
; l; P6 @8 s* d7 b' [) }Dim EPS As Double '计算精度+ p5 M8 h1 H3 J( `. k8 N# I( |
Dim streamreaderobj As StreamReader '打开数据文件/ @$ u- m: x. d3 K( G
Dim filecont As String
5 R6 N, h! Y1 ~2 Wstreamreaderobj = File.OpenText(Application.Get(0))
! Z4 Y0 d7 w. V, H; v) yDo
, ~9 [( u3 F* V6 t0 P( n5 y3 ffilecont = streamreaderobj.ReadLine() '逐行读取数据
) P8 o0 B/ s* G3 N3 P* Kif Mid(filecont, 1, 1) = "0" Then/ v6 I. ^( A1 I4 j0 w3 d: q2 w4 A3 s
zero = zero + 11 d ]! {3 [* K" b: Z
Else! m! ^* P" Y7 C8 U
Select Case zero
! c5 O. _- k# R3 E
( A: T, S9 C- n9 |8 o% ^) }继续发
7 D: k- ~; H' ]/ X, O
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
5 i/ Z/ e3 E' c# @8 s8 W& ?; ]) C8 `+ m* i$ P6 I
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|