From b18347ffc9db9641e215995edea1c04c363b2bdf Mon Sep 17 00:00:00 2001 From: Angelo Rossi Date: Wed, 21 Jun 2023 12:04:16 +0000 Subject: Initial commit. --- benchmarks/dc17.dat | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 101 insertions(+) create mode 100644 benchmarks/dc17.dat (limited to 'benchmarks/dc17.dat') diff --git a/benchmarks/dc17.dat b/benchmarks/dc17.dat new file mode 100644 index 0000000..3fb6e53 --- /dev/null +++ b/benchmarks/dc17.dat @@ -0,0 +1,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 -- cgit v1.2.3