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

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

算潮流的源代码程序

[复制链接]

该用户从未签到

尚未签到

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

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

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

×
提供一些计算潮流的源代码程序,大家各取所需吧" {* c' X  [. p  T. X
VC++牛拉法潮流.rar (106.25 KB, 下载次数: 90) ) S, }( M, i) B2 Z& V0 F  H2 R8 _, D
潮流计算源程序(C语言).rar (53.36 KB, 下载次数: 87)
! Y8 \0 }1 h( n% D& C. ]3 o& H 电力潮流计算C源程序.rar (8.2 KB, 下载次数: 67)
/ p" r- {) \% l# r: | 潮流程序代码.rar (26.28 KB, 下载次数: 74)   Y# B+ O4 O4 U/ e* Z
不过这个程序的开发语言不太清楚,节选一段,看有没有人知道这是什么语言:
  U5 V" ^4 x" l$ w0 h, |Dim i As Integer              '循环变量& V# Q" h, `" }. b, G! l! N  S  w
Dim sTemp As String           '临时字符串变量
; b9 A+ p+ @* o2 P1 l8 DDim zero As Integer = 0        '原始数据中的"0"行的数量,用来区分不同类数据# P" C% v% u- p* y' k- @0 T! J
Dim Line_Num As Integer = 0           '支路总数
( |& X1 u  r% u& P3 dDim Transformer_Num As Integer = 0     '变压器数. M  i* |: P/ @! e8 J$ D  `$ h
Dim Ground_Num As Integer = 0        '接地支路数4 x2 W/ _, N2 z+ q6 `
Dim PV_Num As Integer = 0            'PV节点数) u: ^% }' f+ b& n+ w- A
Dim PointPower_Num As Integer = 0   '节点功率数据的数目
5 R: H2 x; C, z  H/ EDim Point_Num As Double             '节点总数
; W( b# Q  Z( }3 O. ~Dim jzP_value As Double             '基准功率9 _3 H! @; j4 u( d) w- b8 f4 D6 `1 ]; A
Dim Balance_Point As Double          '平衡节点号
( W  c3 T3 |9 {" \* o) G( e4 s; `* YDim Balance_U As Double             '平衡节点电压
+ T0 L$ w, F# U+ a( ^2 bDim EPS As Double                   '计算精度' I; O% V1 R2 p
Dim streamreaderobj As StreamReader              '打开数据文件- M" k" T( Z$ v5 d8 s
Dim filecont As String3 k) Z* l4 {* t% E! m
streamreaderobj = File.OpenText(Application.Get(0))
3 `1 x0 m; j+ v2 o: t" t% P5 ^Do
# }  I. _5 w9 U5 q; zfilecont = streamreaderobj.ReadLine()        '逐行读取数据
% ]: ?, `' W6 ]  Pif Mid(filecont, 1, 1) = "0" Then  M; Z: g" C  \* ^) x4 i
zero = zero + 1; J& O, B7 w- u$ r8 O' T
Else
2 _; ?. ~1 T9 O4 kSelect Case zero1 d/ Y6 s; t% t, n' n# e6 H9 ^% k

, k8 s1 K# v& Z* T& _# C6 C2 k( W- ~5 T继续发) k7 o$ X" h0 R6 j' k' s
牛拉法算潮流源程序C#.rar (4.51 KB, 下载次数: 45) % M5 R" X& \; m/ J! d) I, {- p
% m) X" D/ q+ F0 l7 ]" [4 \6 ]
[ 本帖最后由 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 | 显示全部楼层
    很好!9 \" E+ P/ z4 a5 Q8 s5 c& k/ V
    潮流程序还是要自己编程写写的3 H& r6 |5 E- _3 F
    否则只能理解个皮毛
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】

    该用户从未签到

    尚未签到

    发表于 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楼 的帖子

    谁有是三相潮流计算的程序呀 ?0 @  V8 X& f" d- D  U! K4 N1 x
    请发给我 ,很急,以后再好好报答+ B" Q( w3 }) X/ ?3 Z
    xianglan17@sina.com
    "真诚赞赏,手留余香"
    还没有人打赏,支持一下
    帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】
    您需要登录后才可以回帖 登录 | 立即加入

    本版积分规则

    招聘斑竹

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

    GMT+8, 2025-5-18 18:21

    Powered by Discuz! X3.5 Licensed

    © 2001-2025 Discuz! Team.

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