fresn.m

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

function  f=fresn(X);
%> Call: fresn(X) = the complex Fresnel function C(X) + i S(X)
%> Input: X is a real vector or matrix      
%> Output: fresn(X) is complex of the same dimension. 
%> For definitions and values of constants, see 
%> Mark A. Heald, Math. Comp. 44(170), 459-461 (1985)
%> and HMF Chap 7. 
%> This is a rational approximation with limited accuracy!
%>
%>