设为首页收藏本站|繁體中文 快速切换版块

 找回密码
 立即加入
搜索
查看: 6528|回复: 27

算潮流的源代码程序

[复制链接]

该用户从未签到

尚未签到

发表于 2008-5-18 13:57:01 | 显示全部楼层 |阅读模式

马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!

您需要 登录 才可以下载或查看,没有账号?立即加入

×
提供一些计算潮流的源代码程序,大家各取所需吧
: Q( w, r2 h& Q/ P3 i9 V5 s7 ^( E VC++牛拉法潮流.rar (106.25 KB, 下载次数: 90) - F/ A+ \1 f8 e- A8 f
潮流计算源程序(C语言).rar (53.36 KB, 下载次数: 87) 1 K: }3 p; q+ k5 |' E
电力潮流计算C源程序.rar (8.2 KB, 下载次数: 67)
% i; L! E; c7 @, W- V 潮流程序代码.rar (26.28 KB, 下载次数: 74) 4 n" L5 v& I6 L2 e0 I* S  ]6 j$ r
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:7 o- Q2 f) [9 o% x
Dim i As Integer              '循环变量
) `; f( p, @, a  ?1 r4 F6 @( bDim sTemp As String           '临时字符串变量2 |8 z: Q$ z( b
Dim zero As Integer = 0        '原始数据中的"0"行的数量,用来区分不同类数据/ J) Y: r) z9 ]% B5 t+ J
Dim Line_Num As Integer = 0           '支路总数
1 m8 \. ?% e! o: Y4 p9 ADim Transformer_Num As Integer = 0     '变压器数* I% v$ m0 {- e( x- I
Dim Ground_Num As Integer = 0        '接地支路数
2 y5 N& J1 Q+ w' V3 o: h9 Q3 cDim PV_Num As Integer = 0            'PV节点数
- x% ]$ u  z, H' _0 S, Z" zDim PointPower_Num As Integer = 0   '节点功率数据的数目+ @7 D6 g5 j4 c8 C$ d
Dim Point_Num As Double             '节点总数- q! S/ s# s4 K7 w. |& W6 ~" l
Dim jzP_value As Double             '基准功率
% u0 k8 p, a, v4 G" J4 z9 aDim Balance_Point As Double          '平衡节点号4 V, X: ^, b6 b
Dim Balance_U As Double             '平衡节点电压
/ p3 r# H* E) q) O' k: |Dim EPS As Double                   '计算精度
6 q1 C8 y9 E1 e6 sDim streamreaderobj As StreamReader              '打开数据文件; I& x/ x& m' t1 u
Dim filecont As String
3 @( c% ~4 p5 h+ ^7 j- v/ l3 sstreamreaderobj = File.OpenText(Application.Get(0))
/ F, L4 e' _! B: @: kDo
- O4 E) f3 p! \+ h" H6 E# F5 Gfilecont = streamreaderobj.ReadLine()        '逐行读取数据/ g0 V% I7 ?0 X- g# G% T
if Mid(filecont, 1, 1) = "0" Then& k5 H! C& X! a& j: s& A
zero = zero + 1
# O! p! y2 L/ ?) Z  c0 L7 [4 AElse9 I" [4 t, S) f4 L. w& A$ X9 V
Select Case zero
$ K! d0 H7 m" L' Z8 B9 ?
- I6 }7 s/ A1 {4 M+ z继续发( G5 Q" f: j) b
牛拉法算潮流源程序C#.rar (4.51 KB, 下载次数: 45) 8 F5 e0 L1 v& h+ `; I- ~7 g4 G9 K
( N( g: O* p! V! Y- A
[ 本帖最后由 libess 于 2008-5-18 14:22 编辑 ]
"真诚赞赏,手留余香"
还没有人打赏,支持一下
楼主热帖
帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】

该用户从未签到

尚未签到

发表于 2008-5-18 20:41:10 | 显示全部楼层
谢谢楼主分享!顶一下
"真诚赞赏,手留余香"
还没有人打赏,支持一下
帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】
  • TA的每日心情
    开心
    2018-7-18 12:52
  • 签到天数: 6 天

    连续签到: 1 天

    [LV.2]偶尔看看I

    累计签到:6 天
    连续签到:1 天
    发表于 2008-5-18 20:52:00 | 显示全部楼层
    收下了,谢谢分享!
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】

    该用户从未签到

    尚未签到

    发表于 2008-5-18 22:00:46 | 显示全部楼层
    不错   很全啊   多谢楼主提供
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】

    该用户从未签到

    尚未签到

    发表于 2008-5-18 22:44:41 | 显示全部楼层
    这个语言好像是vb
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】
  • TA的每日心情
    开心
    2019-11-18 14:05
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]初来乍到

    累计签到:2 天
    连续签到:1 天
    发表于 2008-5-19 07:45:19 | 显示全部楼层
    很好!' |: y8 u" k. a# y* \% h0 V# P; F" o; y
    潮流程序还是要自己编程写写的3 n# l' g) b6 j8 w0 g
    否则只能理解个皮毛
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】

    该用户从未签到

    尚未签到

    发表于 2008-5-20 11:28:08 | 显示全部楼层
    有网损分摊没
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】

    该用户从未签到

    尚未签到

    发表于 2008-5-20 20:31:07 | 显示全部楼层
    谢谢楼主分享,下面写的语言vb!
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】

    该用户从未签到

    尚未签到

    发表于 2008-5-20 21:52:49 | 显示全部楼层
    你那 C++ 牛拉法的  程序所给的 数据有问题吧  少了一段  !而且 程序里 也好像被你删掉了一小部分!麻烦上传个完整的
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】

    该用户从未签到

    尚未签到

    发表于 2008-5-21 19:35:48 | 显示全部楼层

    回复 1楼 的帖子

    谁有是三相潮流计算的程序呀 ?; G9 f4 R/ J1 z
    请发给我 ,很急,以后再好好报答
    9 J( ]3 [8 i( \+ i6 [$ \; M8 z1 W! Pxianglan17@sina.com
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】
    您需要登录后才可以回帖 登录 | 立即加入

    本版积分规则

    招聘斑竹

    小黑屋|手机版|APP下载(beta)|Archiver|电力研学网 ( 赣ICP备12000811号-1|赣公网安备36040302000210号 )|网站地图

    GMT+8, 2026-4-30 11:06

    Powered by Discuz! X3.5 Licensed

    © 2001-2026 Discuz! Team.

    快速回复 返回顶部 返回列表