Code covered by the BSD License  

Highlights from
slatec

from slatec by Ben Barrowes
The slatec library converted into matlab functions.

[df2sresult,x]=df2s(x);
function [df2sresult,x]=df2s(x);
df2sresult=[];

;
df2sresult = 0.1d+03;
if( x~=0.0d+00 )
df2sresult = sin(0.314159d+03.*x)./(0.314159d+01.*x);
end;
csnil=dbstack(1); csnil=csnil(1).name(1)~='@';
if csnil&&~isempty(inputname(1)), assignin('caller','FUntemp',x); evalin('caller',[inputname(1),'=FUntemp;']); end
end %function df2s

Contact us