|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧2 Y1 a3 ^1 J P0 d& a: B+ {0 u5 z
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
9 {0 k$ M& w/ r* H% W {0 |
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
~, P4 Z0 r3 b4 H
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
9 H) ~! d6 z4 b; e7 d# T) D1 r
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
7 K6 [0 c/ y' h3 B9 w9 h不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:5 C% j( ~8 g5 ~0 j. K8 E) w5 {% A
Dim i As Integer '循环变量7 c6 E; ]% M. b" s: L' Q' f
Dim sTemp As String '临时字符串变量! N! A$ c' f6 w% i, I: t
Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据
# `8 y3 ?) Q0 rDim Line_Num As Integer = 0 '支路总数0 J3 X5 E. d% x7 l) k
Dim Transformer_Num As Integer = 0 '变压器数3 @% I, ?; ?, {2 s* `
Dim Ground_Num As Integer = 0 '接地支路数
$ U b" [. u; @0 Q, n* {Dim PV_Num As Integer = 0 'PV节点数0 |* C4 I- _! q, F7 _
Dim PointPower_Num As Integer = 0 '节点功率数据的数目" t. K; Z7 n3 J8 M, {/ ?. O1 }: z
Dim Point_Num As Double '节点总数
: r( @/ Z" _/ u( L cDim jzP_value As Double '基准功率
. ~# `' _+ _/ F. S& e% a9 fDim Balance_Point As Double '平衡节点号
, w! Z/ s0 R, [1 CDim Balance_U As Double '平衡节点电压
# ^( z" `* V. d* {. N( T6 ODim EPS As Double '计算精度
5 C7 E& T8 u' W$ T8 \! JDim streamreaderobj As StreamReader '打开数据文件9 X. E( q, |) q7 }. q; Y# J
Dim filecont As String
+ }" q6 f o9 i" Bstreamreaderobj = File.OpenText(Application.Get(0))
. k0 g# j% i- {, `: k0 K9 cDo" R- e8 w$ Y- l/ k: K6 `$ K
filecont = streamreaderobj.ReadLine() '逐行读取数据# w/ f* h6 E; i0 b6 w; ^ q2 w' r* R# \
if Mid(filecont, 1, 1) = "0" Then
8 I- ]. _, `& m1 \zero = zero + 1
* ^. g2 w8 q" i5 i6 d) E* }$ ^Else
% R7 u0 q- i) h5 w- F# TSelect Case zero
# @# @- L7 h& O; w p6 m/ e* T5 S
2 m9 ]. }! t) p8 n继续发, c+ ?, {/ x4 @9 [* V" h
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
8 i9 i( S9 S$ X( W7 R8 H1 T
. @& w* z3 A5 Y2 b[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|