Code covered by the BSD License  

Highlights from
ARMASA

from ARMASA by Piet M T Broersen
Automatic program to estimate the power spectral density with only statistically significant details

isnum(var)
function state = isnum(var)

if isequal(class(var),'double') & ...
      ~isempty(var) & ...
      ~any(any(isnan(var))) & ...
      ~any(any(isinf(var)));
   state = 1;
else
   state = 0;
end

Contact us at files@mathworks.com