function x = scalar(q)% SCALAR   Quaternion scalar part.%% This function returns zero in the case of pure quaternions,% whereas the function S gives an error if q is pure.% Copyright