|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧" {* c' X [. p T. X
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
) S, }( M, i) B2 Z& V0 F H2 R8 _, D
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
! Y8 \0 }1 h( n% D& C. ]3 o& H
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
/ p" r- {) \% l# r: |
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
Y# B+ O4 O4 U/ e* Z
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:
U5 V" ^4 x" l$ w0 h, |Dim i As Integer '循环变量& V# Q" h, `" }. b, G! l! N S w
Dim sTemp As String '临时字符串变量
; b9 A+ p+ @* o2 P1 l8 DDim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据# P" C% v% u- p* y' k- @0 T! J
Dim Line_Num As Integer = 0 '支路总数
( |& X1 u r% u& P3 dDim Transformer_Num As Integer = 0 '变压器数. M i* |: P/ @! e8 J$ D `$ h
Dim Ground_Num As Integer = 0 '接地支路数4 x2 W/ _, N2 z+ q6 `
Dim PV_Num As Integer = 0 'PV节点数) u: ^% }' f+ b& n+ w- A
Dim PointPower_Num As Integer = 0 '节点功率数据的数目
5 R: H2 x; C, z H/ EDim Point_Num As Double '节点总数
; W( b# Q Z( }3 O. ~Dim jzP_value As Double '基准功率9 _3 H! @; j4 u( d) w- b8 f4 D6 `1 ]; A
Dim Balance_Point As Double '平衡节点号
( W c3 T3 |9 {" \* o) G( e4 s; `* YDim Balance_U As Double '平衡节点电压
+ T0 L$ w, F# U+ a( ^2 bDim EPS As Double '计算精度' I; O% V1 R2 p
Dim streamreaderobj As StreamReader '打开数据文件- M" k" T( Z$ v5 d8 s
Dim filecont As String3 k) Z* l4 {* t% E! m
streamreaderobj = File.OpenText(Application.Get(0))
3 `1 x0 m; j+ v2 o: t" t% P5 ^Do
# } I. _5 w9 U5 q; zfilecont = streamreaderobj.ReadLine() '逐行读取数据
% ]: ?, `' W6 ] Pif Mid(filecont, 1, 1) = "0" Then M; Z: g" C \* ^) x4 i
zero = zero + 1; J& O, B7 w- u$ r8 O' T
Else
2 _; ?. ~1 T9 O4 kSelect Case zero1 d/ Y6 s; t% t, n' n# e6 H9 ^% k
, k8 s1 K# v& Z* T& _# C6 C2 k( W- ~5 T继续发) k7 o$ X" h0 R6 j' k' s
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
% M5 R" X& \; m/ J! d) I, {- p
% m) X" D/ q+ F0 l7 ]" [4 \6 ]
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|