/// <summary>
        /// Получение значений для характеристики LSFM
        /// </summary>
        /// <param name="m"></param>
        /// <param name="K"></param>
        /// <param name="s"></param>
        /// <returns></returns>
        private double LFunction(int m, int K, double[][] s)
        {
            double L  = 0.0;
            int    mm = 0;

            if (m <= R)
            {
                mm = 0;
            }
            else
            {
                mm = m - R;
            }

            for (int k0 = 0; k0 < K; k0++)
            {
                double means = MathOperations.GeometricMean(s, k0, m, m - mm) / MathOperations.ArithmeticMean(s, k0, m, m - mm);
                if (means == 0)
                {
                    L = 0;
                }
                else
                {
                    L = L + Math.Log10(means);
                }
            }
            return(L);
        }