function prelstddev=prsd(x)
% Percent relative standard deviation of vector x
prelstddev=100.*std(x)./mean(x);