|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧
: Q( w, r2 h& Q/ P3 i9 V5 s7 ^( E
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
- F/ A+ \1 f8 e- A8 f
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
1 K: }3 p; q+ k5 |' E
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
% i; L! E; c7 @, W- V
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
4 n" L5 v& I6 L2 e0 I* S ]6 j$ r
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:7 o- Q2 f) [9 o% x
Dim i As Integer '循环变量
) `; f( p, @, a ?1 r4 F6 @( bDim sTemp As String '临时字符串变量2 |8 z: Q$ z( b
Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据/ J) Y: r) z9 ]% B5 t+ J
Dim Line_Num As Integer = 0 '支路总数
1 m8 \. ?% e! o: Y4 p9 ADim Transformer_Num As Integer = 0 '变压器数* I% v$ m0 {- e( x- I
Dim Ground_Num As Integer = 0 '接地支路数
2 y5 N& J1 Q+ w' V3 o: h9 Q3 cDim PV_Num As Integer = 0 'PV节点数
- x% ]$ u z, H' _0 S, Z" zDim PointPower_Num As Integer = 0 '节点功率数据的数目+ @7 D6 g5 j4 c8 C$ d
Dim Point_Num As Double '节点总数- q! S/ s# s4 K7 w. |& W6 ~" l
Dim jzP_value As Double '基准功率
% u0 k8 p, a, v4 G" J4 z9 aDim Balance_Point As Double '平衡节点号4 V, X: ^, b6 b
Dim Balance_U As Double '平衡节点电压
/ p3 r# H* E) q) O' k: |Dim EPS As Double '计算精度
6 q1 C8 y9 E1 e6 sDim streamreaderobj As StreamReader '打开数据文件; I& x/ x& m' t1 u
Dim filecont As String
3 @( c% ~4 p5 h+ ^7 j- v/ l3 sstreamreaderobj = File.OpenText(Application.Get(0))
/ F, L4 e' _! B: @: kDo
- O4 E) f3 p! \+ h" H6 E# F5 Gfilecont = streamreaderobj.ReadLine() '逐行读取数据/ g0 V% I7 ?0 X- g# G% T
if Mid(filecont, 1, 1) = "0" Then& k5 H! C& X! a& j: s& A
zero = zero + 1
# O! p! y2 L/ ?) Z c0 L7 [4 AElse9 I" [4 t, S) f4 L. w& A$ X9 V
Select Case zero
$ K! d0 H7 m" L' Z8 B9 ?
- I6 }7 s/ A1 {4 M+ z继续发( G5 Q" f: j) b
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
8 F5 e0 L1 v& h+ `; I- ~7 g4 G9 K
( N( g: O* p! V! Y- A
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|