IMsProblemCalculationSettings.AvailableThreads

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

Sub UserProc;
Var
    MB: IMetabase;
    Problem: IMsProblem;
    Settings: IMsProblemCalculationSettings;
    Calc: IMsProblemCalculation;
    Start, Stop, Temp: Integer;
    MetaModel: IMsMetaModel;
    Chain: IMsCalculationChainEntries; 
    i: Integer;
    Iter: IMsCalculationChainMultiDimIterator;
Begin
    MB := MetabaseClass.Active;
    // Получим задачу моделирования
    Problem := MB.ItemById("PROBLEM").EditTemporary As IMsProblem;
    // Получим метамодель и цепочку расчета метамодели
    MetaModel := MB.ItemById("METAMODEL").Edit As IMsMetaModel;
    Chain := MetaModel.CalculationChain;
    // Включим многомерный расчет для элементов цепочки расчета
    For i := 0 To Chain.Count - 1 Do
        If Chain.Item(i).Type = MsCalculationChainEntryType.MultiDimIterator Then
            Iter := Chain.Item(i) As IMsCalculationChainMultiDimIterator;
            Iter.MultiThreaded := True;
        End If;
    End For;
    (MetaModel As IMetabaseObject).Save;    
    // Получим настройки, используемые при расчете задачи моделирования
    Settings := Problem.CreateCalculationSettings;
    // Зададим количество потоков для расчета
    Settings.AvailableThreads := 4;
    // Создадим объект, осуществляющий расчет задачи
    Calc := Problem.Calculate(Settings);
    Calc.SaveData := False;
    Calc.OverwriteSameValues := False;
    Start := DateTime.Ticks;
    // Выполним расчет задачи моделирования
    Calc.Run;
    // Рассчитаем затраченное время на выполнение и выведем в консоль
    Stop := DateTime.Ticks;
    Temp := Stop - Start;
    Debug.WriteLine("Время, затраченое на выполнение: " + (Temp / 1000).ToString + " сек.");
End Sub UserProc;