P4lv\ExcelGoalSeek\ExcelGoalSeek::calculate()

Complexity

Conditions	26
Paths	60

Size

Total Lines	119
Code Lines	54

Duplication

Lines	0
Ratio	0 %

Code Coverage

Tests	49
CRAP Score	26.2909

Importance

Changes	2
Bugs	0	Features	0

<?php
    public function calculate(
        $functionGS,
        $goal,
        $decimal_places,
        $incremental_modifier = 1,
        $max_loops_round = 0,
        $max_loops_dec = 0,
        $lock_min = ['num' => null, 'goal' => null],
        $lock_max = ['num' => null, 'goal' => null],
        $slope = null,
        $randomized = false,
        $start_from = 0.1
    )
    {
        if (empty($functionGS)) {
            throw new ExcelGoalSeekException('Function callback expected');
        }

        $max_loops_round++;

        //If goal found has more than this difference, return null as it is not found
        $maximum_acceptable_difference = 0.1;

        if ($max_loops_round > 100) {
            $this->debug('Goal never reached');

            return false;
        }

        $this->debug('Iteration ' . $max_loops_round . '; min value = ' . $lock_min['num'] . '; max value = ' . $lock_max['num'] . '; slope ' . $slope);

        //If I have the goal  limited to a unit, I seek decimals
        if ($lock_min['num'] !== null && $lock_max['num'] !== null && abs(abs($lock_max['num']) - abs($lock_min['num'])) <= 1) {

            //No decimal , return result
            if ($lock_min['num'] == $lock_max['num']) {
                return $lock_min['num'];
            }

            //Seek decimals
            foreach (range(1, $decimal_places, 1) as $decimal) {
                $decimal_step = 1 / (10 ** $decimal);

                $difference = abs(round(abs($lock_max['num']), $decimal) - round(abs($lock_min['num']), $decimal));

                while ($difference - ($decimal_step / 10) > $decimal_step && $max_loops_dec < (2000 * $decimal_places)) {
                    $max_loops_dec++;

                    $aux_obj_num = round(($lock_min['num'] + $lock_max['num']) / 2, $decimal);
                    $aux_obj = $this->$functionGS($aux_obj_num);

                    $this->debug(
                        'Decimal iteration ' . $max_loops_dec . '; min value = ' . $lock_min['num'] . '; max value = ' . $lock_max['num'] . '; value ' . $aux_obj
                    );

                    //Like when I look without decimals
                    [$lock_min, $lock_max] = $this->lookWithoutDecimals($aux_obj, $goal, $aux_obj_num, $lock_min, $lock_max, $slope);
                    //End Like when I look without decimals
                    $difference = abs(round(abs($lock_max['num']), $decimal) - round(abs($lock_min['num']), $decimal));
                }//End while
            }//End foreach


            if ($max_loops_dec > 2000 * $decimal_places) {
                throw new GoalNeverReached('Goal never reached [2000]');
            }

            if (!is_nan($lock_min['goal']) && abs(abs($lock_min['goal']) - abs($goal)) < $maximum_acceptable_difference) {
                return round($lock_min['num'], $decimal_places - 1);
            }

            throw new GoalReachedNotEnough('Goal reached not enough');
        }

        //First iteration, try with zero
        $aux_obj_num = $this->getAux_obj_num($lock_min['num'], $lock_max['num'], $start_from, $incremental_modifier);

        if ($aux_obj_num != $start_from) {
            $aux_obj = $this->$functionGS($aux_obj_num);
            $this->debug('Testing ' . $aux_obj_num . ' with value ' . $aux_obj);
        } else {
            $aux_obj = $this->$functionGS($aux_obj_num);
            $this->debug('Testing (with initial value) ' . $aux_obj_num . ' with value ' . $aux_obj);
        }

        if ($slope == null) {
            $aux_slope = $this->$functionGS($aux_obj_num + 0.1);

            if (is_nan($aux_slope) || is_nan($aux_obj)) {
                $slope = null; //If slope is null
            } elseif ($aux_slope - $aux_obj > 0) {
                $slope = 1;
            } else {
                $slope = -1;
            }
        }

        //Test if formule can give me non valid values, i.e.: sqrt of negative value
        if (!is_nan($aux_obj)) {
            //Is goal without decimals?
            list($lock_min, $lock_max) = $this->lookWithoutDecimals($aux_obj, $goal, $aux_obj_num, $lock_min, $lock_max, $slope);
        } else {
            if (($lock_min['num'] === null && $lock_max['num'] === null) || $randomized) {
                $nuevo_start_from = random_int(-500, 500);

                return $this->calculate($functionGS, $goal, $decimal_places, $incremental_modifier + 1, $max_loops_round, $max_loops_dec, $lock_min, $lock_max, $slope, true, $nuevo_start_from);
            } //First iteration is null

            if ($lock_min['num'] !== null && abs(abs($aux_obj_num) - abs($lock_min['num'])) < 1) {
                $lock_max['num'] = $aux_obj_num;
            }
            if ($lock_max['num'] !== null && abs(abs($aux_obj_num) - abs($lock_max['num'])) < 1) {
                $lock_min['num'] = $aux_obj_num;
            }

            return $this->calculate($functionGS, $goal, $decimal_places, $incremental_modifier + 1, $max_loops_round, $max_loops_dec, $lock_min, $lock_max, $slope, $randomized, $start_from);
        }

        return $this->calculate($functionGS, $goal, $decimal_places, $incremental_modifier, $max_loops_round, $max_loops_dec, $lock_min, $lock_max, $slope, $randomized, $start_from);
    }