马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
#IF Tap
( N5 k- z* [) }; ]8 Q #STORAGE STOR:26* X% W. {" C; M! n ~, q8 i* b) M
#IF SAT==TAP
% y7 W; r; v; ]1 M/ o z' z& b #LOCAL REAL RVD1_16 ~1 @: X* l& S0 T* n5 q1 ~) r
RVD1_1 = $TapI
1 e& O) q1 `( ]* k IF (RVD1_1 .LT. 1.0E-8) RVD1_1 = 1.0
" H2 [/ |' L6 f; m+ c #ENDIF% t8 A/ n- x. V: E) c
#ELSE- S" V! o S' H, j/ Q
#STORAGE STOR:21
% A% \3 u/ I# V#ENDIF' a) V! d+ n" J X8 o+ }1 ?( k
! TRANSFORMER SATURATION SUBROUTINE9 U: V( s- x$ u9 C8 B
#SUBROUTINE TSAT21 Transformer Saturation Subroutine
2 G' U- k, u' |#LOCAL REAL X_KNEE
, }, E- [, T! k, e#IF Txk>02 H3 d( j0 ?7 X. s. P( `; h s
IF (TIME.GT.$Txk) THEN' B' ?+ v, K+ y; v
X_KNEE = $Xknee
8 \2 x/ v3 r8 d2 ] ELSE
& G7 H1 C; T) l, H( v8 n X_KNEE = -$Xknee# V7 q0 q* B+ m- `" R. V9 Y
ENDIF' W, Q4 d' a7 N8 T! P
#ELSE) R2 _5 T4 X/ N9 Y5 X) B
X_KNEE = $Xknee8 ]5 b1 M: T# ?
#ENDIF0 a: ~3 Q& K* ?4 k+ L' S% o" K, Z
#LOCAL REAL TURNS_V
* d) x' ]- v+ }* k! m a# F#IF SAT==1
1 E/ j) w0 g6 d% f- x TURNS_V = $V1& A( z0 c+ A7 |1 @ f# L! K9 p
#ELSE
' i( V- w9 i% W# ]1 r. @ TURNS_V = $V2% `4 x6 |( D+ [+ O0 z5 b# `
#ENDIF) @3 q0 H- }. H. O6 R5 z
#IF SAT==TAP
4 L! b1 H1 V( G% b. z( t + * RVD1_1
: {* N; t' F O, i" [: D#ENDIF. j6 S ]$ e E4 E' j. [+ D* z4 q N
#IF SAT==1. z4 H- e! c1 T- @2 K
#IF CuL>0.0
: ?$ [0 h2 B- z5 U& R CALL TSAT21($X1,$B1,8 [8 j, _5 D, W7 n! v
#ELSE
; ~% Q" ?% k X2 ^ CALL TSAT21($A1,$B1,
+ Q4 P8 p/ J7 s7 y) Y r1 h #ENDIF* ~5 Q5 ~" x& S! n6 M" b$ [1 o! E
#ELSE7 Y: ]% m9 i \4 M
#IF CuL>0.0
?' \8 _: y9 A& j0 b/ o$ j9 C CALL TSAT21($X2,$B2,$ Q3 W+ M+ C* a3 I. b t! q) R
#ELSE. i6 d7 C6 t4 B1 N
CALL TSAT21($A2,$B2,
7 w! t& Z- c [' \" @ #ENDIF
" A) \: c' C3 F' U#ENDIF1 c. A6 m; {+ p6 }. V! m3 Q1 j
+ 0,0, 0,0, $SS,$Tmva,TURNS_V,$Xair,X_KNEE,$f,$Tdc,$I_m1, 0.0, $Enab)7 R5 C( z2 V" I% G* \
#OUTPUT REAL IMAG {-STOR(NEXC-21+17)}1 ~2 {$ ^& r+ o' k4 r, _0 i
#OUTPUT REAL FLUX {STOR(NEXC-21+11)}
: i$ O2 f2 t( j/ }( F% ?. d#IF Tap( d& } R2 e& E4 R% W- R
CALL TRTAP5($#[1], $Tap, $SS, $TapI) @) u4 p$ i! _& \
#ENDIF
6 u0 x% ~2 X' B1 b: V" {6 y V! |