.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; L1:line right_ 50mm__ line right_ 5mm__ resistor(down_,,E); llabel(,Z_L) line left_ 5mm__ line left_ 50mm__ "$Z_0; j\beta$" at L1.center+(0,-hlf) move to L1.start gap(down_,1) move to L1.end gap(down_,1) "$x=0$" at L1.end+(0,6mm__) "$x=x$" at L1.start+(0,6mm__) line <- from L1.start+(0,3mm__) to L1.end+(0,3mm__) move to L1.start line -> up_ from Here+(0,-dim) "$V_x$" at last line.center+(3mm__,0) line -> from L1.start+(-5mm__,-15mm__) right_ 10mm__ "$I_x$" at last line.center+(0,-3mm__) move to L1.start+(-qrt,-hlf) line <- left_ hlf then down_ qrt "$Z_x$" at Here+(0,-2mm__) "\tiny term2" at (L1.center.x,-20mm__) .PE