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/dc15.dat | 90 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 90 insertions(+) create mode 100644 benchmarks/dc15.dat (limited to 'benchmarks/dc15.dat') diff --git a/benchmarks/dc15.dat b/benchmarks/dc15.dat new file mode 100644 index 0000000..9d7703d --- /dev/null +++ b/benchmarks/dc15.dat @@ -0,0 +1,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 -- cgit v1.2.3