|
楼主 |
发表于 2010-4-21 21:04:42
|
显示全部楼层
回复 4# 大笨蛋
$ k, r, S) o% p% v: N# O) d9 `
4 T: G9 a* ^' r是不是从生成的lis文件中查找?. m2 T: @8 Z5 }# _1 j
Alternative Transients Program (ATP), GNU Linux or DOS. All rights reserved by Can/Am user group of Portland, Oregon, USA.
; G4 a, g. x$ U; g" i; ]$ Q 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- m2 @4 y7 ?3 C8 v( z3 R; j3 \
Consult the 860-page ATP Rule Book of the Can/Am EMTP User Group in Portland, Oregon, USA. Source code date is 21 February 2003.
* O$ e( W6 F7 v3 u# f. nTotal size of LABCOM tables = 9868232 INTEGER words. VARDIM List Sizes follow : 6002 10K 192K 900 420K 1200$ c/ f1 t" C9 y9 o# V3 b
15K 120K 2250 3800 720 1200 72800 510 90K 800 90 254 120K 100K 3K 15K 192K 120 30K 160K 600 210K 300 60
1 b4 ], y/ D3 Z--------------------------------------------------+--------------------------------------------------------------------------------
# K+ Z1 N0 [: i7 U' a0 ^4 t* mDescriptive interpretation of input data cards. | Input data card images are shown below, all 80 columns, character by character; {5 h5 l7 l. P5 U# M s0 H
0 1 2 3 4 5 6 7 8
& h+ ?* Z6 f; v5 u 0123456789012345678901234567890123456789012345678901234567890123456789012345678906 B# a( L( l$ `* `+ ]
--------------------------------------------------+--------------------------------------------------------------------------------8 z2 U, f7 e& v7 l
Comment card. KOMPAR > 0. |C data:LIN750_4.ATP$ m3 R+ F& R9 i" Z
Marker card preceding new EMTP data case. |BEGIN NEW DATA CASE$ w* F/ E, Y+ S+ r! ?( [
Jose Marti`s line fitter. PDT0 = 0.00000000E+00 |JMARTI SETUP" p3 I) @/ |, D C- a6 a+ E
Erase all of 0 cards in the punch buffer. |$ERASE) }; V7 u3 C2 ` `/ q" I
Pairs of A6 terminal node names for each phase. |BRANCH IN___AOUT__AIN___BOUT__BIN___COUT__C
! T7 p* I$ v0 m% @6 h: hCompute overhead line constants. Limit = 120 |LINE CONSTANTS! e# O+ c( S! _8 I
Request for metric (not English) units. |METRIC
0 O" D; ^9 p4 t% t; W/ K# z# b1 iLine 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
0 x. l* Y( Z: q; K1 _ `$ M3 l, C" RLine conductor card. 2.590E-01 6.900E-02 4 | 20.259 0.069 4 2.9 0.0 25.1 10.1 60. 45. 42 M% ^1 c0 H0 k6 ?6 V+ X/ A# [
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$ x* |. e# O8 v# ?( z1 y
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
3 l! {( R3 N7 r# {- w/ [2 O, i' |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 02 k1 S: C4 ^) M9 ?
Blank card terminating conductor cards. |BLANK CARD ENDING CONDUCTOR CARDS5 L7 O$ j, q$ g0 V$ F
Frequency card. 2.000E+01 1.000E+03 7.570E+01 | 20. 1.E3 75.7 19 X0 e! w% V4 v
3 E' [2 w1 k0 @& C% X! z
Line conductor table after sorting and initial processing.( v9 n. {, y* A+ K$ j! h
Table Phase Skin effect Resistance Reactance data specification Diameter Horizontal Avg height
4 k- x- R* r+ m6 T# V Row Number R-type R (ohm/km) X-type X(ohm/km) or GMR ( cm ) X (mtrs) Y (mtrs) Name
' Q, Y. T4 V# m1 B: v$ s" T5 b 1 1 .25900 .06900 4 .000000 2.90000 -19.200 14.800# P. H3 H) F4 ^. E, C0 T4 @5 p
2 2 .25900 .06900 4 .000000 2.90000 0.300 14.800
+ g9 a* q$ d1 L2 U0 y: w) _3 F8 W8 \9 \ 3 3 .25900 .06900 4 .000000 2.90000 19.800 14.800 Y! P) _! t+ L) X& |9 W2 J+ ?
4 1 .25900 .06900 4 .000000 2.90000 -19.800 14.800
- Y: E1 d/ d1 L' W/ a8 z; ~6 s 5 1 .25900 .06900 4 .000000 2.90000 -19.800 15.400+ s- q7 u) h2 F. A+ |# N. t) g
6 1 .25900 .06900 4 .000000 2.90000 -19.200 15.400
# e4 \% S; V) X' C; U( }) h# p 7 2 .25900 .06900 4 .000000 2.90000 -0.300 14.800
1 \- j0 U2 k" }9 D 8 2 .25900 .06900 4 .000000 2.90000 -0.300 15.400( |" [5 p. G+ G
9 2 .25900 .06900 4 .000000 2.90000 0.300 15.400
0 T/ X6 O( X# U/ [ 10 3 .25900 .06900 4 .000000 2.90000 19.200 14.800
! X) i$ F! V$ h 11 3 .25900 .06900 4 .000000 2.90000 19.200 15.400
. O1 q) I( B! o9 ?* t; e8 P3 I 12 3 .25900 .06900 4 .000000 2.90000 19.800 15.400
6 T2 C% p% ]) T) U 13 0 .17500 .44000 4 .000000 1.54000 -15.000 29.7002 N9 n4 A/ m0 L' `8 b/ ~
14 0 .17500 .44000 4 .000000 1.54000 15.000 29.7004 t4 r7 ]9 W) o' \' s8 N
3 i( S( y8 ^. [" p7 b; OMatrices are for earth resistivity = 2.00000000E+01 ohm-meters and frequency 1.00000000E+03 Hz. Correction factor =" s1 l8 A$ B/ F( j" a1 r
1.00000000E-06
, S0 l1 W4 `+ F) }; ?! z7 u ! ?+ r( N$ z% J9 a
Modal parameters at frequency FREQ = 1.00000000E+03 Hz7 @$ T- |! B) V. }$ M, Y
- J4 p; V1 e6 f/ l7 [Eigenvector matrix [Ti] for current transformation: I-phase = [Ti]*I-mode. First the real part, row by row:( X4 a! e8 P' z2 P+ G
5.748140047158274E-01-7.071067811865638E-01-4.281225696572995E-011 k8 u+ L) a* @. O( {
5.823896633398591E-01 1.700454252111332E-14 7.958782134849792E-01( E% u& `3 Y7 h9 L, H
5.748140047158198E-01 7.071067811865313E-01-4.281225696573222E-01
+ E# k- q2 Y1 s8 `" B$ X4 ~) B* h0 nFinally, the imaginary part, row by row:
9 [% f2 h3 P- ~% f+ k 0.000000000000000E+00 0.000000000000000E+00 0.000000000000000E+00# C7 s9 ^9 u2 J0 b& a7 h
0.000000000000000E+00 0.000000000000000E+00 0.000000000000000E+00
+ v+ t: q8 W, U7 i& K 0.000000000000000E+00 0.000000000000000E+00 0.000000000000000E+00
; Y8 u5 O; J9 c% n; l+ ?+ U# MFrequency card. 2.000E+01 5.000E+01 7.570E+01 | 20. 50. 75.7 1
) p% q$ j9 J S2 o # j9 \7 i8 w& a9 i( T' Q
Matrices are for earth resistivity = 2.00000000E+01 ohm-meters and frequency 5.00000000E+01 Hz. Correction factor =
7 n5 Y: B- @' x' x7 Z1.00000000E-069 u0 v5 g+ f: e v" v
Frequency card. 2.000E+01 5.000E-03 7.570E+01 | 20. 0.005 75.7 7 10 1
* ]4 e; N: S! I: hBlank card terminating frequency cards. |BLANK CARD ENDING FREQUENCY CARDS+ p3 K* {4 T. O
Blank card ending "LINE CONSTANTS" cases. |BLANK CARD ENDING LINE CONSTANT3 p) N* ^. x+ e7 |2 z% ?
Request for default fitting (= 3 blank cards) |DEFAULT( W z0 u- A; N' u- o
! {+ M/ J$ H" t: ?4 [6 [- [
===== ===== Begin Zc fitting for mode IMODE = 1 ===== =====
; ]! l" c9 C- h1 L/ `The number of poles NPOLES = 41 in this loop exceeds the specified limit NORMAX = 30
( L) ^$ z* N; S: Z5 U5 L3 L/ g
( L! @+ p2 g/ b9 J @@@@@ @@@@@ Begin A1 fitting for mode IMODE = 1 @@@@@ @@@@@
! Y/ e6 T( V* h( I - | f. L# A$ H5 S1 w
===== ===== Begin Zc fitting for mode IMODE = 2 ===== =====
2 f: X- a" T( s" V; p: CThe number of poles NPOLES = 34 in this loop exceeds the specified limit NORMAX = 30
- T0 o/ \& l7 W8 ~ Y% n% y
' q1 o6 l; u) W% _ @@@@@ @@@@@ Begin A1 fitting for mode IMODE = 2 @@@@@ @@@@@) y' j2 o# `- I% r/ l. T! G9 Y$ U
% a* |* H# Q5 I, s9 p# e: g===== ===== Begin Zc fitting for mode IMODE = 3 ===== ===== l/ {$ t. w5 g0 t- j, S
The number of poles NPOLES = 31 in this loop exceeds the specified limit NORMAX = 30& Q0 A* j/ [" b$ [+ _ W
: {$ i5 q: L! G7 o5 f5 N, F
@@@@@ @@@@@ Begin A1 fitting for mode IMODE = 3 @@@@@ @@@@@
( h& \7 _9 U; O0 @0 |' Q1 w- ~
7 z3 `% ?2 l ERequest for flushing of punch buffer. |$PUNCH
0 x: x5 H6 i9 B3 W L- N
: j6 K4 V( ^# f9 C1 e$ x# @A listing of 80-column card images now being flushed from punch buffer follows.
( r) g2 n0 P3 g. O% F0 w4 z& y/ \+ n===============================================================================' C+ W* E' W( B$ [- b
1234567890123456789012345678901234567890123456789012345678901234567890123456789
O2 w( Y2 s$ ]4 z7 E# j4 _===============================================================================) j. q6 ]2 d. |2 E- s0 F
C <++++++> Cards punched by support routine on 13-Apr-10 16:56:55 <++++++>
6 A. j6 J" A3 s- U0 VC ***** UNTRANSPOSED JMARTI line segment ******- [; J0 L+ `: B! _, ^4 d- _
C JMARTI SETUP' |6 u' K/ X- H6 p- l
C $ERASE
2 f0 ] n/ @7 q* GC BRANCH IN___AOUT__AIN___BOUT__BIN___COUT__C
- x' f `5 x: j, V5 i: WC LINE CONSTANTS, f, f( m" R+ k, n5 M# Y
C METRIC& g. x9 e8 F4 Z/ |6 G
C 10.259 0.069 4 2.9 -19.5 25.1 10.1 60. 45.
* ?/ T" Q' G+ g1 ~7 iC 20.259 0.069 4 2.9 0.0 25.1 10.1 60. 45.
' W1 i# ~% v: S1 T+ ?# g# x6 YC 30.259 0.069 4 2.9 19.5 25.1 10.1 60. 45., k" c h. H6 S% }$ i# o
C 00.175 0.44 4 1.54 -15. 39.7 24.7 0.0 0.0: w2 r c! @% `/ Z! {9 T
C 00.175 0.44 4 1.54 15. 39.7 24.7 0.0 0.0
7 W* b: B% ^, `$ u3 x( p- NC BLANK CARD ENDING CONDUCTOR CARDS
4 { f$ w9 ]+ p' b7 uC 20. 1.E3 75.7 1% F' \* k9 G$ I7 ?2 e
C 20. 50. 75.7 1& C$ j" _% \* N
C 20. 0.005 75.7 7 10 1$ @& m/ z1 Y7 Q d3 e/ r
C BLANK CARD ENDING FREQUENCY CARDS
3 x" F. @2 l! S, t" a: u3 YC BLANK CARD ENDING LINE CONSTANT$ v# ?3 s5 }8 s" e
C DEFAULT$ P9 g0 N' H! ~5 [
-1IN___AOUT__A 2. 0.00 -2 3
5 |! j+ {6 B2 l, G$ t 17 3.3876136028747050000E+02
5 ^9 |" S( H6 r& V. G" D 1.56748087606698020E+02 1.53350246690381570E+02 5.91752415177784810E+01. \& m9 S: Q+ o6 t' K
2.01342311994593360E+02 2.35228649588483170E+02 2.53692631526845670E+02/ U0 { T% P! [+ M; J H
1.66995629609519800E+02 3.13013616521086590E+02 7.77592731836887200E+02! L' Y1 M2 D/ {
2.92709376085682020E+03 8.36186324719264120E+03 6.39337717296788010E+03" k# C5 G8 I$ C- |! b2 U* _# g
1.11850636212671030E+04 4.41394197432314540E+04 3.57997951874029590E+050 ]7 \& a) X- {/ \% ?
7.56151786639699950E+05 1.36950810507648970E+06
* V# g* N* o- X4 P 1.42216936124761770E-01 2.00869674971664410E-01 2.46548549642172290E-01. s- O- ^' H$ W! W, S3 }) N
4.83183838918269940E-01 8.90165197319727430E-01 1.60597725665316450E+00
! o, x1 J* E6 y( W 2.89724575888037260E+00 5.22044042049842180E+00 1.93205621429485000E+01
0 H5 h6 O) M0 t8 ~/ B- D5 {/ J% f 6.43540045186946370E+01 1.19989060419415150E+02 2.38618178257245120E+02
) a5 _, H3 a: L* Y; h) y 7.72151589982453290E+02 2.99346013405561330E+03 1.27367479883974610E+04" U9 Y$ L( O+ y2 d: u
5.61967457160417400E+04 1.12259275941284690E+054 ?2 t& k0 |4 s9 b( n( p! W$ P
18 2.5648081591925806000E-04
1 h) [& k/ b- i3 _& ~" R v 4.39088902072225850E-02 2.51823882949434860E-01 2.09625388083036990E-01
: H5 F/ l, F* \ k8 C/ i 3.78494708253580230E-01 4.21222198449916040E-01 1.12875930767027930E+00
- z O# @ r, i& g- J 1.71876255372116240E+00 5.22622351239333400E+00 2.87507803450135600E+01
9 Q3 }& k0 m4 _* X3 n 3.11711415283725670E+02 -4.25029687238800080E+02 4.11909331052564360E+034 x O5 N! l* I$ y3 u
2.03169322161820860E+04 9.92298833352391920E+03 9.73079142175107300E+07; S' _% G( s% }- R5 a0 i
-9.55146506480773540E+07 1.78452787243354890E+08 -1.80280334637975660E+08/ Y0 |. e4 y! P# i( s8 l$ }* ^+ |! P
1.71037480519741610E+01 8.83202394182148960E+01 9.05344339387639390E+01
& K3 }4 B4 K& N( o3 k$ n& z' r6 B) V- s 1.45765976458050060E+02 1.67604264020870910E+02 4.33406916110919100E+02
2 a% ]4 ^8 q% W8 c* ]) d2 @ 6.63140374794807490E+02 1.92887674552758430E+03 1.33200718265846740E+03$ A+ i: V3 Z4 @; [4 n2 h
5.71524437659357950E+03 1.42342855758340520E+04 1.25142080353191360E+04
& j/ ?- _: Y: O* \4 I8 E6 _2 ^! X+ [ 3.62317843255328920E+04 5.63019677971675190E+04 2.08969723652870020E+056 d7 j, X j1 {; V
2.09178693376523150E+05 1.79625128065165980E+05 1.79804753193231360E+053 \+ S7 a4 l2 F9 B/ U+ a: j
-2IN___BOUT__B 2. 0.00 -2 3
$ u& Z% ]: s0 M; c7 H 16 2.7356159603025270000E+02/ |: l, i" y0 i0 B/ c
3.69404660026332070E+02 -6.57736076515949720E+01 3.81922741682533400E+02. l. o) M2 p6 |0 A; _
7.08453587370238780E+02 5.41167797769398360E+02 3.06226540265072910E+020 K6 I; P6 e! ?. [% W4 P
9.12429137114825860E+01 1.45546235045872410E+02 4.35671648435959070E+02
4 ]$ w- H5 ~( a, G6 Y4 L2 p% R% X 9.89457112977898990E+02 1.20421629942927280E+04 2.52441351892631970E+04: t+ D6 H/ X7 l! g
1.31721403134872210E+05 1.00702634087143390E+05 1.00067739988421900E+052 U" ~$ |- c4 C8 r9 ?' h
1.98945562771848960E+05" E7 e" q; O7 d7 \
1.48932587810283570E-01 1.91111259756068880E-01 5.23244958961560200E-01- U9 b9 B% O- B2 R. e5 t
1.98685487501559810E+00 5.99260600202752600E+00 1.07800276387683840E+01
# G1 H( B1 |2 }0 ]8 s 1.40587613181405300E+01 2.26773470722948250E+01 3.15477144275676150E+02& I3 \ M8 `! G
7.20661772011409880E+02 8.57135008822161760E+03 1.81290494844508870E+04
% b. S# P$ P' [2 q* i. A% y 9.82444873325722870E+04 6.84224792084696670E+04 7.51320465443383440E+04
+ |, p! j' n4 ]# K) R 1.48835602821329780E+059 C: ]$ l+ z; v/ U! K! i
8 2.5331274985951097000E-04
7 J, U3 e' a4 `' ~' M4 l; m2 c8 J Z 9.77519359442743510E+00 9.06749971882869370E+01 3.89917698321721050E+02
% A3 n# j5 A2 X8 P 2.14763901924745410E+03 3.21139859861504280E+03 7.78666160670429240E+03! {! |: k9 e7 o
-4.35590044273043600E+04 1.46424632739437020E+054 ]) N1 c/ i5 H
1.34347544158826870E+03 1.11481723747429880E+04 2.13548802821824830E+04" M; [8 e, u- m1 M( i- [- o
3.88406059295760640E+04 4.48673492254774170E+04 6.34696015771263410E+04
' v5 ?( z+ ?2 g! P& U B 5.71514355618160570E+05 1.84730022532517380E+05: _3 R) }# l4 z' R" [# s! G
-3IN___COUT__C 2. 0.00 -2 3
* C$ h6 d1 A. Y2 \ 12 2.4217757892053910000E+02
. }" @0 B$ d3 H 3.11081567238861170E+02 -2.67647353791795130E+01 3.71876217221247710E+02
1 d5 s: ^) W3 {) I( C: }3 B 7.07422509445779840E+02 7.84485674697519240E+02 5.15644097900284780E+019 Q; x/ J# A. \* s) d6 d
8.62357151535732380E+01 1.33677642835807010E+02 1.31608612652184290E+02. q4 t3 r5 D7 ~2 q
1.14893287428216410E+02 9.93716544256342760E+01 5.59773592553784180E+04+ a* k7 F- z* w+ R6 x- e
1.34344252475530860E-01 1.81414794097451400E-01 5.11374925899225950E-010 w- j3 C4 n- I! z' Q
2.04824350656590370E+00 7.03072667690498320E+00 1.02204034540275260E+01; w' f! w, h2 y" f- g8 G
1.40807516766374870E+01 2.26422726843327060E+01 3.61527808309766810E+015 k9 ?# l1 I+ w& ~& J- Y% }6 F' U/ F
5.66127229741269180E+01 9.24983189391125220E+01 4.52655232370584050E+04* o( z6 k: N* ^! t o# S5 O+ a
6 2.5172653258524589000E-043 b9 r$ A6 a0 B4 S
9.16195806109742070E+00 3.77612637640999710E+02 6.49218461519983410E+02
4 q2 u! }% e( ?: |9 T% P" s) t 2.16338680527304540E+03 -2.80386507590504550E+04 4.81761010930565240E+050 G% m( e! M: E) c4 q/ W
1.48053740522388740E+03 4.65974978309593280E+04 5.01953038655574710E+04( }' H# \& ]: E& n
7.89025069563385330E+04 2.89584576325553890E+06 5.04629561166254750E+05& f. m3 a+ Q0 _3 ]: y/ @# X( n
0.57481400 -0.70710678 -0.42812257
' {2 a$ \0 c: \- Q# v3 K 0.00000000 0.00000000 0.00000000
4 i9 E% ^) D2 M4 u% Y% L* A2 G 0.58238966 0.00000000 0.79587821
$ }) }! s8 y4 x2 c 0.00000000 0.00000000 0.00000000& e6 j' e* U- N3 _2 G+ n
0.57481400 0.70710678 -0.42812257
8 E. @7 o8 H1 @% e4 b/ _) q H3 T 0.00000000 0.00000000 0.00000000
0 K6 v5 Z3 O8 Y' v) i+ \0 s/ x; G=========< End of LUNIT7 punched cards as flushed by $PUNCH request >=======
% ]- ^- n5 R$ x% ~7 |& E; D , C7 H, k# P) N# x. v* v
Blank card ending "JMARTI SETUP" data. |BLANK CARD ENDING JMARTI SETUP- X+ Z3 S- y& I) H" P
Total case timing (CP, I/O, tot), sec: 0.219 0.000 0.219
0 J/ a4 T: C5 B R L C参数是那些啊?麻烦您一下 |
|