.PS
cct_init

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

Org:Here
line -> up_ 2.5*dim
right_; "$|V|$ " rjust_
line -> from Org right_ 4* dim
"$x$" below
move to Org + (0,2.0*dim)
for ber = 0 to 3*dim by 3*dim/50 do {
  line to (ber,2.0*dim*exp(-0.5*ber))
}  

"$e^{-\alpha x}$" at Org + (10mm__, 2*dim)

line -> from Org + (10mm__,1*dim) right_ 2* dim
"Travel" above

move from Org down 3*dim
Org:Here
line -> up_ 2.5*dim
right_; "$|V|$ " rjust_
line -> from Org right_ 4* dim
"$x$" below
move to Org
for ber = 0 to 3*dim by 3*dim/50 do {
  line to (ber,1.0*dim*exp(0.3*ber)-3.8*dim)
}  

"$e^{\alpha x}$" at Org + (30mm__, 2*dim)

line <- from Org + (10mm__,1*dim) right_ 2* dim
"Travel" at Org + (10mm__,1.2*dim)

"\tiny wave" at (3*dim,-3.25*dim)
.PE