IMsProblemCalculationSettings.AvailableThreads

AvailableThreads: Integer;

AvailableThreads: integer;

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;
    // Get modeling problem
    Problem := MB.ItemById("PROBLEM").EditTemporary As IMsProblem;
    // Get metamodel and metamodel calculation chain
    MetaModel := MB.ItemById("METAMODEL").Edit As IMsMetaModel;
    Chain := MetaModel.CalculationChain;
    // Enable multidimensional calculation for calculation chain elements
    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;    
    // Get settings used on modeling problem calculation
    Settings := Problem.CreateCalculationSettings;
    // Set number of threads for calculation
    Settings.AvailableThreads := 4;
    // Create an object that calculates problem
    Calc := Problem.Calculate(Settings);
    Calc.SaveData := False;
    Calc.OverwriteSameValues := False;
    Start := DateTime.Ticks;
    // Calculate modeling problem
    Calc.Run;
    // Calculate time time spent on calculation and display it in the console
    Stop := DateTime.Ticks;
    Temp := Stop - Start;
    Debug.WriteLine("Time spent on calculation: " + (Temp / 1000).ToString + " sec");
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Ms;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Problem: IMsProblem;
    Settings: IMsProblemCalculationSettings;
    Calc: IMsProblemCalculation;
    Start, Stop, Temp: Integer;
    MetaModel: IMsMetaModel;
    Chain: IMsCalculationChainEntries; 
    i: Integer;
    Iter: IMsCalculationChainMultiDimIterator;
Begin
    MB := Params.Metabase;
    // Get modeling problem
    Problem := MB.ItemById["PROBLEM"].EditTemporary() As IMsProblem;
    // Get metamodel and metamodel calculation chain
    MetaModel := MB.ItemById["METAMODEL"].Edit() As IMsMetaModel;
    Chain := MetaModel.CalculationChain;
    // Enable multidimensional calculation for calculation chain elements
    For i := 0 To Chain.Count - 1 Do
        If Chain.Item[i].Type = MsCalculationChainEntryType.mccetMultiDimIterator Then
            Iter := Chain.Item[i] As IMsCalculationChainMultiDimIterator;
            Iter.MultiThreaded := True;
        End If;
    End For;
    (MetaModel As IMetabaseObject).Save();  
    // Get settings used on modeling problem calculation
    Settings := Problem.CreateCalculationSettings();
    // Set number of threads for calculation
    Settings.AvailableThreads := 4;
    // Create an object that calculates problem
    Calc := Problem.Calculate(Settings);
    Calc.SaveData := False;
    Calc.OverwriteSameValues := False;
    Start := DateTime.Now.Ticks As Integer;
    // Calculate modeling problem
    Calc.Run();
    // Calculate time time spent on calculation and display it in the console
    Stop := DateTime.Now.Ticks As Integer;
    Temp := Stop - Start;
    System.Diagnostics.Debug.WriteLine("Time spent on calculation: " + (Temp / 1000).ToString() + " sec");
End Sub;