|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
提供一些计算潮流的源代码程序,大家各取所需吧
& X) o4 w' C/ \3 k! \: j# u% N
VC++牛拉法潮流.rar
(106.25 KB, 下载次数: 90)
; m5 }# E. l; C. E
潮流计算源程序(C语言).rar
(53.36 KB, 下载次数: 87)
. D! f P# O: F1 D# ?5 W6 s& u
电力潮流计算C源程序.rar
(8.2 KB, 下载次数: 67)
+ }5 C9 P5 q4 U& P) s1 k$ ?4 K2 c
潮流程序代码.rar
(26.28 KB, 下载次数: 74)
. t1 o: G" T d5 E2 _6 }不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:: Y U+ h6 T, q# |7 T7 J7 x6 c
Dim i As Integer '循环变量! p" h9 z* G* T( K. n1 Q
Dim sTemp As String '临时字符串变量
9 O3 w, R I7 e5 x! I5 S1 iDim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据
3 u) O |1 i$ i1 t/ qDim Line_Num As Integer = 0 '支路总数
, @7 c% @. s; e3 V1 iDim Transformer_Num As Integer = 0 '变压器数
% }3 a n9 a0 s* Q$ dDim Ground_Num As Integer = 0 '接地支路数' S. O% V2 \$ G& V
Dim PV_Num As Integer = 0 'PV节点数: K4 A" W! i1 J! V
Dim PointPower_Num As Integer = 0 '节点功率数据的数目
/ j0 S: }- l7 j5 _" MDim Point_Num As Double '节点总数# o6 B8 m" ]4 y- h
Dim jzP_value As Double '基准功率
! r% L7 l( a. VDim Balance_Point As Double '平衡节点号. Q2 | Q6 g' V3 H4 x
Dim Balance_U As Double '平衡节点电压& X, h/ v) q7 b b' m& B
Dim EPS As Double '计算精度
" Q% q5 \* ^5 X! r5 v8 nDim streamreaderobj As StreamReader '打开数据文件
, t6 K3 X, L5 d5 H* [Dim filecont As String0 R+ J6 ^. @% t+ V4 E& a7 L
streamreaderobj = File.OpenText(Application.Get(0))
) e4 t$ D7 X' W0 H2 TDo
~$ x/ n- Y. p1 c: e- Afilecont = streamreaderobj.ReadLine() '逐行读取数据
- F2 @0 t" A9 w4 Nif Mid(filecont, 1, 1) = "0" Then
$ ]% M' w- n2 q9 ]1 a. Qzero = zero + 12 u/ ]/ l0 L' E5 Q2 X
Else q9 s* M3 {9 R9 x0 S2 A( W( s$ r& _
Select Case zero
5 f) M* }9 p2 ]2 r+ _3 y: X' `, L* I6 j$ d# ?0 a$ w9 x! @% D- H+ U7 L
继续发2 ]% s t- ~/ A6 T# G# T
牛拉法算潮流源程序C#.rar
(4.51 KB, 下载次数: 45)
6 {+ ~3 L6 d! Z
p H/ M3 r) ~[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ] |
|