No BSD License  

Highlights from
Tolerance Analysis of Electronic Circuits Using MATLAB

frac(x)
function c = frac(x)
% Fractional value of x
c=x-floor(x);

Contact us at files@mathworks.com