|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧: m; x* [# C. |8 n( c
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
7 t4 ~3 L7 g) |0 W- |. [
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
# D; P/ h0 C$ q2 J
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
# }& T' C) a; S' V
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
; n8 y, L' X5 }8 K* ~不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:2 \5 R3 l+ c+ K! {, z
Dim i As Integer '循环变量9 T% N8 x! G/ q5 i
Dim sTemp As String '临时字符串变量
. B5 U; C4 N( ?3 I" T& X1 P1 gDim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据
T8 V" q: q* V1 ZDim Line_Num As Integer = 0 '支路总数
/ }- i' a% W9 vDim Transformer_Num As Integer = 0 '变压器数 U$ h- A) p; F. n% r( U
Dim Ground_Num As Integer = 0 '接地支路数( D. V8 a" ^) x; Y6 ^
Dim PV_Num As Integer = 0 'PV节点数 V7 A$ V9 q: U k" o- l2 O4 _# [7 t
Dim PointPower_Num As Integer = 0 '节点功率数据的数目" `. d- e/ S8 ]$ Q( Y+ S
Dim Point_Num As Double '节点总数) c" N/ N/ l v/ W8 c+ @
Dim jzP_value As Double '基准功率( X5 j) \) J! O0 x5 x3 ?. v/ C
Dim Balance_Point As Double '平衡节点号
$ @9 |, n. [! {+ W6 O% F, X/ g* _Dim Balance_U As Double '平衡节点电压
, B( t) a% c# i8 ZDim EPS As Double '计算精度- v5 J0 c: K& w0 c% v6 K
Dim streamreaderobj As StreamReader '打开数据文件+ b5 \* R" b# I4 |
Dim filecont As String
( t2 w; |# m( ostreamreaderobj = File.OpenText(Application.Get(0))
+ v4 Z; w" S9 RDo: \5 h3 ?, c- V- u% Q6 x
filecont = streamreaderobj.ReadLine() '逐行读取数据) F( `7 Q* ?. G8 v7 k4 G) `
if Mid(filecont, 1, 1) = "0" Then
5 i' _; Z1 l: {) x0 W8 s2 Tzero = zero + 1
- t$ Y0 E9 D, ^8 |7 b) u i6 f$ B5 IElse
5 ^0 R' c6 D* t2 x- H, uSelect Case zero
6 Z4 c3 ^4 U9 q0 i
& O: D5 ` m5 i/ s6 R& ]8 n7 b继续发( r6 a( S( [' f5 |5 I) [3 p) j
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
( x1 E% m3 @- i' V
" k3 G4 W; _6 J[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|