|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧
) j0 [! H! H6 }; H' H0 G
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
; ~5 |4 i# x' p6 t
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
9 K4 I; L$ B5 l/ E [
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
9 x: F+ a( ~. {1 _; r
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
- Y+ T% F5 y* I8 V2 g2 B6 U- ]6 l不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言: ~6 Q) K. q; u8 K: P1 v* u' x
Dim i As Integer '循环变量
1 N1 o& c" _ \! z1 lDim sTemp As String '临时字符串变量
+ h' I4 e7 g5 P" W2 P$ VDim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据# d; D) v3 X( }7 B; V
Dim Line_Num As Integer = 0 '支路总数+ G8 \$ C/ }# d
Dim Transformer_Num As Integer = 0 '变压器数
& p2 s# q" D$ D% W) J# P( l6 ~Dim Ground_Num As Integer = 0 '接地支路数+ M, }! U0 X) r8 [1 k% [
Dim PV_Num As Integer = 0 'PV节点数
1 i& h6 ?( R5 }. zDim PointPower_Num As Integer = 0 '节点功率数据的数目9 b* M3 J# n; H) W b, F B
Dim Point_Num As Double '节点总数. {4 v' Q8 h1 Z
Dim jzP_value As Double '基准功率! d X" N% X! M( p
Dim Balance_Point As Double '平衡节点号: K4 R9 V. [0 W# \
Dim Balance_U As Double '平衡节点电压3 m) }5 g. w4 u( J" p! Y. P8 A' V
Dim EPS As Double '计算精度
. G5 j7 H Q. o( ^: r+ e- D! I( b3 Q% ZDim streamreaderobj As StreamReader '打开数据文件
. l" _9 C7 E' X7 o! a0 wDim filecont As String V& D1 \) J" w, k3 e6 Z
streamreaderobj = File.OpenText(Application.Get(0))/ l6 }5 u5 l! A# \( A6 { h( `' N& ^
Do% f0 x3 J0 z+ x5 O" S6 T
filecont = streamreaderobj.ReadLine() '逐行读取数据
; E1 l9 i4 s A5 B6 l. rif Mid(filecont, 1, 1) = "0" Then
2 ~+ U5 d. J/ Mzero = zero + 1
6 V }# ]3 G/ e2 t4 C1 YElse
0 P1 v4 x% c5 u, BSelect Case zero
) c& o5 d% k5 S0 j: j* w( }% l3 M9 ^' `& S
继续发
j2 O$ f7 q& Z
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
* D: T- M1 t% ~) L- e# d
; O% U# h! f6 Z) p, |
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|