.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,4mm__)
"$x=x$" at L1.start+(0,4mm__)

move to L1.start+(5mm__,0)
line -> up_ from Here+(0,-dim)
"$V_i$" at last line.center+(3mm__,0)
line -> from L1.start+(0,-15mm__) right_ 10mm__
"$I_i$" at last line.center+(0,-3mm__)
"Incident" at last line.center+(0,-7mm__)

move to L1.end+(-5mm__,0)
line -> up_ from Here+(0,-dim)
"$V_r$" at last line.center+(3mm__,0)
line -> from L1.end+(0,-15mm__) left_ 10mm__
"$I_r$" at last line.center+(0,-3mm__)
"Reflected" at last line.center+(0,-7mm__)

"\tiny termtrln" at (L1.center.x,-20mm__)
.PE