N1: Integer;
N1: integer;
Свойство N1 определяет объем всей совокупности.
Значение свойства должно удовлетворять условиям: 1 ≤ N ≤ N1 и 1 ≤ M ≤ N1. Где:
N - объем одной выборки, определяемый значением свойства ISmHyperGeometricDistribution.N;
M - количество «успешных» элементов во всей совокупности, определяемое значением свойства ISmHyperGeometricDistribution.M.
Добавьте ссылку на системную сборку Stat.
Sub UserProc;
Var
Distrib: ISmHyperGeometricDistribution;
Values: Array Of Double;
i: Integer;
Cnt: Integer = 10;
Begin
Distrib := New SmHyperGeometricDistribution.Create;
Distrib.N1 := 10000;
Distrib.N := 500;
Distrib.M := 10;
Values := Distrib.RandomVector(Cnt);
For i := 0 To Cnt - 1 Do
Debug.WriteLine(Values[i]);
End For;
End Sub UserProc;
После выполнения примера в окно консоли будет выведена выборка псевдослучайных целых чисел из дискретного гипергеометрического распределения по заданным параметрам.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Stat;
…
Public Shared Sub Main(Params: StartParams);
Var
Distrib: ISmHyperGeometricDistribution;
Values: System.Array;
i: Integer;
Cnt: Integer = 10;
Begin
Distrib := New SmHyperGeometricDistribution.Create();
Distrib.N1 := 10000;
Distrib.N := 500;
Distrib.M := 10;
Values := Distrib.RandomVector(Cnt);
For i := 0 To Cnt - 1 Do
System.Diagnostics.Debug.WriteLine(Values[i]);
End For;
End Sub;
См. также: