|
|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧0 {* I8 s' K# z/ q
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
+ U {/ O J! h# X3 h2 Y: N
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
( l+ n: Y, @5 j) y
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
: I4 ? e+ _! l R
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
* a% u- A: B7 K/ d4 d! x+ k5 }$ U不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:. \; M8 _0 ?& ]" C/ M; z% p
Dim i As Integer '循环变量
/ q I- b6 L1 |% n9 MDim sTemp As String '临时字符串变量
; e( c& ]9 L1 RDim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据2 I: N1 z6 j% Q6 h9 N5 }! `9 C
Dim Line_Num As Integer = 0 '支路总数
$ }! g: T2 H, I' W4 J* Y; qDim Transformer_Num As Integer = 0 '变压器数1 g2 [" ?$ ]9 I6 t' }9 M
Dim Ground_Num As Integer = 0 '接地支路数2 d/ h( t9 x' ~# i& j5 J
Dim PV_Num As Integer = 0 'PV节点数
7 J* V3 Y( k. H4 X) _Dim PointPower_Num As Integer = 0 '节点功率数据的数目
3 x- F$ Z9 j- o2 |3 w: jDim Point_Num As Double '节点总数: y, I! V- D8 F( b. C' E! _: o2 c) B
Dim jzP_value As Double '基准功率
. K% r% V7 |2 U6 u N9 M( ADim Balance_Point As Double '平衡节点号
, N, Y B" b0 tDim Balance_U As Double '平衡节点电压
" L3 t( Y+ h+ Y1 @Dim EPS As Double '计算精度
" N9 w! x) G9 Q) V6 eDim streamreaderobj As StreamReader '打开数据文件
/ k }8 L: R$ E1 a7 pDim filecont As String
( g1 ~ p5 J- A2 gstreamreaderobj = File.OpenText(Application.Get(0)), q9 i, C' e8 o& a# [) {
Do9 q$ j/ U- Q+ U \4 b% ?: F
filecont = streamreaderobj.ReadLine() '逐行读取数据
( Z) t+ ^) t- L5 O7 ?6 ~7 Zif Mid(filecont, 1, 1) = "0" Then
6 I* i c; b6 A) T7 o& `) z4 H' Hzero = zero + 15 R" I1 Z* J5 _1 J/ a# Q
Else
+ J8 {8 }7 C3 V. C6 l0 i9 mSelect Case zero3 b1 S2 ]2 F+ c) R/ ?5 Z
# h ~0 X9 F& C. ~/ q7 L) m继续发# x7 i6 u1 |! N6 j: B/ p
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
: z% i- U4 V; l! _- T
/ V; U( X7 E- _) j, Y% b$ M[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|