|
|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧
/ A. V/ O7 f! r( I
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
& O3 u% _& |. P0 U3 h
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
; T+ `8 B C4 G% T* V
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
# P$ v4 u; {! P& p# v; X: H
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
6 t* q" c7 J2 p2 l& o4 g/ G不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:2 D4 q' B( c. t& e0 ?9 X
Dim i As Integer '循环变量
+ A5 H( ~& k7 C. Y/ F1 yDim sTemp As String '临时字符串变量
9 k7 t( O r$ }Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据
% `# {( [7 S' @' X1 L7 j- h7 ?Dim Line_Num As Integer = 0 '支路总数
& d t. @% X; G' B/ b/ ~" W2 F5 FDim Transformer_Num As Integer = 0 '变压器数
' I! [3 L h7 X; T4 p0 _! WDim Ground_Num As Integer = 0 '接地支路数) Z: B, d8 p* {
Dim PV_Num As Integer = 0 'PV节点数/ ~; x3 P% q0 R9 V& M
Dim PointPower_Num As Integer = 0 '节点功率数据的数目) ]. y f4 K- O4 f6 x
Dim Point_Num As Double '节点总数
! w+ D: e& t( ODim jzP_value As Double '基准功率* y% J0 E* v [! U& p& H
Dim Balance_Point As Double '平衡节点号1 j! `* ~# q# f& S) ^6 V" N; Y
Dim Balance_U As Double '平衡节点电压1 c, l# n: n- W* U; ?3 i5 Y- ~6 K
Dim EPS As Double '计算精度
) C% i, A0 K+ C% c7 P1 v9 C' fDim streamreaderobj As StreamReader '打开数据文件9 D. ^* O s2 P$ ?! C7 `
Dim filecont As String R( y6 R( O% w- u& ]! w& w$ V
streamreaderobj = File.OpenText(Application.Get(0))- ]( i, ?; V! O0 n1 n7 _
Do
& t0 Y$ k% @( k kfilecont = streamreaderobj.ReadLine() '逐行读取数据
# z- b% g3 Y4 ^, O# H$ Uif Mid(filecont, 1, 1) = "0" Then9 S% Z9 t8 [2 `* B. V* U. K
zero = zero + 17 e- J- d3 p" G1 x
Else
6 L4 r( m3 m( ]% I/ f4 B4 m2 H% jSelect Case zero; l8 }3 c) } v, Z- j8 C
o, F4 A2 A4 t# x: V) V* o( z
继续发
U3 Q6 x) Z8 K8 @* x# ~ x+ I- C3 V
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
" Q# _! ^0 U% Q# I* _" X
/ {1 P/ \$ U7 b: V; D+ D[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|