交流社区 › PSCAD › 关于变压器代码，高手必看？

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($#, $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的饱和子程序吧？

查看完整版本: 关于变压器代码，高手必看？