> phi := x -> exp(-beta*x^2);
> assume(beta>0); > V := x -> Vmax*(1-exp(-alpha*x^2));
> Vmax := 1e-20;
> alpha := 1e22;
> m := 1e-26;
> hbar := (6.626e-34)/(2*Pi);
> Kip := -hbar^2/(2*m)*int(phi(x)*diff(phi(x),x$2), x=-infinity..infinity);
> Vip := int(phi(x)^2*V(x),x=-infinity..infinity);
> ip := int(phi(x)^2,x=-infinity..infinity);
> Evar := (Kip+Vip)/ip;
> solve(diff(Evar,beta)=0,beta);
> plot(Evar,beta=1e21..5e21);
> assign(beta=.3404729218e22); > evalf(Evar);