7 A' B- ^, |3 _, l7 P不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:# I& u( h' }6 a/ w& B7 F% Q/ d
Dim i As Integer '循环变量2 G/ d9 y' Z3 W3 ]2 _, D
Dim sTemp As String '临时字符串变量: H3 N3 N$ m7 X
Dim zero As Integer = 0 '原始数据中的"0"行的数量,用来区分不同类数据+ b; u/ r" W) W; t% ]" m
Dim Line_Num As Integer = 0 '支路总数 " h6 q* r1 U0 n6 R) }Dim Transformer_Num As Integer = 0 '变压器数3 a. l( @- s6 M- M: u" O) E/ Q* C* e
Dim Ground_Num As Integer = 0 '接地支路数 0 R; ? q! |9 v' qDim PV_Num As Integer = 0 'PV节点数5 n0 {3 G" Q9 U
Dim PointPower_Num As Integer = 0 '节点功率数据的数目# R9 O& i9 x9 m
Dim Point_Num As Double '节点总数6 }9 }% D$ f2 g+ [
Dim jzP_value As Double '基准功率4 {$ n5 D. ]% D- C$ V( ]
Dim Balance_Point As Double '平衡节点号1 C% x: q. B! u0 d& X- X
Dim Balance_U As Double '平衡节点电压 \0 A0 \! _" M4 I( t k. aDim EPS As Double '计算精度- i1 F5 T5 R, O9 z. q
Dim streamreaderobj As StreamReader '打开数据文件* R( U3 \4 f. l. C2 B0 Y# j
Dim filecont As String " C' T/ \2 V2 R" r2 b9 c9 Ostreamreaderobj = File.OpenText(Application.Get(0))8 `$ K( ^. @; l5 e% G
Do 9 u$ S) Y s3 x/ [+ Rfilecont = streamreaderobj.ReadLine() '逐行读取数据 $ j" T+ ` T+ u# ?$ P2 a/ zif Mid(filecont, 1, 1) = "0" Then 5 E* A4 z5 [+ a. ]2 ]3 vzero = zero + 15 d4 ~0 o2 I4 h3 V% v
Else5 O e- B7 A: M6 P3 P
Select Case zero 2 N7 u7 u& _# H& |* i ?2 m 2 U: ~2 U, @8 g v5 ]继续发$ }' U' |2 v! |4 X8 C( h 牛拉法算潮流源程序C#.rar(4.51 KB, 下载次数: 45)
赣公网安备36040302000210号 )|网站地图
狗仔卡
发表于 2008-5-18 13:57:01
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2008-5-18 20:52:00
