% An asymmetric, double-welled potential. Width is < 5.4.
% It just v1doubledip(x) + x/10. The asymmetry is slight, but solutions to
% this potential using eigenvalue.m exhibit something resembling electron 
% localization. This is a concept with important semiconductor applications:
%     http://www.andersonlocalization.com/historyal50.php
% But is the behavior real, or is it a numerical artifact?
function v1 = v1localization(x)
v1 = x.^4 - 7*x.^2 + x/10 + 2;
outer = (abs(x) > 1);
v1(outer) = min(  0,  v1(outer)  );
