|
|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧2 D& d, @( H& a7 W) v: w' ?4 d
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
! Y, y& l A5 ?- B* r( r
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
, Q- o, Y$ I! F7 L: L& u
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
; D$ v# Y9 d$ U2 V9 b
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
; ^5 I3 V* l' r, r) R不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:$ e4 s# k% e$ ]! J+ ^& c# X
Dim i As Integer '循环变量 F( J2 F: h `) J9 n4 v! w8 @1 m
Dim sTemp As String '临时字符串变量4 \2 E" U9 u0 m! z6 Z
Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据2 V9 K2 b* O$ U. X! w/ B" H" a9 [
Dim Line_Num As Integer = 0 '支路总数
: o) ]+ |0 E; b; f" UDim Transformer_Num As Integer = 0 '变压器数
' C3 G: g+ U7 _! XDim Ground_Num As Integer = 0 '接地支路数7 k. k; Z/ t) |" a% \4 _
Dim PV_Num As Integer = 0 'PV节点数- D% b" G4 b% h$ T
Dim PointPower_Num As Integer = 0 '节点功率数据的数目+ ]( N3 Q/ S$ H! L( {0 ?
Dim Point_Num As Double '节点总数& [$ y; X( Q8 p% G8 y
Dim jzP_value As Double '基准功率3 y) X- M" n/ e* ~' ~ H. O* L
Dim Balance_Point As Double '平衡节点号( M, v" v* b, s8 b
Dim Balance_U As Double '平衡节点电压
$ \: `. v. I! H) [ b- t5 @Dim EPS As Double '计算精度
' Q! b. w' M0 C1 {) ^& h, W% G( lDim streamreaderobj As StreamReader '打开数据文件
6 N! q. B' |3 [$ F5 B% NDim filecont As String6 Q+ G2 b9 ?1 C, E6 r3 u4 a4 [
streamreaderobj = File.OpenText(Application.Get(0))0 J1 Y* @% }7 S& H
Do2 B* J$ e: e- }+ g
filecont = streamreaderobj.ReadLine() '逐行读取数据
6 V( B3 b+ L2 dif Mid(filecont, 1, 1) = "0" Then: ~/ r p8 `9 A2 f
zero = zero + 1
, {5 c7 U% p& f( j+ {8 bElse0 H1 [% i ^, P: g* D- x
Select Case zero: \2 [) o4 W, x5 m9 e
3 Y2 k. Y2 M: a, ]继续发/ {4 i1 p0 w- s" M/ L5 @- `9 ?1 t; h9 n
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
& @! j9 B- O5 B- m2 j6 e
/ Z! t: c7 z! {6 `; T[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|