|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧2 E! \$ N+ F6 {; D8 |5 l2 v+ W6 s; F
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
7 q- V \( ?# C
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
1 n) k% S9 u7 B* S8 Q
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
" N# ~. Y7 e0 @/ Z
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
_1 r% a" s9 l
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:- z2 ?% `# p3 _6 v! }1 Z, M
Dim i As Integer '循环变量
1 R& h: e6 i9 D! h( X' ?& tDim sTemp As String '临时字符串变量( Z0 F# R$ J' B' w# m! j$ }0 A4 d; @
Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据6 D2 T6 R4 T$ b5 ~1 h
Dim Line_Num As Integer = 0 '支路总数
( k* @: n: n2 z' {3 EDim Transformer_Num As Integer = 0 '变压器数
) p4 ^" g6 J( Q" [2 [( b4 h8 \' `4 iDim Ground_Num As Integer = 0 '接地支路数8 U& U, c) t8 w/ S
Dim PV_Num As Integer = 0 'PV节点数
2 }3 E9 s$ T, YDim PointPower_Num As Integer = 0 '节点功率数据的数目
& M6 O& B1 n7 }& E: w8 HDim Point_Num As Double '节点总数
1 D1 h9 e, i# U, B5 }: J: W6 sDim jzP_value As Double '基准功率
. ]6 g: z7 G# b2 QDim Balance_Point As Double '平衡节点号
$ O* @4 Y+ i" u9 VDim Balance_U As Double '平衡节点电压
4 X7 V1 W" j1 ?) A' ~: }/ l5 gDim EPS As Double '计算精度: o. j3 y, b) V: E$ _+ U1 m
Dim streamreaderobj As StreamReader '打开数据文件
; {; o2 }9 K# Q7 vDim filecont As String9 w2 H. q; i2 Y2 H9 f: O
streamreaderobj = File.OpenText(Application.Get(0))9 w! w$ J, o2 m) k3 V, E
Do# z$ p( R9 c ~ `% [! U- F
filecont = streamreaderobj.ReadLine() '逐行读取数据
+ {$ p% W% I7 u% X; ]% \/ uif Mid(filecont, 1, 1) = "0" Then
6 u# x# X% I* m q' g0 Mzero = zero + 1! H: g$ y; H! _: u( N/ R3 C& p
Else
9 O' w% ?& o7 ?' N: WSelect Case zero% R/ Z* c' }; d% }
" i5 q) e4 ~" w O# a4 {
继续发
* b% M0 m7 \6 Q7 T
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
' O' D3 _& j6 i' y, T! ]3 r
, R- O( x* j, M2 f; p[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|