|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧
& x, ]) d5 J: o4 o. V. E' M& ]
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
- E; v0 ?& r2 `( T S
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
5 n) Y$ q) E+ g( u1 j
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
8 n8 T0 m. w3 n+ _( ?4 Q8 ?' f& a
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
E u$ g- g B+ y
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:
8 m7 c7 Q1 V6 s _+ @7 fDim i As Integer '循环变量7 Y, T; v! `1 h* v
Dim sTemp As String '临时字符串变量
4 T% W7 h# j. I6 l C. q+ oDim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据2 i6 M! m" |( a; p3 P) c: t
Dim Line_Num As Integer = 0 '支路总数
% [3 R9 Q$ H1 e2 y \Dim Transformer_Num As Integer = 0 '变压器数; l1 e; v! X/ K. I1 _, O- n1 m
Dim Ground_Num As Integer = 0 '接地支路数
7 |9 I/ ^3 F9 J2 Q9 g0 eDim PV_Num As Integer = 0 'PV节点数
7 d, n: v- N1 V0 d& CDim PointPower_Num As Integer = 0 '节点功率数据的数目
7 L! U/ Z! P0 b) kDim Point_Num As Double '节点总数
6 d' C) S: Y( Y7 M! _9 a7 [2 i/ MDim jzP_value As Double '基准功率& T. w' y% ]4 q
Dim Balance_Point As Double '平衡节点号
- p8 g( M( y" M1 i9 ` rDim Balance_U As Double '平衡节点电压* r& c: f# l/ h+ M$ ~9 _
Dim EPS As Double '计算精度
( k1 b; J( C3 [9 T; Z z" |Dim streamreaderobj As StreamReader '打开数据文件
5 I9 z8 Z' l: h. vDim filecont As String
. q. v) f4 O7 J6 u2 n# l1 m$ H/ ostreamreaderobj = File.OpenText(Application.Get(0))
# V- }& I" t. u w) gDo
8 S: k% d* w; @filecont = streamreaderobj.ReadLine() '逐行读取数据
7 G5 e! u& D7 O! [1 ?& [" e. vif Mid(filecont, 1, 1) = "0" Then% W& A8 X4 h. l
zero = zero + 1) `8 g8 ]+ a. ~6 B3 S
Else0 I' Y* C2 c- i" n) p4 L
Select Case zero
' a+ C( g4 C( f' [$ l
" _8 A1 L# m4 { r7 C& c, `/ \+ L继续发
3 ~. y, r2 m! P
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
6 ?6 {. _5 W+ D/ W" O
7 P% a' e+ V5 R/ S9 o[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|