C-2
Appendix C
Date Code 20000421
SEL-251, -2, -3 Instruction Manual
1
REM SCHWEITZER ENGINEERING LABORATORIES, INC.
2
REM 2350 NE Hopkins Court
3
REM Pullman, WA 99163-5603
4
REM
10
REM COMPUTE DOBLE SETTINGS FOR A ONE-BUS SYSTEM
20
REM HOMOGENEOUS SYSTEM
30
REM SOURCE VOLTS= 67 L-N
40
REM
50
REM ENTER IMPEDANCES FOR 100% OF LINE
60
INPUT "ENTER Z1: R,X";R1,S1
70
INPUT "ENTER Z0: R,X";R0,S0
75
INPUT "ENTER RF FOR GND FLTS";RF
80
REM
90
REM ENTER BUS LOC. FROM SOURCE
100
INPUT "DIST SOURCE TO BUS (PU OF LINE)";S
120
INPUT "DIST BUS TO FAULT (PU OF LINE)";F
130
REM
140
REM PHASE A TO GROUND
150
REM COMPUTE POS SEQ CURRENT
160
X = RO+2*R1: Y = S0+2*S1
170
R3 = R1-RO: S3 = S1-S0
180
AR=1/(S+F): AI=0
190
BR=X : BI=Y
195
BR=BR+3*RF/(S+F)
200
GOSUB 2000
210
I = RR : J = RI
220
IA = 3*67*I: JA=3*67*J
225
IB=0:JB=0:IC=0:JC=0
230
AR=X:AI=Y:BR=I:BI=J
232
GOSUB 1000
234
UA=67*(1-S*RR):VA=67*(-S*RI)
240
AR=R3 :AI=S3
250
BR=I :BI=J
260
GOSUB 1000
270
TR=S*RR :TS=S*RI
280
UB=67*(-0.5+TR)
290
VB=67*(-SQR(3)/2+TS)
300
UC=67*(-0.5+TR)
310
VC=67*(SQR(3)/2+TS)
315
FF$="A-G"
320
GOSUB 4041
500
REM B-C FAULT
510
AR=1: AI=0
520
BR=2*R1*(S+F):BI=2*S1*(S+F)
530
GOSUB 2000
540
I=RR:J=RI
550
IA=0:JA=0
560
AR=I:AI=J:BR=0:BI=-67*SQR(3)
570
GOSUB 1000
580
IB=RR:JB=RI:IC=-IB:JC=-JB
590
UA=67:VA=0
600
AR=I:AI=J:BR=S*R1:BI=S*S1
610
GOSUB 1000
620
AR=RR:AI=RI:BR=0:BI=SQR(3)
630
GOSUB 1000
635
TR=RR:TS=RI
640
UB=67*(-0.5+TR)
650
VB=67*(-SQR(3)/2+TS)
660
UC=67*(-0.5-TR)
670
VC=67*(0.5*SQR(3)-TS)
675
FF$="B-C"
680
GOSUB 4041
900
INPUT "IMP BUS FAULT OR QUIT (I,B,F,Q)";A$
910
IF A$ = "I" THEN GOTO 50
920
IF A$ = "B" THEN GOTO 75
930
IF A$ = "F" THEN GOTO 120 ELSE GOTO 999
999
END
1000 REM MULT SUBROUTINE
1010 REM AR,AI * BR,BI = RR,RI
1020 RR=AR*BR-AI*BI
1030 RI=AI*BR+AR*BI
1040 RETURN
2000 REM DIVISION SUBROUTINE
2010 REM AR,AI / BR,BI = RR,RI
2020 D = BR*BR + BI*BI
2030 RR = AR*BR + AI*BI
2040 RR = RR/D
2050 RI = BR*AI - AR*BI
2060 RI = RI/D
2070 RETURN
3000 REM RECT TO POLAR CONV
3010 REM AR,AI, TO RH, TH
3020 PI = 3.14159265358
3030 IF (AR=0 AND AI=0) THEN RH=0: TH=0: RETURN
3040 IF (AR=0 AND AI>0) THEN RH=AI: TH=90:RETURN
3050 IF (AR=0 AND AI<0) THEN RH=-AI: TH=-90: RETURN
3060 IF (AR>0) THEN TH=(180/PI)*ATN(AI/AR)
3070 IF (AR<0) THEN TH=(180/PI)*ATN(AI/AR)+180
3080 IF TH>180 THEN TH = TH-360
3090 RH=SQR(AR*AR+AI*AI)
3100 RETURN
4041 AR=UA:AI=VA:GOSUB 3000
4042 UA=RH:VA=TH
4043 AR=UB:AI=VB:GOSUB 3000
4044 UB=RH:VB=TH-VA
4045 AR=UC:AI=VC:GOSUB 3000
4046 UC=RH:VC=TH-VA
4047 AR=IA:AI=JA:GOSUB 3000
4048 IA=RH:JA=TH-VA
4049 AR=IB:AI=JB:GOSUB 3000
4050 IB=RH:JB=TH-VA
4055 AR=IC:AI=JC:GOSUB 3000
4060 IC=RH:JC=TH-VA
4061 VA=0
4100 PRINT " VA VB VC IA IB IC"
4130 PRINT USING"##.# ";UA;UB;UC;IA;IB;IC,
4132 PRINT FF$
4140 PRINT USING"#### ";VA;VB;VC;JA;JB;JC
4150 RETURN