/* effective noise bandwidth */
enbw(s)
{
        local m, nb;

        if (argc < 1) s = refseries();

        m  = mean(s);
        nb = mean(s * s) / (m * m);

        return(nb);
}