|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧
" Q+ ^, ^& t6 Y! P2 d3 w1 M$ H
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
& Q- s* v3 _% o4 L
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
- q. M2 o0 X4 `# I# S: A. G$ d. x# O
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
* \. D4 p) `/ I: P! k
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
0 Z8 ^# o- i( r8 B
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:
4 e6 A9 x! `3 X( pDim i As Integer '循环变量0 @* Z2 N& q' q; e7 D5 Z
Dim sTemp As String '临时字符串变量- x+ I6 O3 x. e- c
Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据: X0 h9 [1 }$ o( T
Dim Line_Num As Integer = 0 '支路总数* h9 I: i* J- w/ C- o- B
Dim Transformer_Num As Integer = 0 '变压器数+ S7 a3 }( I6 d2 l; N
Dim Ground_Num As Integer = 0 '接地支路数1 {. v# V. ]# ~/ \
Dim PV_Num As Integer = 0 'PV节点数' P, p; t- ?( h$ P- a$ Y
Dim PointPower_Num As Integer = 0 '节点功率数据的数目7 e( h! ?4 a) R+ x X' z5 B0 h
Dim Point_Num As Double '节点总数
1 w- V& R9 k% e4 C0 H/ ]Dim jzP_value As Double '基准功率
9 Z0 i% y* R# M/ aDim Balance_Point As Double '平衡节点号
- @( Z; T% e* tDim Balance_U As Double '平衡节点电压5 } L3 ^3 F8 L- m" j ~
Dim EPS As Double '计算精度
* p4 T5 M1 f! L1 t+ a# TDim streamreaderobj As StreamReader '打开数据文件
6 T1 o# a6 `) k) O L( [Dim filecont As String; i3 z) a+ V. T+ h8 z ^0 t6 M
streamreaderobj = File.OpenText(Application.Get(0))0 A0 D& @' }& X
Do0 {: e0 \( \; h% W, a. A5 e
filecont = streamreaderobj.ReadLine() '逐行读取数据
" G5 B$ g4 `- c2 S7 T* nif Mid(filecont, 1, 1) = "0" Then9 X. P/ w A0 E- v/ m! [
zero = zero + 1
5 I R$ n" r! v( l: {' AElse
4 n L7 |% {6 c4 G' J wSelect Case zero
; Z) r9 ]. D8 {5 J2 K5 C' Z
* O6 a; |; y9 ], N$ V继续发
3 e( O, h+ N' E
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
1 e' z+ Z8 B! u4 Y% Y* ]* v* Z+ B' s7 y& z/ r M% S' Z3 U! g
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|