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
91
92
93
94
95
96
97
98
99
100
101
|
BEGIN NEW DATA CASE
C BENCHMARK DC-17
C Problem identical to DC-4, only here the data is modularized to two
C levels using $INCLUDE with arguments (both numeric and alphanumeric).
C March of 2006, modify to illustrate $INSERT with arguments and "/"-card
C sorting. In addition to the original data case, 4 more will be appended
C and each of these will have its own $INSERT disk file. As for the
C original first, it remains the same except that $INSERT has replaced
C the $INCLUDE use of years past. Arguments are unchanged, however.
C 4 May 2007, add following $PREFIX after modification of OVER1 and
C CIMAGE that moves CHAR*80 PREFIX into BLKCOM for use by $INSERT.
C This allows remote execution, from \UNFORM, without data modification.
$PREFIX, [] { $INCLUDE files are located in same place as this main data file
$INSERT, dc17ins.dat, 9, .005, TRAN##,
.005 4.0
1 1 1 1 1 -1
5 5 20 20
TRAN LOADG 255. 5.E4 3
LOADG 1.E-6
BLANK card ending BRANCH cards
BLANK card ending SWITCH cards (none exists, for this case)
BLANK card ending SOURCE cards
GEN TRAN
BLANK card ending OUTPUT variable requests
BLANK card ending PLOT cards
BEGIN NEW DATA CASE
C 2nd of 5 subcases of DC-17 that illustrate $INSERT use.
C DC-26, 5th of 5 data subcases, modified. This is former DC17A.DAT
$INSERT, DC17AINS.DAT, { Move all data except misc. data into this file
.000200 .000 60. { T-max = 0 means that no transient solution follows
1 1 1 0 1
BLANK card ending branch cards.
BLANK card ending switch cards.
BLANK card terminating EMTP source cards.
BLANK card ending requests for output variables
BLANK card ending plot cards
BEGIN NEW DATA CASE
C 3rd of 5 subcases of DC-17 that illustrate $INSERT use.
C BENCHMARK DC-33, modified. This is former DC17B.DAT
$INSERT, DC17BINS.DAT, { All data except misc. data has been moved to here
.000050 .020
1 1 1 1 1 -1
5 5 20 20
BLANK card terminates all TACS data
BLANK card ending all BRANCH cards
BLANK card ending all SWITCH cards
BLANK terminates the last SOURCE card
C Total network loss P-loss by summing injections = 7.106450000000E-06
C Inject: GEN 377. 377. .377E-7 2.6786345332877
C Inject: 0.0 0.0 -2.678634533288 -89.9999992
C ---- Initial flux of coil "GROUND" to "GEN " = 1.00000000E-09
C
C Step Time GEN GROUND GROUND TACS TACS
C TERRA GEN FLUX GEN
C *** Phasor I(0) = 0.3770000E-07 Switch "GROUND" to " " closed
C 0 0.0 377. .377E-7 0.0 0.0 0.0
C 1 .5E-4 376.9330268 .5235646391 -.523564601 .0094233257 376.9330268
C 2 .1E-3 376.7321312 1.04694322 -1.04694318 .0282649546 376.7321312
BLANK card ends OUTPUT variable requests
BLANK card ending all batch-mode PLOT cards
BEGIN NEW DATA CASE
C 4th of 5 subcases of DC-17 that illustrate $INSERT use.
C BENCHMARK DC-33, 2nd of 3 subcases, modified. This is former DC17C.DAT
$INSERT, DC17CINS.DAT, { All data except misc. data has been moved to here
.000050 .020
1 1 1 1 1 -1
5 5 20 20
BLANK card terminates all MODELS data { 9 July 1995, MODELS replaces old
BLANK card ending all BRANCH cards
BLANK card ending all SWITCH cards
BLANK terminates the last SOURCE card
C Total network loss P-loss by summing injections = 7.106450000000E-06
BLANK card ends OUTPUT variable requests
BLANK card ending all batch-mode PLOT cards
BEGIN NEW DATA CASE
C 5th of 5 subcases of DC-17 that illustrate $INSERT use.
C DC-30, 6th of 6 subcases, modified. This is former DC17D.DAT
$INSERT, DC17DINS.DAT,
1.E-6 5.E-6 { Only take 5 steps; these are plenty for illustration
1 -1
BLANK card terminates all TACS data
BLANK card ends all MODELS data
ENDMODELS
BLANK card ending all BRANCH cards
BLANK card ending all SWITCH cards
BLANK terminates the last SOURCE card
BLANK card ends OUTPUT variable requests
BLANK card ending all batch-mode PLOT cards
C Comment about 6 lines above. Note ENDMODELS has like the initiation
C word MODELS: there is only one of them, and has nothing to do with
C the actual modeling. It is part of the structure in which actual data
C is carried. Normally, ENDMODELS would precede the blank card ending
C MODELS, but with sorting that is not possible. /-card sorting will
C put the actual data there. If we raise ENDMODELS line by one row,
C it would precede all real MODELS data, and that would be completely
C wrong. So, we put it after the blank. Recall MODELS ignores blank
C lines, so the blank card ending MODELS is ignored. It is essential
C to the sorting, but then is ignored by MODELS itself. Since it was
C optional, anyway, this works well.
BEGIN NEW DATA CASE
BLANK
|