//Среднеквадратичный разброс интенсивности аппроксимированных значений
    float srKvOtklAppr;
    for(i = 0; i < m; i++)
    {
        kvOtkl[i] = pow(NAppr[i] - NApprSr, 2);
        Dispers += kvOtkl[i];
    }
    Dispers /= m;
    srKvOtklAppr = sqrt(Dispers);
    sgDataSet->Cells[1][7] = FloatToStrF(srKvOtklAppr, ffNumber, 10, 3);

    //////////////////////////////////////////////////////////////////////

    //Вычисление линейного коэффициента корреляции между эмпирическими(исходными)
    // и теоретическими(аппроксимированными) значениями
    int l;
    float r;
    for(i = 0; i < m; i++)
        l = (DataSet[i].N - NSred)*(NAppr[i] - NApprSr);

    r = l / (m * srKvOtklAppr * SrKvOtkl);