|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧
2 o1 W" p( y P S9 [, i
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
7 e( ~2 X) k0 e4 Y9 M0 O. a l
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
# i% v7 t% L2 s: Z8 ^
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
, Y# z" {: t$ t& N5 ~# p
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
& H' K' C: Q" B- L+ z4 L
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:
$ v. W2 g/ J4 K) g( N! KDim i As Integer '循环变量7 G% v1 }, j- `' b5 i
Dim sTemp As String '临时字符串变量, g. m0 Z+ K) l# M7 h+ v. ]0 v# s: U
Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据5 }' s* b0 D' s# ? j
Dim Line_Num As Integer = 0 '支路总数' |/ R% ~( V+ g/ t. t
Dim Transformer_Num As Integer = 0 '变压器数8 q2 M5 u3 D) i: f4 f
Dim Ground_Num As Integer = 0 '接地支路数' n- W2 e0 X% b8 P: \
Dim PV_Num As Integer = 0 'PV节点数
. X. W' I1 z" F9 ]0 }. O& UDim PointPower_Num As Integer = 0 '节点功率数据的数目
) M, }& b9 s6 r) N: W, L# jDim Point_Num As Double '节点总数
" j L: r/ S, q! d# V& _. fDim jzP_value As Double '基准功率& D% b. |5 N% \! M5 [) Q
Dim Balance_Point As Double '平衡节点号
! V/ v1 |# G8 u0 x0 q/ ]/ ADim Balance_U As Double '平衡节点电压
0 L8 U/ _" H0 t& i3 E0 ?Dim EPS As Double '计算精度3 Y2 y8 @$ m1 J6 V) ]
Dim streamreaderobj As StreamReader '打开数据文件# X3 {5 p2 Q0 t7 g+ i! b
Dim filecont As String3 m' @$ {. M* J# ~ l' |
streamreaderobj = File.OpenText(Application.Get(0))
$ X+ H$ H# R% I% }Do# D, L+ w( x7 r, q
filecont = streamreaderobj.ReadLine() '逐行读取数据( R# a3 S Q* ]' a f. {8 T
if Mid(filecont, 1, 1) = "0" Then
9 q. ?4 p- j- q# h# V3 d9 [zero = zero + 1' D* p+ y& U( k
Else* X. X8 w7 y) r( r$ N1 H
Select Case zero) Q ?: s- n" a) x0 o7 ~
4 S3 U0 x1 z" g) M继续发4 s. M5 @, D- I
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
; d9 s4 d( a- N4 A, @* g5 Q6 M; r% }; I C' X, O6 ]/ @
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|