关于变压器代码，高手必看？

xuyufufzu · 发表于 2008-4-22 23:36:06

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

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

×

#IF Tap
#STORAGE STOR:26
#IF SAT==TAP
  #LOCAL REAL RVD1_1
   RVD1_1 = $TapI
   IF (RVD1_1 .LT. 1.0E-8) RVD1_1 = 1.0
#ENDIF
#ELSE
#STORAGE STOR:21
#ENDIF
!  TRANSFORMER SATURATION SUBROUTINE
#SUBROUTINE TSAT21 Transformer Saturation Subroutine
#LOCAL REAL X_KNEE
#IF Txk>0
   IF (TIME.GT.$Txk) THEN
      X_KNEE = $Xknee
   ELSE
      X_KNEE = -$Xknee
   ENDIF
#ELSE
   X_KNEE = $Xknee
#ENDIF
#LOCAL REAL TURNS_V
#IF SAT==1
   TURNS_V = $V1
#ELSE
   TURNS_V = $V2
#ENDIF
#IF SAT==TAP
   + * RVD1_1
#ENDIF
#IF SAT==1
#IF CuL>0.0
   CALL TSAT21($X1,$B1,
#ELSE
   CALL TSAT21($A1,$B1,
#ENDIF
#ELSE
#IF CuL>0.0
   CALL TSAT21($X2,$B2,
#ELSE
   CALL TSAT21($A2,$B2,
#ENDIF
#ENDIF
   + 0,0, 0,0, $SS,$Tmva,TURNS_V,$Xair,X_KNEE,$f,$Tdc,$I_m1, 0.0, $Enab)
#OUTPUT REAL IMAG {-STOR(NEXC-21+17)}
#OUTPUT REAL FLUX {STOR(NEXC-21+11)}
#IF Tap
   CALL TRTAP5($#[1], $Tap, $SS, $TapI)
#ENDIF
!

风残冷月 · 发表于 2009-3-24 19:13:17

俺也是低手，过来学习一下

drzyx · 发表于 2009-4-11 19:20:12

看不懂，不过还是顶一下。

suner1986 · 发表于 2009-4-12 12:18:33

什么意思啊，看不懂fortran

sgkevin · 发表于 2009-4-20 21:01:19

完全看不懂。。

小小鸟儿 · 发表于 2009-4-23 10:17:10

这是什么程序里面的?

huafeinaojin · 发表于 2010-5-20 21:36:25

看英文help里的内容，可能会有帮助

buddam · 发表于 2010-5-24 18:51:05

要学习学习了

gpbaby199 · 发表于 2011-6-1 10:54:05

这个是变压器里面script里面DSDYN的饱和子程序吧？

账号		自动登录	找回密码
密码			立即加入

关于变压器代码，高手必看？

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

相关帖子