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
|
BEGIN NEW DATA CASE
C BENCHMARK DC-6
C Test degenerate SUBROUTINE ANALYT of UTPF: "ANALYTIC SOURCES USAGE"
C Also, two disconnected subnetworks have been added to illustrate the
C use of trapped charge. Node "TRAP" has nothing but a capacitor to
C ground and excitation by a trapped-charge source. This node does hold
C its charge. The 2nd subnetwork once was required (but no longer is)
C because of the need to have at least one regular phasor source (with
C TCLOSE < 0.0), so this regular phasor source "EXTRA" excites an R-C
C circuit. First there is the continuation of the phasor solution, then
C relaxation as the source is shorted (TSTOP=.45 sec), finally transient
C charging when the Type-12 ramp begins (TSTART = 1.55 sec). If the
C user wants to demonstrate that no regular phasor source is required,
C after 8 May 1987, erase TSTART (columns 61-70) of source "EXTRA".
C PRINTED NUMBER WIDTH, 14, 2, --- Replace by following 2 lines on 23 Aug 95
$DEPOSIT, KOLWID=14 { Use SPY DEPOSIT to change column width from STARTUP value
$DEPOSIT, KOLSEP=2 { Use SPY DEPOSIT to change col separation from STARTUP value
$BLANK COMMENT { Set switch so any truly blank line will be ignored
ANALYTIC SOURCES USAGE
0.1 2.0
1 1 1 1 1
NODE1 NODE2 1.0 1
NODE3 NODE4 NODE1 NODE2
NODE2 1.0E6
NODE4 NODE2
C 1 November 2001, add the following extraneous $UNITS request. It has no
C effect since there is no preceding $UNITS to undo. There will be a new
C warning message about the irrelevance of the declaration, however:
$UNITS, -1, -1 { Restore whatever XOPT and COPT existed before preceding $UNITS
TRAP 0.0 0.0 3.0E6 { Capacitor to hold trapped charge
CAP 2.8E6 { Capacitor of R-C subnetwork
EXTRA CAP 0.4 { Resistor of R-C connects source and capacitor
BLANK card ending branch cards
BLANK card ending non-existent switch cards
13NODE3 100. .25 50. .75 .75
2NODE1 { Type-1 source. In fact, any number 1-9 can be used, as this proves
14TRAP -1 1.0 1.E-4 { Trapped charge source } 5432.
C ===========================================================================
C Following "-1.0" of columns 61-70 is no longer required after 8 May 1987:
C ===========================================================================
C --TSTART--
14EXTRA 1.2 0.5 { Need 1 regular phasor } -1.0 .45
12EXTRA 1.0 1.0 1.55
BLANK card ending all electric source cards
C Total network loss P-loss by summing injections = 1.665475193014E+00
C TRAP 1.0 1.0 0.0 .00188495559215 0.0 .94247779608E-3
C 0.0 0.0 .00188495559215 90.000 -.9424777961E-3 0.0
C
C EXTRA 1.2 1.2 2.7757919883568 2.8857193150184 1.6654751930141
C 0.0 0.0 .78889467132476 15.8654284 -.4733368027949
2NODE2 -50.
2NODE4 -50.
3NODE2 -50.
3NODE4 -50.
C Step Time TRAP CAP NODE4 NODE2
C
C 0 0.0 1.0 .08968320466 -50. -50.
C More Type-1 sources, numbers 1 onward. | 40. { Type-1 source c
C 1 0.1 1.0 .18207215381 -45.71428571 -45.71428571
C More Type-1 sources, numbers 1 onward. | 80. { Type-1 source c
C 2 0.2 1.0 .2567706113 -35.6462585 -35.6462585
C End last input card for Type-1 sources. | 9999
C 3 0.3 1.0 .30645528965 -23.91804341 -23.91804341
1 { Request the output of all network node voltages
40. { Type-1 source card for 1st time step (formerly cols. 9-16 for "2")
80. { Type-1 source card for 2nd time step (formerly cols. 9-16 for "2")
9999 { Terminate such Type 1-10 source input
C Last step: 20 2.0 1.0 .1622276802 3.0486553363 3.0486553363
C Last step cont ... : 0.0 0.0 .45 -3.048655336
C maxima: 1.0 .32625238865 10.132034354 10.132034354 95. 95. 1.2 118.918043
C Times of max. : 0.1 0.4 0.8 0.8 0.3 0.3 0.0 0.0
C Variable min. : 1.0 .08968320466 -50. -50. 0.0 0.0 0.0 -10.132034
C Times of min. : 0.6 0.0 0.0 0.0 0.0 0.0 0.5 0
C Addition of 31 March 2011 follows. $DEPOSIT is illustrated in many test
C cases, but only for numeric parameters. Upon the discovery that there was
C no illustration for A6 character variables, the following was added. Note
C that CHVBAR is the "CHaracter Vertical BAR" of STARTUP which normally
C will be the vertical bar of a standard keyboard. Change it to "1" for the
C initial print plot only. I.e., restore the "|" after the 1st plot. WSM.
$DEPOSIT, CHVBAR=1 { Use SPY DEPOSIT to change separator character from | to 1
PRINTER PLOT
C The following plot card illustrates automatic plotting from zero through
C the end time TMAX of the study. Columns 5-7 give the t-axis length in
C inches, and columns 12-15 being negative is the flag to plot all time.
C With a 5-inch axis and a time span of 0 through 2, result is 0.4 sec/in.
C For vector-graphic use and units of [msec], see first subcase of DC-37.
193 5. -1. NODE1 NODE2 { Axis limits: (-0.101, 1.189)
$DEPOSIT, CHVBAR=| { Use SPY DEPOSIT to restore separator character of STARTUP
143 .4 0.0 2.0 CAP { Axis limits: (0.000, 3.263)
C The following truly blank line is added 20 February 1999 to illustrate use
C of $BLANK COMMENT near the top. The next line is extraneous:
BLANK card terminating plot cards
BEGIN NEW DATA CASE
BLANK
|
