.PS
cct_init

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

Org:Here
# λ/4 o/c Standing Wave envelopes.
L1:line right_ 50mm__
#line right_ 5mm__
#resistor(down_,,E); llabel(,Z_L)
#line left_ 5mm__
move down_ dim
line left_ 50mm__

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

move to L1.start
resistor(left_,E)
source(down_,AC)
line right_

move to L1.start
gap(down_,1)
move to L1.end
gap(down_,1)

right_
# It draws a COSINE.... hence -pi_/2 :-)
#sinusoid(amplitude,radians/distance,startPhase,startDist,endDist,linetype)
n=0.25;   # number of cycles.
x=50mm__; # length of sinusoid.

sinusoid(dim,twopi_*n/x,-pi_/2,0,x,dashed) with .Start at L1.start
"$V$" at L1.end+(4mm__,dim)
sinusoid(dim,twopi_*n/x,-pi_/2,x,2*x,dotted) with .Start at L1.start+(0,dim)
"$I$" at L1.start+(-4mm__,dim)

"o/c" at L1.end+(0,-hlf)
dimension_(from L1.end+(0,-1.3*dim) to L1.start+(0,-1.3*dim)\
  ,,$x=\lambda/4$,16mm__,,->)

move to L1.start then down 3*dim

# Cut 'n paste for λ/2
L1:line right_ 50mm__
#line right_ 5mm__
#resistor(down_,,E); llabel(,Z_L)
#line left_ 5mm__
move down dim
line left_ 50mm__

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

move to L1.start
resistor(left,E)
source(down,AC)
line right

move to L1.start
gap(down_,1)
move to L1.end
gap(down_,1)

right_
# It draws a COSINE.... hence -pi_/2 :-)
#sinusoid(amplitude,radians/distance,startPhase,startDist,endDist,linetype)
n=0.5;   # number of cycles.
x=50mm__; # length of sinusoid.

sinusoid(dim,twopi_*n/x,-pi_/2,-x/2,x/2,dashed) with .Start at L1.start+(0,-dim)
"$V$" at L1.end+(4mm__,dim)
sinusoid(dim,twopi_*n/x,-pi_/2,0,x,dotted) with .Start at L1.start#+(0,dim)
"$I$" at L1.center+(0,dim+2mm__)

"o/c" at L1.end+(0,-hlf)
dimension_(from L1.end+(0,-1.3*dim) to L1.start+(0,-1.3*dim)\
  ,,$x=\lambda/2$,16mm__,,->)


move to L1.start then down 3*dim
# Finally, Cut 'n Paste for the Matched Case.
L1:line right_ 50mm__
line right_ 5mm__
resistor(down_,,E); llabel(,Z_0)
line left_ 5mm__
line left_ 50mm__

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

move to L1.start
resistor(left,E)
source(down,AC)
line right

move to L1.start
gap(down_,1)
move to L1.end
gap(down_,1)

right_
line dashed from L1.start+(0,5mm__) to L1.end+(0,5mm__)
"$V$" at L1.end+(4mm__,5mm__)
line dotted from L1.start+(0,10mm__) to L1.end+(0,10mm__)
"$I$" at L1.end+(4mm__,10mm__)

dimension_(from L1.end+(0,-1.3*dim) to L1.start+(0,-1.3*dim)\
  ,,$x=$ Any,16mm__,,->)

"\tiny VoltTr" at L1.end+(0,-20mm__)
.PE