.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_; 

# \lambda/4 match
L1:line right_ 20mm__
line right_ 5mm__
resistor(down_,,E); llabel(,Z_L=113\ts\Omega)
line left_ 5mm__
line left_ 20mm__

"$Z_0; j\beta$" at L1.center+(0,-hlf)

# Main trln
line from L1.start down 2mm__
L2:line left 40mm__
line up 2mm__
line from L1.start+(0,-dim) up 2mm__ then left 40mm__ then down 2mm__

"$50\ts\Omega; j\beta$" at L2.center+(0,-5mm__)

move to L2.end+(0,2mm__)
resistor(left_); rlabel(,50\ts\Omega)
source(down_,AC);rlabel(,5\ts\text{MHz})
line right


#Do last to overwrite with white....
move to L1.start
gap(down_,1)
move to L1.end
gap(down_,1)
move to L2.end+(0,2mm__)
gap(down_,1)

move to L1.end+(0,-1.5*dim)
dimension_(left 20mm__,,$\lambda/4$,6mm__)
move left 20mm__
dimension_(left 40mm__,,100\ts m,10mm__)

"\tiny match" at L1.end+(10mm__,-20mm__)
.PE