|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧
5 V a+ X! Z" T' ~5 e% b
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
! W; r# z2 h( D) J$ {
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
- e2 | v7 n/ s5 `/ k6 o
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
" D4 J" D5 S. L- {' C4 x
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
; h8 ?* v% L' y3 U5 e9 i2 O
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:6 O ]6 {$ ]1 q# V6 e7 ?5 n2 H! x) T
Dim i As Integer '循环变量
. g. _ F, ^. o6 y8 j: xDim sTemp As String '临时字符串变量, J0 D: h* }. P2 `) c
Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据 m" z5 P9 w+ u
Dim Line_Num As Integer = 0 '支路总数
4 }. u0 j3 N; ?2 p2 ~Dim Transformer_Num As Integer = 0 '变压器数
, a/ |2 t, O" EDim Ground_Num As Integer = 0 '接地支路数& l5 D6 B9 W( z& b) `7 l# V
Dim PV_Num As Integer = 0 'PV节点数
{$ h" r- P$ Q. W$ S. h& hDim PointPower_Num As Integer = 0 '节点功率数据的数目
# {( Y) Q" U4 F: k) bDim Point_Num As Double '节点总数9 y8 A8 c; t! _# }# E! ?/ S v) u
Dim jzP_value As Double '基准功率+ n6 c% O5 r* O& ~( B- b
Dim Balance_Point As Double '平衡节点号4 s! g8 X* x* R: T0 r+ s
Dim Balance_U As Double '平衡节点电压3 D J8 |0 i" O% K" y
Dim EPS As Double '计算精度
: J+ F$ Z% N6 X) e# K' tDim streamreaderobj As StreamReader '打开数据文件
& e, x0 n- w- \' sDim filecont As String6 t) G3 ^# u( W9 z- Q: T+ s5 [! _6 P
streamreaderobj = File.OpenText(Application.Get(0))) v; J( c& v/ ]5 p+ P
Do0 e) \, r6 _ Q% Z& |3 h/ Q9 N; u
filecont = streamreaderobj.ReadLine() '逐行读取数据6 v. b% D% I$ K" o$ Q2 Y
if Mid(filecont, 1, 1) = "0" Then
, Z. i+ h6 i- |* V+ e1 _zero = zero + 1" k; L% ?- n! |1 d
Else
4 ?6 f9 f9 b9 R: zSelect Case zero6 h& Y: n+ n Q, U ^% F
" m' q5 R, i7 x) r" x' Y0 W
继续发
& ]$ p# n+ p, P8 l& |8 r
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
8 x0 g0 O& w+ V& I& v- h' q. m$ @9 t- _) f6 R# |1 E
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|