TDFD COUPLED ROUTINE ORIG

b34ced9b-964c-4b84-9760-5e39ae00547a 15 TDFD COUPLED ROUTINE ORIG Reg Curry Computes the transmission line coupled equations with an explicit time domain finite difference routine. Runs faster if the POINTS PER DECADE is used first to allow broader time ranges. 3 3 false false 0 decimal

&[DATE] &[TIME] - &[FILENAME]

COUPLED TDFD ROUTINE

Ans a 1 Ncell range b 1 Nt range AI a b el 0 : VG a b el 0 : 21 line for for k 2 Nt 1 - (range j 1 Ncell range j 1 ≤ ΔI AI j k 1 - el eval : ΔI AI j k 1 - el AI j 1 - k 1 - el - eval : if j 1 ≡ VG AI ZT.0 * eval : j Ncell ≡ VG AI ZT.Ncell * eval : VG j k el VG j k 1 - el ΔI Δz / Δt k el CCg k el / * - 1 Δt k el CCg k el / Gg k el * + / : if if VT VG : 31 line for n 1 Ncell 1 - (range ΔV VT n 1 + k el VT n k el - eval : AI n k el AI n k 1 - el Δt k el L k el / E k el ΔV Δz / - (* + 1 Δt k el L k el / R k el * + / : AI 31 line for 21 line for 11 line VT AI 21 mat 31 line :

Initialize Results to Zero

Time Loop on k

Spatial Loop on j for Voltage

Currents From Previous Time k-1

Votage at End Point Terminations ZT

Voltage at Remaining Cable Points

Spatial Loop on n for Current

Voltages at Present Time k

Current at Point n and Present Time k

V Ans 1 Ncell 1 Nt 1 - submatrix :

Ans1 Ans eval :

I Ans Ncell 2 Ncell * 1 Nt 1 - submatrix :

V Ans1 1 el :

I Ans1 2 el :