马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
#IF Tap
4 Z! ^: X. e* V. A #STORAGE STOR:26: H% Z, Q& O8 R4 s& O5 \
#IF SAT==TAP. `6 N3 o4 M# [" o3 V
#LOCAL REAL RVD1_1
) P |2 I' { J2 N4 D RVD1_1 = $TapI
) F+ r0 r2 ~; v# `: Z; S+ d IF (RVD1_1 .LT. 1.0E-8) RVD1_1 = 1.0! i5 ^6 g0 _8 x' G
#ENDIF$ {2 ?) D2 A2 X, ^/ n" s
#ELSE* K& s7 v4 b) W) \ x
#STORAGE STOR:21; a5 B! }- b/ K0 n7 W
#ENDIF
' H& @0 |& h4 p; w, l; b( s! TRANSFORMER SATURATION SUBROUTINE
; A2 U# b3 c5 ^0 K7 r& \' o c( F- I#SUBROUTINE TSAT21 Transformer Saturation Subroutine8 y5 A" X- Q* O) ?4 r# X7 v
#LOCAL REAL X_KNEE, q, X. l: F. c. p2 {5 ~
#IF Txk>0- c; E) ?. y/ [ I
IF (TIME.GT.$Txk) THEN6 r, I: ^; @* k% F3 w% ^3 E
X_KNEE = $Xknee A" l/ u6 i2 _9 i* v4 p4 c& u
ELSE( l, t; H$ _; A6 [) A1 u" v3 |
X_KNEE = -$Xknee
$ y% w; p4 Y. i& _ ENDIF3 }8 O# l9 h) R, o( v, i
#ELSE
/ p4 S5 m3 w0 U X_KNEE = $Xknee" J$ ?7 a1 }6 B+ B! a4 C
#ENDIF! s) o: \: \- W/ X2 @3 k% U( ~/ E n' w
#LOCAL REAL TURNS_V
) J, J/ l6 p: X i" j) x& B! x#IF SAT==1
+ Y4 h2 Z9 B+ w* t TURNS_V = $V1
$ V7 [! ?6 B+ e6 R& t, q# r#ELSE
5 V8 E! E9 ^' \! R' C1 r- w6 V- S TURNS_V = $V2
: y3 s" Q0 I- {. M/ z#ENDIF
/ C" q4 n) _# d#IF SAT==TAP
2 t8 B6 \/ O' ^( c+ F + * RVD1_1
, V5 H: S+ n8 g- g; Y#ENDIF
0 S4 ^' a* l# I; q6 O% ^# D#IF SAT==1
7 ^% |+ S- b$ x, d D$ t l& G! @ #IF CuL>0.0
. N$ N6 d% e! K* `/ L/ Z5 H7 g) C CALL TSAT21($X1,$B1,
; X+ g$ Y$ G- w" J/ d #ELSE% P" U# P; B) g2 \ i6 C( u1 Y
CALL TSAT21($A1,$B1,
, z4 p9 u3 o; }$ t6 a) L& J, { #ENDIF
) x. o1 L. w0 o4 i$ `#ELSE0 j1 [# _0 y, _: |& N" V) r
#IF CuL>0.0) P0 q: O1 L- w0 g, a+ ^
CALL TSAT21($X2,$B2,
& I' w/ o2 L8 J% q) n1 V8 J #ELSE
u- a G1 E( {" Q3 L& I+ ]) J5 [ CALL TSAT21($A2,$B2,
9 M; R+ k% K& _! l. A7 p #ENDIF
% X: U% w. e+ \#ENDIF
0 u0 Z3 ?! [7 H. g: W + 0,0, 0,0, $SS,$Tmva,TURNS_V,$Xair,X_KNEE,$f,$Tdc,$I_m1, 0.0, $Enab): q3 z2 q- X# m# O, Y2 k, f9 B
#OUTPUT REAL IMAG {-STOR(NEXC-21+17)}: M9 S5 d G) S+ v; h2 R" J# ~
#OUTPUT REAL FLUX {STOR(NEXC-21+11)}
( C% F, `/ }; {#IF Tap3 v, X: H8 {& P+ ?5 C$ M
CALL TRTAP5($#[1], $Tap, $SS, $TapI)
% U7 m' k# @& Q! Q#ENDIF
0 y% ~3 ]: H' \$ ~. v- e% P, ^$ T! |