findzero.m

求解量子力学的薛定谔方程

function  f=findzero(x,y);
%> The file <findzero.m> finds 'all' zeros in a given interval.
%> This is done in a rough and ready way by spline interpolation.
%> Call: w=findzero(x,y); finds zeros of y as a function of x.  
%> Input: x, y  = row vectors of same dimension, x representing
%> equispaced arguments of the independent variable
%> Output: w = row vector of zeros.
%> Source of errors: zeros too close cannot be resolved, and are likely
%> to escape detection altogether!
%>
%>