function bVal = bSplineFunc(val)

% Subfunction of the Simulated Annealing program.
% Computes the value of the B-spline function.


val = abs(val);

if (val < 1)
    bVal = 2/3 + (val.^3)/2 - val^2;
elseif (val < 2)
    bVal = ((2 - val).^3)/6;
else
    bVal = 0;
end