|
楼主 |
发表于 2010-4-21 21:04:42
|
显示全部楼层
回复 4# 大笨蛋 * d+ C5 D }0 \$ N8 `% k
- y& _, _& n4 R, b3 ?2 o是不是从生成的lis文件中查找?% M; t& n. G ?2 S, M( {6 p! b# f6 l
Alternative Transients Program (ATP), GNU Linux or DOS. All rights reserved by Can/Am user group of Portland, Oregon, USA.
+ ^ c7 E9 a, l K' V6 [ Date (dd-mth-yy) and time of day (hh.mm.ss) = 13-Apr-10 16:56:55 Name of disk plot file is lin750_4.pl4
\ O5 c/ K2 iConsult the 860-page ATP Rule Book of the Can/Am EMTP User Group in Portland, Oregon, USA. Source code date is 21 February 2003.. m k6 w+ ` \% {; G) f; l$ |
Total size of LABCOM tables = 9868232 INTEGER words. VARDIM List Sizes follow : 6002 10K 192K 900 420K 1200; b" i2 m6 n/ |0 a6 V
15K 120K 2250 3800 720 1200 72800 510 90K 800 90 254 120K 100K 3K 15K 192K 120 30K 160K 600 210K 300 60' X$ n; w/ ?$ o4 s5 H3 ~4 J
--------------------------------------------------+--------------------------------------------------------------------------------
' v/ }3 ], j$ ?$ D5 g" X( a9 [! GDescriptive interpretation of input data cards. | Input data card images are shown below, all 80 columns, character by character
+ E* ]0 X2 z5 q) M: M6 [4 b9 S* a 0 1 2 3 4 5 6 7 8$ Q$ x' ], W3 O6 q( M
012345678901234567890123456789012345678901234567890123456789012345678901234567890
7 k& ^2 n; @; N2 X) {: N; N--------------------------------------------------+--------------------------------------------------------------------------------/ B" k9 I" N5 s. v* Y- f: f# \
Comment card. KOMPAR > 0. |C data:LIN750_4.ATP4 t4 t) \2 \2 D; I( ^
Marker card preceding new EMTP data case. |BEGIN NEW DATA CASE
( R+ C. n5 b) W; OJose Marti`s line fitter. PDT0 = 0.00000000E+00 |JMARTI SETUP! z" h6 O! O8 K! `1 ^! q- V- T: z% V
Erase all of 0 cards in the punch buffer. |$ERASE* A& h4 R% g O4 t4 b h
Pairs of A6 terminal node names for each phase. |BRANCH IN___AOUT__AIN___BOUT__BIN___COUT__C
, t" {' C, ~$ b& z4 C: jCompute overhead line constants. Limit = 120 |LINE CONSTANTS) n+ @8 y: N% u. O, N- q
Request for metric (not English) units. |METRIC! Q" T; G) I! I8 X/ X* L: [" g+ j
Line conductor card. 2.590E-01 6.900E-02 4 | 10.259 0.069 4 2.9 -19.5 25.1 10.1 60. 45. 4# ]2 t- o! k9 v5 E
Line conductor card. 2.590E-01 6.900E-02 4 | 20.259 0.069 4 2.9 0.0 25.1 10.1 60. 45. 4( Q9 y: K4 w0 c2 }, @# @
Line conductor card. 2.590E-01 6.900E-02 4 | 30.259 0.069 4 2.9 19.5 25.1 10.1 60. 45. 4, @" j: [9 N) \& Z+ ^
Line conductor card. 1.750E-01 4.400E-01 4 | 00.175 0.44 4 1.54 -15. 39.7 24.7 0.0 0.0 0
8 `* q1 _$ A- l: h/ |; FLine conductor card. 1.750E-01 4.400E-01 4 | 00.175 0.44 4 1.54 15. 39.7 24.7 0.0 0.0 0; P- ]9 {5 c9 F* t- y
Blank card terminating conductor cards. |BLANK CARD ENDING CONDUCTOR CARDS
: y7 v1 l i$ `Frequency card. 2.000E+01 1.000E+03 7.570E+01 | 20. 1.E3 75.7 19 {1 T( E2 c1 O9 P: I7 O+ \
4 n; g! d: h: D: U& g( wLine conductor table after sorting and initial processing.
6 [7 P r& k5 X6 ~' F. b Table Phase Skin effect Resistance Reactance data specification Diameter Horizontal Avg height) a; F( p; C$ H R- |+ B" v
Row Number R-type R (ohm/km) X-type X(ohm/km) or GMR ( cm ) X (mtrs) Y (mtrs) Name5 V' M+ N/ P* X' L, m% F
1 1 .25900 .06900 4 .000000 2.90000 -19.200 14.800
- c- X4 L+ T: R$ D) y7 Z! e 2 2 .25900 .06900 4 .000000 2.90000 0.300 14.800
x% ^: Z! l X7 H$ d4 @ 3 3 .25900 .06900 4 .000000 2.90000 19.800 14.800" k4 Q6 b( g6 H+ d# x5 r
4 1 .25900 .06900 4 .000000 2.90000 -19.800 14.800& l* S; K% m" H, S+ d) I
5 1 .25900 .06900 4 .000000 2.90000 -19.800 15.400- F! I% ]1 `$ r2 A( F
6 1 .25900 .06900 4 .000000 2.90000 -19.200 15.400" F! N2 o* z' |& A$ t
7 2 .25900 .06900 4 .000000 2.90000 -0.300 14.800
; t- |3 J: A- d7 S1 \ 8 2 .25900 .06900 4 .000000 2.90000 -0.300 15.4003 r R; ?1 b& |- Z! t1 S. t+ H
9 2 .25900 .06900 4 .000000 2.90000 0.300 15.400- ^! M6 T1 x7 m; O3 ~) Z2 f' W
10 3 .25900 .06900 4 .000000 2.90000 19.200 14.800
/ a# `5 I6 j! l0 i7 m' f* O 11 3 .25900 .06900 4 .000000 2.90000 19.200 15.400+ S8 Z X) o8 v% ], O9 Z5 l
12 3 .25900 .06900 4 .000000 2.90000 19.800 15.4004 D: E2 Q, R4 N; S) ~
13 0 .17500 .44000 4 .000000 1.54000 -15.000 29.700
! f& T$ Z: o+ R) y* K 14 0 .17500 .44000 4 .000000 1.54000 15.000 29.700
# X" s6 J! ~0 y9 P 0 w5 t. f; v! a: X# A6 \% a
Matrices are for earth resistivity = 2.00000000E+01 ohm-meters and frequency 1.00000000E+03 Hz. Correction factor =6 J$ b ?1 z+ S* Z7 l2 z1 w
1.00000000E-06: R/ i' \5 O- \
; o3 w) U! K: b3 XModal parameters at frequency FREQ = 1.00000000E+03 Hz/ L# q- [) z4 p) v! w
# C% M9 _* t& c- ~( `
Eigenvector matrix [Ti] for current transformation: I-phase = [Ti]*I-mode. First the real part, row by row:! N9 _: g4 F( t: D! Q
5.748140047158274E-01-7.071067811865638E-01-4.281225696572995E-01
: C) X& v2 d! @( j1 l 5.823896633398591E-01 1.700454252111332E-14 7.958782134849792E-01
8 y/ |" H/ @% u" F 5.748140047158198E-01 7.071067811865313E-01-4.281225696573222E-01
7 p0 w% i7 }/ ?$ }4 S6 UFinally, the imaginary part, row by row:
$ q1 `! F3 _# x1 N. u0 K# X8 C 0.000000000000000E+00 0.000000000000000E+00 0.000000000000000E+00
( g1 [# f& Y: Z 0.000000000000000E+00 0.000000000000000E+00 0.000000000000000E+00
/ p* H6 h% r/ Y% t1 K" ?! Z3 S% Y 0.000000000000000E+00 0.000000000000000E+00 0.000000000000000E+00" c& ~+ `4 U5 L$ D3 t6 f
Frequency card. 2.000E+01 5.000E+01 7.570E+01 | 20. 50. 75.7 1( x, h& ~& |6 y- _
- J& K" ]( L+ i+ H/ Z) W
Matrices are for earth resistivity = 2.00000000E+01 ohm-meters and frequency 5.00000000E+01 Hz. Correction factor =0 N+ L( y( _8 V5 k/ v
1.00000000E-06
; M3 \' f# {! @& T1 VFrequency card. 2.000E+01 5.000E-03 7.570E+01 | 20. 0.005 75.7 7 10 1( G5 t7 y( |4 z1 }* i, W- b1 x
Blank card terminating frequency cards. |BLANK CARD ENDING FREQUENCY CARDS" o; m, N- r @
Blank card ending "LINE CONSTANTS" cases. |BLANK CARD ENDING LINE CONSTANT
: `# U* \% v& R" W% _6 pRequest for default fitting (= 3 blank cards) |DEFAULT9 c4 |! e8 e3 Y( |; v: b
' x) ?9 R# I0 M% f5 L% b===== ===== Begin Zc fitting for mode IMODE = 1 ===== =====
9 E$ k5 z, p& R7 F, D; g7 {1 o5 iThe number of poles NPOLES = 41 in this loop exceeds the specified limit NORMAX = 30
( Z0 Q H" R/ G, i
; {8 C8 @/ n7 ?9 \% }' z, I$ N3 Q @@@@@ @@@@@ Begin A1 fitting for mode IMODE = 1 @@@@@ @@@@@
4 F& h# [% w) ]) d8 l( n [6 l( Q* E# b* D3 a9 ]
===== ===== Begin Zc fitting for mode IMODE = 2 ===== =====( d3 v, T! s9 `0 \3 ^* p. f9 X9 P
The number of poles NPOLES = 34 in this loop exceeds the specified limit NORMAX = 30: X: C( J( P6 d4 Z! s6 }* l0 H
* q' c1 ?: u! @3 D9 P" M
@@@@@ @@@@@ Begin A1 fitting for mode IMODE = 2 @@@@@ @@@@@
E# n+ {* O; M" U ! ]3 P l& @9 s5 V' `& _; Q" f! f
===== ===== Begin Zc fitting for mode IMODE = 3 ===== =====
( a- H0 y% v5 Z& O. HThe number of poles NPOLES = 31 in this loop exceeds the specified limit NORMAX = 30
V& y5 E& z! S3 c0 M4 B
. X' x7 s- H1 w+ A @@@@@ @@@@@ Begin A1 fitting for mode IMODE = 3 @@@@@ @@@@@
! N2 U8 v5 Y# @, y/ ^ : L( S) u( p$ i+ ~: B1 }- {
Request for flushing of punch buffer. |$PUNCH
& k) s' q; ^/ {% w- X
' E* G0 t) K, _A listing of 80-column card images now being flushed from punch buffer follows.
& J7 w$ _& t o) l) x& d5 V: R9 ]===============================================================================3 N; ~( E$ Y0 N2 s3 Y- S4 A. @
1234567890123456789012345678901234567890123456789012345678901234567890123456789 M i8 z. X2 ~7 W3 @9 _
===============================================================================5 g8 J( _6 {# C. C" L
C <++++++> Cards punched by support routine on 13-Apr-10 16:56:55 <++++++>; Z+ }' u- V) Z3 M, {
C ***** UNTRANSPOSED JMARTI line segment ******
6 N" G: _ M/ V0 ~4 K FC JMARTI SETUP$ N3 k3 B/ @, n* N* s+ B
C $ERASE' ~& G" m- q' _3 t( d
C BRANCH IN___AOUT__AIN___BOUT__BIN___COUT__C9 p8 a1 n: `: {+ {" h: s
C LINE CONSTANTS& ?; c/ A% K5 h% w ]
C METRIC+ R( W3 L" X5 V3 c% j) e- c
C 10.259 0.069 4 2.9 -19.5 25.1 10.1 60. 45.9 Q) h2 j6 {( @5 \
C 20.259 0.069 4 2.9 0.0 25.1 10.1 60. 45.
7 _2 L% ^; U4 QC 30.259 0.069 4 2.9 19.5 25.1 10.1 60. 45.
8 e- |' g3 H$ E9 T, uC 00.175 0.44 4 1.54 -15. 39.7 24.7 0.0 0.01 A2 L6 i. `) [- T! I6 _' ~
C 00.175 0.44 4 1.54 15. 39.7 24.7 0.0 0.0
+ V, M. n3 i7 I- E. cC BLANK CARD ENDING CONDUCTOR CARDS3 {+ N, y+ u% R+ x7 d3 k) c
C 20. 1.E3 75.7 1
7 T$ Y' N/ s3 J# j2 P+ x! [; A# UC 20. 50. 75.7 1
2 V; i; {% m+ wC 20. 0.005 75.7 7 10 1
: X7 U0 b9 C' E1 O+ r% _1 `' }6 c$ r JC BLANK CARD ENDING FREQUENCY CARDS
* S6 l) t( D, }3 B7 nC BLANK CARD ENDING LINE CONSTANT
+ k7 {5 N1 @: j8 o5 ~" v, i! NC DEFAULT6 ~0 Z3 r/ R4 T& V0 x; O
-1IN___AOUT__A 2. 0.00 -2 3
6 y; p9 W" W9 e* O1 k( k 17 3.3876136028747050000E+02
/ v9 \+ t) I* L; z5 B7 y 1.56748087606698020E+02 1.53350246690381570E+02 5.91752415177784810E+01
V. n1 j6 D5 Y; c9 D 2.01342311994593360E+02 2.35228649588483170E+02 2.53692631526845670E+02, b& f( D% ~3 q2 {- _
1.66995629609519800E+02 3.13013616521086590E+02 7.77592731836887200E+02/ t+ {% K, K$ \6 X
2.92709376085682020E+03 8.36186324719264120E+03 6.39337717296788010E+031 v- Z! B, ^5 H# V
1.11850636212671030E+04 4.41394197432314540E+04 3.57997951874029590E+05
9 D, Y' j# S! v5 z8 U' }6 h& H 7.56151786639699950E+05 1.36950810507648970E+06
: R5 e# E% [$ b6 }% M- B. H; e 1.42216936124761770E-01 2.00869674971664410E-01 2.46548549642172290E-01
, R8 m. |' g$ ~% f0 c2 s0 l 4.83183838918269940E-01 8.90165197319727430E-01 1.60597725665316450E+00
# w$ J; j' x, [4 b+ |: ]" u 2.89724575888037260E+00 5.22044042049842180E+00 1.93205621429485000E+01
0 P3 D) X$ [# j V }- R. p: v 6.43540045186946370E+01 1.19989060419415150E+02 2.38618178257245120E+02. b3 V2 T/ M3 V" W& _. N
7.72151589982453290E+02 2.99346013405561330E+03 1.27367479883974610E+04
2 k5 y+ o j! H 5.61967457160417400E+04 1.12259275941284690E+05, S* _7 k7 k+ H
18 2.5648081591925806000E-04
3 t/ \- J* u7 m, g 4.39088902072225850E-02 2.51823882949434860E-01 2.09625388083036990E-01
2 L# ^/ z2 M/ {9 V4 a* n 3.78494708253580230E-01 4.21222198449916040E-01 1.12875930767027930E+00) C% n0 @5 e, C0 ^1 `# Y9 [
1.71876255372116240E+00 5.22622351239333400E+00 2.87507803450135600E+01
4 k% \/ H9 D5 e3 ?2 j 3.11711415283725670E+02 -4.25029687238800080E+02 4.11909331052564360E+03
7 P9 y! o( ]( F6 U 2.03169322161820860E+04 9.92298833352391920E+03 9.73079142175107300E+07; c' g6 K) x& y: X
-9.55146506480773540E+07 1.78452787243354890E+08 -1.80280334637975660E+08# Z( S. S( ^0 e( |+ C: o; |( S4 r
1.71037480519741610E+01 8.83202394182148960E+01 9.05344339387639390E+01" A$ G+ T+ Y* o) @: y6 O/ k3 `
1.45765976458050060E+02 1.67604264020870910E+02 4.33406916110919100E+02
4 ^9 M2 U, X, b/ T6 z 6.63140374794807490E+02 1.92887674552758430E+03 1.33200718265846740E+03
8 }" V* O3 ^* T3 v 5.71524437659357950E+03 1.42342855758340520E+04 1.25142080353191360E+04
; Q! q. k& N$ [, H2 b, g) s 3.62317843255328920E+04 5.63019677971675190E+04 2.08969723652870020E+05
" R7 [! R+ v, _3 Y/ l6 e, U 2.09178693376523150E+05 1.79625128065165980E+05 1.79804753193231360E+05
+ R5 u5 w ~" |, @; J-2IN___BOUT__B 2. 0.00 -2 3$ \+ }/ ?' k6 |
16 2.7356159603025270000E+02
I( u T2 b; ?+ m8 B: A! w 3.69404660026332070E+02 -6.57736076515949720E+01 3.81922741682533400E+02! V. Y/ {+ ^7 _
7.08453587370238780E+02 5.41167797769398360E+02 3.06226540265072910E+028 n$ H( N; }8 z8 d3 D- ?
9.12429137114825860E+01 1.45546235045872410E+02 4.35671648435959070E+02$ p/ w# z8 S6 [) O% i' l
9.89457112977898990E+02 1.20421629942927280E+04 2.52441351892631970E+04# d2 b# Y) e" [" w
1.31721403134872210E+05 1.00702634087143390E+05 1.00067739988421900E+05
! T8 V9 K' f7 [! v/ @" r' K 1.98945562771848960E+05
3 k3 G& x* M. g* r 1.48932587810283570E-01 1.91111259756068880E-01 5.23244958961560200E-01
0 [1 _9 z+ Q7 x* ] 1.98685487501559810E+00 5.99260600202752600E+00 1.07800276387683840E+018 }6 ]' g# \& I$ ]% F2 L
1.40587613181405300E+01 2.26773470722948250E+01 3.15477144275676150E+029 t0 I7 a# ` g/ P: B9 `
7.20661772011409880E+02 8.57135008822161760E+03 1.81290494844508870E+04
% I2 ^& J5 T& v2 x: F 9.82444873325722870E+04 6.84224792084696670E+04 7.51320465443383440E+04
$ N$ `' `5 M8 h/ L: H* } 1.48835602821329780E+05
/ K X- I7 H5 q; u" k 8 2.5331274985951097000E-04
& F) f4 G8 V& K1 R 9.77519359442743510E+00 9.06749971882869370E+01 3.89917698321721050E+02
" K d" R. x5 b7 H 2.14763901924745410E+03 3.21139859861504280E+03 7.78666160670429240E+03: Z: p9 P. t( Z; I i
-4.35590044273043600E+04 1.46424632739437020E+05
- n3 Q; T" @$ d" r; p 1.34347544158826870E+03 1.11481723747429880E+04 2.13548802821824830E+04
. [# r9 G/ l: c 3.88406059295760640E+04 4.48673492254774170E+04 6.34696015771263410E+04
2 o) o5 s2 f' X/ l( K' w3 A/ L 5.71514355618160570E+05 1.84730022532517380E+05, \- r L4 \8 l/ I; r' a' c
-3IN___COUT__C 2. 0.00 -2 3
! k4 J) B% l5 I9 J ]8 C8 j 12 2.4217757892053910000E+02
: ~" b9 m+ ^/ E/ Q7 b! b. J& j 3.11081567238861170E+02 -2.67647353791795130E+01 3.71876217221247710E+022 H/ w( X& V& f( M, T t2 b! {
7.07422509445779840E+02 7.84485674697519240E+02 5.15644097900284780E+01( q: P) A/ }8 p- | U
8.62357151535732380E+01 1.33677642835807010E+02 1.31608612652184290E+025 r+ ?+ w1 o: J" {6 Q
1.14893287428216410E+02 9.93716544256342760E+01 5.59773592553784180E+045 S' ?5 R* i: ~
1.34344252475530860E-01 1.81414794097451400E-01 5.11374925899225950E-01" r. e4 K4 p0 M; h, T
2.04824350656590370E+00 7.03072667690498320E+00 1.02204034540275260E+01
$ H3 T! w( D5 O' E8 N( D( I$ n8 { 1.40807516766374870E+01 2.26422726843327060E+01 3.61527808309766810E+01, ?2 b! u; s7 z0 ^! _
5.66127229741269180E+01 9.24983189391125220E+01 4.52655232370584050E+04
2 U8 _+ V( G& d 6 2.5172653258524589000E-041 b0 j7 {: L+ f2 O: U, n
9.16195806109742070E+00 3.77612637640999710E+02 6.49218461519983410E+02
1 u. w, H8 d8 `+ {: ]4 N% R7 Q 2.16338680527304540E+03 -2.80386507590504550E+04 4.81761010930565240E+05
\" R( x/ i; W8 S2 J5 q 1.48053740522388740E+03 4.65974978309593280E+04 5.01953038655574710E+04
1 d2 |) J8 C, T% }& A( |' x1 f 7.89025069563385330E+04 2.89584576325553890E+06 5.04629561166254750E+05
. |& I8 x( I( Y 0.57481400 -0.70710678 -0.42812257; H! }7 p3 E4 }
0.00000000 0.00000000 0.000000008 L% o# s( E3 o& k4 d
0.58238966 0.00000000 0.79587821( y B* a+ U# V+ o
0.00000000 0.00000000 0.000000002 z5 F# A( u( p! n# b6 H: C
0.57481400 0.70710678 -0.428122578 X, _; a& a6 x% j# P3 J
0.00000000 0.00000000 0.00000000
0 {3 a: \! B) T M. @3 O=========< End of LUNIT7 punched cards as flushed by $PUNCH request >=======; T9 b/ ~* O5 F% K% n' d5 j; `# J/ l
2 k" h7 n+ J) s( m2 _) y
Blank card ending "JMARTI SETUP" data. |BLANK CARD ENDING JMARTI SETUP3 v" o( s: e( K0 \
Total case timing (CP, I/O, tot), sec: 0.219 0.000 0.219- g1 g) M9 m0 e) ?0 h L! H8 y2 X
R L C参数是那些啊?麻烦您一下 |
|