.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; source(up_,AC) resistor(right_) llabel(,Z_a,); dot {line dotted down; "ant" rjust_ at last line.center; "elec" ljust_ at last line.center} line right_ resistor(down_); llabel(,R_\mathrm{int}) line left_; dot line left_ move right_ 4*dim resistor(up_); llabel(,Z_a,); line right_; dot {line dotted down; "ant" rjust_ at last line.center; "elec" ljust_ at last line.center} resistor(right_); llabel(,R_\mathrm{tx}) source(down_,AC) line left_; dot line left_ "Receive" at(dim,-dim/2) "Transmit" at(5*dim, -dim/2) "\tiny Rloss" at (2*dim,-dim) .PE