% A symmetric, double-welled potential. Width is < 5.4.
function v1 = v1doubledip(x)
v1 = x.^4 - 7*x.^2 + 2;
outer = (abs(x) > 1);
v1(outer) = min(  0,  v1(outer)  );
