.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; line right_ hlf; {dot(at last line.start,,1)} # Over. dot capacitor(down_); llabel(,C_\mathrm{Match}); dot ; {line left_ hlf; dot(,,1)} {line right_ dim; ground} move up_ dim ; inductor(right_,W); rlabel(,L_\mathrm{Match}); dot; D1:Here inductor(up_,W); rlabel(,L_\mathrm{Resonate}) capacitor(up_); rlabel(,C_\mathrm{Ant. Reactance}) resistor(up_); rlabel(,R_\mathrm{Radiation}) line dashed from D1+(-dim,dim) to \ D1+(dim,-dim) "Match" at last line.start+(-1mm__,-1mm__) rjust #"`\rput[B]{90}(0,0){Antenna}'" at last line.start ljust "\rput[Bl]{90}(0,0){Antenna}" at last line.start+(1mm__,1mm__) "\tiny LMatch" at (dim,-1.5*dim) .PE