evalpol.m

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

function f=evalpol(p,x);
%> evalpol.m does polynomial evaluation for a number of polynomials
%> given by a matrix p, where each row represents the coefficients of a 
%> polynomial, in descending powers.  
%> Call evalpol(p,x); 
%> Input: p a matrix, x a row vector
%> Output = matrix, # rows given by p, # columns = length of x
%> (Compare MATLAB routine polyval) 
%>
%>