Merge remote-tracking branch 'origin/dev' into dev

admin

2025-01-17 b1988b85daedcc773e873671ba1aee10d74053e9

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Quintiq file version 2.0
#parent: #root
Method GetIsImprovement () as Boolean
{
  Description: 'Checks whether this iteration was an improvement compared to the best iteration'
  TextBody:
  [*
    // Martijn Nov-4-2016 (created)
    
    isimprovement := true;
    previousbestiteration := select( this, DEPRECATED_InventoryOptimization.Iteration, iteration, iteration.IsBestIteration() );
    
    if( not isnull( previousbestiteration ) )
    {
      isbetter := false;
      isworse := false;
      bestiterationlevels := selectsortedset( previousbestiteration, IterationLevel, bestiterationlevel,
                                              true,
                                              bestiterationlevel.Level() );
    
      // Traverse sequentially over the iteration levels and check whether the level of the current iteration is better or worse than that of the best iteration so far
      // If it is better, accept this iteration, if it is worse, reject this iteration
      traverse( bestiterationlevels, Elements, bestiterationlevel )
      {
        // If we have not yet determined whether the iteration is better or worse
        if( not isbetter and not isworse )
        {
          algorithmlevel := select( this.DEPRECATED_InventoryOptimization().MacroPlan().GetLastAlgorithmRun(), AlgorithmRunLevel, arl, arl.Level() = bestiterationlevel.Level() );
          relativegoalslack := guard( algorithmlevel.RelativeGoalSlack(), 0.0 );
          prevbestexpectedkpi := bestiterationlevel.InventoryOptimizationExpectedTotalKPI();
          newiterationlevel := select( this, IterationLevel, itlevel, itlevel.Level() = bestiterationlevel.Level() );
          newexpectedkpi := guard( newiterationlevel.InventoryOptimizationExpectedTotalKPI(), prevbestexpectedkpi - 1.0 );
          // If the new expected total KPI value minus the relative goal slack is better
          // than the previous best expected total KPI than the iteration was an improvement
          factor := ifexpr( newexpectedkpi > 0, 1.0, -1.0 );
          if( newexpectedkpi * ( 1 - factor * relativegoalslack ) > prevbestexpectedkpi )
          {
            isbetter := true;
          }
          // If the previous best expected total KPI value  is better
          // than the new expected total KPI than the iteration was an improvement
          else if( prevbestexpectedkpi > newexpectedkpi * ( 1 + factor * relativegoalslack ) )
          {
            isworse := true;
          }
        }
      }
      isimprovement := isbetter;
    }
    
    return isimprovement;
  *]
}