ISmGeneralizedParetoDistribution.MLESettings

Копировать пример

Sub UserProc;
Var
    distr: ISmGeneralizedParetoDistribution;
    i: Integer;
    Values: Array Of Double;
    cnt: Integer = 10;
Begin
    distr := New SmGeneralizedParetoDistribution.Create;
    // задаем параметры распределения:
    distr.Location := 0.1;
    distr.Scale := 0.1;
    distr.Shape := 0.1;
    // генерация случайного ряда:   
    Values := distr.RandomVector(cnt);
    // задаем максимальное число итераций:
    distr.MLESettings.MaxIterations := 10;
    // задаем точность решения:
    distr.MLESettings.Tolerance := 0.000000001;
    // вывод сообщений об ошибках
    Debug.WriteLine(distr.Errors);
    // вывод параметров сдвига, масштаба, формы:
    Debug.WriteLine(distr.Name + "(" + distr.Location.ToString + "," + distr.Scale.ToString + "," + distr.Shape.ToString + ")");
    Debug.WriteLine("Сгенерированный ряд:");
    Debug.Indent;
    For i := 0 To Cnt - 1 Do
        Debug.Write(i.ToString + " ");
        Debug.WriteLine(Values[i].ToString);
    End For;
    Debug.Unindent;
End Sub UserProc;