libess 发表于 2008-5-18 13:57:01

算潮流的源代码程序

提供一些计算潮流的源代码程序,大家各取所需吧




不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:
Dim i As Integer            '循环变量
Dim sTemp As String         '临时字符串变量
Dim zero As Integer = 0      '原始数据中的"0"行的数量,用来区分不同类数据
Dim Line_Num As Integer = 0         '支路总数
Dim Transformer_Num As Integer = 0   '变压器数
Dim Ground_Num As Integer = 0      '接地支路数
Dim PV_Num As Integer = 0            'PV节点数
Dim PointPower_Num As Integer = 0   '节点功率数据的数目
Dim Point_Num As Double             '节点总数
Dim jzP_value As Double             '基准功率
Dim Balance_Point As Double          '平衡节点号
Dim Balance_U As Double             '平衡节点电压
Dim EPS As Double                   '计算精度
Dim streamreaderobj As StreamReader            '打开数据文件
Dim filecont As String
streamreaderobj = File.OpenText(Application.Get(0))
Do
filecont = streamreaderobj.ReadLine()      '逐行读取数据
if Mid(filecont, 1, 1) = "0" Then
zero = zero + 1
Else
Select Case zero

继续发


[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ]

eagle9688 发表于 2008-5-18 20:41:10

谢谢楼主分享！顶一下::handshake::

qiuwei_002 发表于 2008-5-18 20:52:00

收下了，谢谢分享！

afandi 发表于 2008-5-18 22:00:46

不错   很全啊   多谢楼主提供::victory:: ::victory::

drmhok 发表于 2008-5-18 22:44:41

这个语言好像是vb

Henryzhang 发表于 2008-5-19 07:45:19

很好！
潮流程序还是要自己编程写写的
否则只能理解个皮毛

beatsun 发表于 2008-5-20 11:28:08

有网损分摊没::mad:: ::mad::

晨光熹微 发表于 2008-5-20 20:31:07

谢谢楼主分享，下面写的语言vb!

kanmingyang1 发表于 2008-5-20 21:52:49

你那 C++ 牛拉法的程序所给的 数据有问题吧少了一段！而且 程序里 也好像被你删掉了一小部分！麻烦上传个完整的

xianglan17 发表于 2008-5-21 19:35:48

回复 1楼 的帖子

谁有是三相潮流计算的程序呀 ？
请发给我 ，很急，以后再好好报答
xianglan17@sina.com
页: [1] 2 3
查看完整版本: 算潮流的源代码程序

招聘斑竹