马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
#IF Tap
0 W+ E E* S+ i. z #STORAGE STOR:26
# }6 r( z0 D7 L$ f& T #IF SAT==TAP% {5 _( k/ B" A
#LOCAL REAL RVD1_16 m6 `" w) B8 k
RVD1_1 = $TapI3 C% c t) J. F) J# t0 {# b
IF (RVD1_1 .LT. 1.0E-8) RVD1_1 = 1.00 b4 r! r( q. w5 M) P, Z4 s
#ENDIF
% O* t( R+ l6 ^, a* d3 Q9 \" y1 T#ELSE
, ?7 g6 v* Z! F% m+ j6 b #STORAGE STOR:21
n2 @: s( S$ i8 l3 M# E# }7 m1 P2 m% W#ENDIF
9 |3 Z6 q7 ]. Z. R5 [# Q! TRANSFORMER SATURATION SUBROUTINE
1 a( c1 ^$ t& C' Q- C#SUBROUTINE TSAT21 Transformer Saturation Subroutine
4 z6 a# @0 \) ?#LOCAL REAL X_KNEE* E# l P% @$ r; \! R/ t
#IF Txk>0+ A& j U( A- t, ^+ v; Q7 W
IF (TIME.GT.$Txk) THEN* Z/ I+ G/ G: _- [% i- Q1 ], f( G# M
X_KNEE = $Xknee
3 [# K$ ?: m) L ELSE! ^' w8 G2 x* x9 p1 Z/ G% R7 }. B5 E
X_KNEE = -$Xknee/ s @3 A4 K1 e5 d* h7 ]) `# p
ENDIF
]3 z3 ~ }3 c/ c: m4 a. v, i% s#ELSE" R- O/ a2 B8 G
X_KNEE = $Xknee
/ q# ^' U3 [' v6 ]0 V#ENDIF
0 q F4 U0 k# b' f#LOCAL REAL TURNS_V1 A$ e& k1 D' Z# ?
#IF SAT==1$ @7 g7 L4 e+ |& T/ C' P
TURNS_V = $V1$ h2 k+ v- W% m) n
#ELSE9 W0 E0 j& c; G+ q2 f- ^( ?0 |* N
TURNS_V = $V2! ^' U4 T$ ?- G, b, R4 D
#ENDIF. N- Z) t) J \) t: x, _7 {
#IF SAT==TAP
! v6 m& R& R% L. L2 r: j, {1 x + * RVD1_1
. ]9 m4 f; `. C, u#ENDIF
. S7 v# r$ P7 v#IF SAT==12 y- g. l* Q7 K6 D
#IF CuL>0.0
6 B# J, e4 o3 Q" @- h CALL TSAT21($X1,$B1,5 c# K D5 Y" I% E' F
#ELSE j, }' o& U1 H' L5 Y6 k6 h' T+ {
CALL TSAT21($A1,$B1,
; e6 p; l( P a6 j; Q* R, ]5 c #ENDIF4 n9 y7 p2 `- R! x7 L
#ELSE& V, J" v# t# v! f `5 L Z/ E
#IF CuL>0.0: W# ` v$ H- b" Y" Z
CALL TSAT21($X2,$B2,
! }+ l% ~, d! A* I! t- v9 a+ m #ELSE. V6 Z( \% {* x! g; R8 y9 N( L; F
CALL TSAT21($A2,$B2,' a9 U/ E! W4 s' d
#ENDIF
, M3 A9 H6 [( X1 r. r% w#ENDIF
) K! V' q( h$ }/ V6 ^! D: K + 0,0, 0,0, $SS,$Tmva,TURNS_V,$Xair,X_KNEE,$f,$Tdc,$I_m1, 0.0, $Enab); c1 S" o: B1 ?
#OUTPUT REAL IMAG {-STOR(NEXC-21+17)}- @, t4 L/ _% [# Y3 p2 d
#OUTPUT REAL FLUX {STOR(NEXC-21+11)}$ @( }0 j5 r! e9 p; f9 K4 P6 g {7 F
#IF Tap
: r# X+ i: w3 ]* w# z CALL TRTAP5($#[1], $Tap, $SS, $TapI)
& m) Y3 |. F/ S$ i) N' j#ENDIF
8 ~0 J# Y) Z+ r$ l" D3 c- m! |