1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
BEGIN NEW DATA CASE
C BENCHMARK DC-15
C Derive [R], [L] representations of 2- or 3-winding transformers.
XFORMER
$ERASE { Erase any remnant card images that might exist in punch buffer
22. 700.
139.4 13.6 2100. 12. 700.
$PUNCH { Flush contents of punch buffer (LUNIT7 punched output of preceding)
C 2nd punch : 52, , , , , -0.2028822586562E-02 , 0.1353359666262E+03 $
C Frequency was added explicitly on 18 July 2002. Prior to this date, it
C merely was implied. But now it will be declared on a new $UNITS card
C is to precede punched cards. However, there is ambiguity. Since the user
C does not declare frequency as part of XFORMER data, for freq. of X the
C $UNITS card will display STATFR --- the power frequency from STARTUP.
C That is if data is old. But a user can define his own frequency F as he
C goes using $DEPOSIT as follows (switch to a power frequency of 400 Hz):
$DEPOSIT, STATFR=400. { SPY DEPOSIT command puts valu 400 in ATP variable STATFR
22. 600.
139.4 13.6 1800. 12. 600.
$PUNCH
C 1st punch : 51, , , , , 0.2426133676335E-01 , 0.1620334065762E+04 , ,,,,
$DEPOSIT, STATFR=60. { Return to a more common power frequency (cancel the 400)
22. 280.
139.4 13.2 840. 13. 280.
$PUNCH
C 3rd punch : 0.4661083093112E-03 , 0.3113449149085E+02 , ,,,,
22. 305.
139.4 13.2 915. 13. 305.
$PUNCH
C 1st punch : 51, , , , , 0.4772244898150E-01 , 0.3187701553139E+04 , ,,,,
22. 400.
139.4 13.2 1200. 13. 400.
$PUNCH
C 2nd punch : 52, , , , , -0.3445670365668E-02 , 0.2298606303275E+03 $
BRANCH NAME1 NAME2 NAME3 NAME4 NAME5 NAME6 { 3 pairs of names for phases
3.3 83.3
132.8 250. 6.7 83.3
66.4 56.8 5.1 18.96
13.2 56.8 3.2 18.96
$PUNCH
C 4th punch: 53,NAME5 ,NAME6 , , , -0.5802607141885E-01 , 0.7013580357111E+04 $
C 5th punch: -0.2901590479727E-01 , 0.3507083721397E+04 $
C 6th punch: 0.1153587338779E-01 , 0.6973923571743E+03 , ,,,,
3.3 80.
177. 400. 3.37 80.
132.8 22. 3.57 7.35
13.2 22. 3.42 7.35
$PUNCH
C Last LUNIT7: 0.3031150665151E-01 , 0.7263587283765E+03 , ,,,,
BLANK carding ending "XFORMER" cases.
BEGIN NEW DATA CASE
C 2nd of 3 data subcases tests Gabor Furst's supporting routine that
C will punch data cards to represent a Type-3 U.M. (induction motor).
C This was added 4 February 1997 as described in April, 97, newsletter.
INDUCTION MOTOR DATA
SINGLE { 1st of 2 for default motor parameters must be nonblank, so key 1st 8
BLANK { 2nd of 2 for default motor parameters
BLANK carding ending data subcases within SUBROUTINE INDUCT by Gabor Furst
BEGIN NEW DATA CASE
C 3rd of 3 data subcases tests Orlando Hevia's supporting routine that
C calculates Type-14 harmonic sources for an HFS frequency scan. This
C is added 16 December 2001 as should be documented in a newsletter.
C Orlando Hevia's subroutine has been renamed HSOURC ("harmonic source").
C ITYPE : 1- 2 RESERVED
C BUS : 3- 8 BUS NAME
C VOLT : 9-16 VOLTAGE OF BRIDGE IN VOLT
C FREQ : 17-24 FREQUENCY IN HZ
C AMPER : 25-32 CURRENT IN AMPER
C PHASE : 33-40 PHASE IN DEGREES
C SCCMVA : 41-48 SHORT-CIRCUIT POWER IN MVA
C PERCEN : 49-56 PERCENT OF LOAD
C ALFA : 57-64 DELAY ANGLE IN DEGREES
C MU : 65-72 OVERLAP ANGLE IN DEGREES
C NPU : 73-75 NUMBER OF PULSES
C IMF : 76-78 MAXIMUM HARMONIC TO CALCULATE
C KY : 79-80 RESERVED
C BUS VOLT FREQ AMPER PHASE SCCMVA PERCEN ALFA MU NPUIMFKY
C
$ERASE { Erase any remnant card images that might exist in punch buffer
CREATE HARMONIC SOURCES { Request transfer to Orlando Hevia's SUBROUTINE HSOURC
C ------________--------________--------________--------________--------___---__
BUS6 600.0 50.0 1000.0 0.0 75.0 0.0 0.0 6 55
$PUNCH { Flush the Type-14 source cards, which are output of the computation
BUS12 600.0 50.0 1000.0 0.0 75.0 0.0 0.0 12 55
$PUNCH { Flush the Type-14 source cards, which are output of the computation
BUS18 600.0 50.0 1000.0 0.0 75.0 0.0 0.0 18 55
$PUNCH { Flush the Type-14 source cards, which are output of the computation
BLANK card ending requests of CHS
BEGIN NEW DATA CASE
BLANK
|
