|
|
马上加入，结交更多好友，共享更多资料，让你轻松玩转电力研学社区！
您需要 登录 才可以下载或查看，没有账号？立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧 E: a2 e; D$ n$ d, M& B. N3 p5 w
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
9 U$ B& {' p/ ]
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
7 t& _6 n6 e5 `+ A8 d
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
1 u2 F) @) x. _' |" v6 H% t
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
8 a3 x0 t3 c1 d! ]+ S: T
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:4 B) }" c" z) ^! a
Dim i As Integer '循环变量! H) `- V/ }7 @5 a/ S9 W' ?
Dim sTemp As String '临时字符串变量 {0 P0 a' G8 ~" |% W
Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据$ a0 u8 R) g4 N! ?, H
Dim Line_Num As Integer = 0 '支路总数
# [. p$ v- O( ~# m. [9 qDim Transformer_Num As Integer = 0 '变压器数9 P1 N; @& a: ^0 }2 z4 y
Dim Ground_Num As Integer = 0 '接地支路数
/ f; U R9 P+ c- ^& l( }: B3 u+ bDim PV_Num As Integer = 0 'PV节点数
8 t' v% A6 B0 W/ i" z1 |Dim PointPower_Num As Integer = 0 '节点功率数据的数目
# c ^. H. N8 ?Dim Point_Num As Double '节点总数
: l# a0 X+ O2 n$ W: h( Y" ~' j0 `Dim jzP_value As Double '基准功率: a( d6 p& J" H' _4 z7 U2 N* s4 X
Dim Balance_Point As Double '平衡节点号
- S i! n5 x2 i4 }/ M' ]Dim Balance_U As Double '平衡节点电压8 U7 v: q- l& ]" ~" x- I
Dim EPS As Double '计算精度: p2 ~2 I" A- N( ^$ W
Dim streamreaderobj As StreamReader '打开数据文件; z$ W; i2 g- W( j% ? @; o6 G
Dim filecont As String
K R* F6 }; s& `streamreaderobj = File.OpenText(Application.Get(0))
1 d, A* |) I, Z0 _( M$ q1 l" \4 W3 WDo- j1 R! @2 q8 L1 d
filecont = streamreaderobj.ReadLine() '逐行读取数据
' U% C- R3 `6 g- |8 B* C- ~, Hif Mid(filecont, 1, 1) = "0" Then
) u& f) t R. D. ~& d- wzero = zero + 1- @% y$ M$ Y' n4 b: ~* O4 k f
Else+ L# P, U) g9 E5 i2 c# S
Select Case zero9 j0 t$ P! i' Q' K+ |+ I2 G
; K% l! K3 M" o
继续发
) i$ v r2 L. w5 W, P& k
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
3 _9 B$ W+ c; e6 e6 u' R" X6 w
0 E' `% n' e3 ]4 b' u
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|
赣公网安备36040302000210号 )|网站地图
狗仔卡
发表于 2008-5-18 13:57:01
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2008-5-18 20:52:00
