|
|
|
马上加入，结交更多好友，共享更多资料，让你轻松玩转电力研学社区！
您需要 登录 才可以下载或查看，没有账号？立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧: C' P5 j* q& b
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
8 M0 n1 o3 S9 R) q2 Z+ O \
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
# R4 ~. e3 r1 Z" y* E
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
, x- }0 Y/ P% T# `. }) \. d X- P
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
) u: x8 d' a" E
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:
- Z( r* {; [( g4 \Dim i As Integer '循环变量4 M. P! {" M" c: s: Y: ^ b
Dim sTemp As String '临时字符串变量
. }1 V' V) x' A; F5 |* \$ @) |Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据
" w5 J) O9 E$ V yDim Line_Num As Integer = 0 '支路总数. H5 _+ a( P9 L$ Q6 f [" ?: b
Dim Transformer_Num As Integer = 0 '变压器数5 E& c# r# }1 f/ B8 ]& |
Dim Ground_Num As Integer = 0 '接地支路数$ ~2 ]* X6 \1 N/ @/ Q
Dim PV_Num As Integer = 0 'PV节点数$ F: o4 A8 ~+ c0 ]
Dim PointPower_Num As Integer = 0 '节点功率数据的数目. I2 ?% ] Q' Q
Dim Point_Num As Double '节点总数- Y2 A3 N6 B6 j R0 n
Dim jzP_value As Double '基准功率0 m6 O2 n3 A9 C' m8 z1 J
Dim Balance_Point As Double '平衡节点号
- U" y2 i a7 z7 L! ~5 m" w' gDim Balance_U As Double '平衡节点电压
" _5 K( c/ v" s9 X, p* Q$ zDim EPS As Double '计算精度
) P" _' Z: z2 e/ tDim streamreaderobj As StreamReader '打开数据文件) E1 f5 P. J7 e: n9 _
Dim filecont As String0 p$ e4 n! A2 Q3 M+ }
streamreaderobj = File.OpenText(Application.Get(0))
. g* Q8 Y% r ]+ I4 Z0 W EDo) o6 x$ w" r! x
filecont = streamreaderobj.ReadLine() '逐行读取数据
7 G7 a4 h* }, \: i8 d+ S, ]+ v9 Mif Mid(filecont, 1, 1) = "0" Then4 ?3 w% r" S1 o! f* }
zero = zero + 1- y: @( i* I9 u% i- W& w$ P4 a
Else
- z9 }6 r) }0 G' [2 ISelect Case zero
3 p, |/ j8 b! x" l) F2 x
2 v: n$ w& A) l继续发6 u9 A. A/ \0 D+ G N
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
* |* b' x2 }0 D$ C8 [
; B. s( Y( Q' g1 Q2 x: T
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|
赣公网安备36040302000210号 )|网站地图
狗仔卡
发表于 2008-5-18 13:57:01
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2008-5-18 20:52:00
