Formula Question Result. More...

Collaboration diagram for assFormulaQuestionResult:

Public Member Functions
	__construct ($result, $range_min, $range_max, $tolerance, $unit, $formula, $points, $precision, $rating_simple=true, $rating_sign=33, $rating_value=34, $rating_unit=33, $result_type=0)
	assFormulaQuestionResult constructor More...

	substituteFormula ($variables, $results)

	calculateFormula ($variables, $results, $question_id=0, $use_precision=true)

	findValidRandomVariables ($variables, $results)

	suggestRange ($variables, $results)

	isCorrect ($variables, $results, $value, $unit=null)

	getReachedPoints ($variables, $results, $value, $unit, $units)

	getResultInfo ($variables, $results, $value, $unit, $units)

	setResult ($result)

	getResult ()

	setRangeMin ($range_min)

	getRangeMin ()

	getRangeMinBase ()

	setRangeMax ($range_max)

	getRangeMax ()

	getRangeMaxBase ()

	setTolerance ($tolerance)

	getTolerance ()

	setUnit ($unit)

	getUnit ()

	setFormula ($formula)

	getFormula ()

	setPoints ($points)

	getPoints ()

	setRatingSimple ($rating_simple)

	getRatingSimple ()

	setRatingSign ($rating_sign)

	getRatingSign ()

	setRatingValue ($rating_value)

	getRatingValue ()

	setRatingUnit ($rating_unit)

	getRatingUnit ()

	setPrecision ($precision)

	getPrecision ()

	setResultType ($a_result_type)

	getResultType ()

	setRangeMaxTxt ($range_max_txt)

	getRangeMaxTxt ()

	setRangeMinTxt ($range_min_txt)

	getRangeMinTxt ()

	getAvailableResultUnits ($question_id)

Static Public Member Functions
static	getResultTypeByQstId ($a_qst_id, $a_result)

static	isCoprimeFraction ($numerator, $denominator)

static	convertDecimalToCoprimeFraction ($decimal_value, $tolerance=1.e-9)

static	getGreatestCommonDivisor ($a, $b)

Data Fields
const	RESULT_NO_SELECTION = 0

const	RESULT_DEC = 1

const	RESULT_FRAC = 2

const	RESULT_CO_FRAC = 3

Protected Member Functions
	isInTolerance ($v1, $v2, $p)

	checkSign ($v1, $v2)

Private Attributes
	$result

	$range_min

	$range_max

	$tolerance

	$unit

	$formula

	$rating_simple

	$rating_sign

	$rating_value

	$rating_unit

	$points

	$precision

	$result_type

	$range_min_txt

	$range_max_txt

	$available_units = array()

Detailed Description

Formula Question Result.

Author: Helmut Schottmüller helmu.nosp@m.t.sc.nosp@m.hottm.nosp@m.uell.nosp@m.er@ma.nosp@m.c.co.nosp@m.m

Version

Id: class.assFormulaQuestionResult.php 944 2009-11-09 16:11:30Z hschottm

Definition at line 10 of file class.assFormulaQuestionResult.php.

Constructor & Destructor Documentation

◆ __construct()

assFormulaQuestionResult::__construct	(	$result,
		$range_min,
		$range_max,
		$tolerance,
		$unit,
		$formula,
		$points,
		$precision,
		$rating_simple = `true`,
		$rating_sign = `33`,
		$rating_value = `34`,
		$rating_unit = `33`,
		$result_type = `0`
	)

assFormulaQuestionResult constructor

Parameters

string	$result	Result name
double	$range_min	Range minimum
double	$range_max	Range maximum
double	$tolerance	Tolerance of the result in percent
object	$unit	Unit
string	$formula	The formula to calculate the result
double	$points	The maximum available points for the result
integer	$precision	Number of decimal places of the value
boolean	$rating_simple	Use simple rating (100% if right, 0 % if wrong)
double	$rating_sign	Percentage of rating for the correct sign
double	$rating_value	Percentage of rating for the correct value
double	$rating_unit	Percentage of rating for the correct unit @access public

Definition at line 51 of file class.assFormulaQuestionResult.php.

    {
        $this->result = $result;
        #       $this->setRangeMin((is_numeric($range_min)) ? $range_min : NULL);
        #       $this->setRangeMax((is_numeric($range_max)) ? $range_max : NULL);
        $this->setRangeMin($range_min);
        $this->setRangeMax($range_max);
 
 
        $this->tolerance = $tolerance;
        $this->unit = $unit;
        $this->formula = $formula;
        $this->points = $points;
        $this->precision = $precision;
        $this->rating_simple = $rating_simple;
        $this->rating_sign = $rating_sign;
        $this->rating_value = $rating_value;
        $this->rating_unit = $rating_unit;
        $this->result_type = $result_type;
        $this->setRangeMinTxt($range_min);
        $this->setRangeMaxTxt($range_max);
    }

References $formula, $points, $precision, $range_max, $range_min, $rating_sign, $rating_simple, $rating_unit, $rating_value, $result, $result_type, $tolerance, $unit, setRangeMax(), setRangeMaxTxt(), setRangeMin(), and setRangeMinTxt().

Here is the call graph for this function:

Member Function Documentation

◆ calculateFormula()

assFormulaQuestionResult::calculateFormula	(	$variables,
		$results,
		$question_id = `0`,
		$use_precision = `true`
	)

Definition at line 100 of file class.assFormulaQuestionResult.php.

    {
        $resultunits = array();
        if ($question_id > 0) {
            $resultunits = $this->getAvailableResultUnits($question_id);
        }
    
        include_once "./Services/Math/classes/class.ilMath.php";
        include_once "./Services/Math/classes/class.EvalMath.php";
        $formula = $this->substituteFormula($variables, $results);
        if (preg_match_all("/(\\\$v\\d+)/ims", $formula, $matches)) {
            foreach ($matches[1] as $variable) {
                $varObj = $variables[$variable];
                if (!is_object($varObj)) {
                    continue;
                }
                $value = $varObj->getBaseValue();
                $formula = preg_replace("/\\\$" . substr($variable, 1) . "(?![0-9]+)/", "(" . $value . ")" . "\\1", $formula);
            }
        }
        $math = new EvalMath();
        $math->suppress_errors = true;
 
        $formula = str_replace(",", ".", $formula);
        $result = $math->evaluate($formula);
        if (is_object($this->getUnit())) {
            $result = ilMath::_div($result, $this->getUnit()->getFactor(), 100);
        }
 
        // @todo DON'T USE ilMath::_mul() ... bcmul() returns wrong result !!!!
    
        if ($use_precision == true) {
            $res = $result * 1;
            if (is_numeric($this->getPrecision())) {
                if ($this->getResultType() == self::RESULT_DEC || $this->getResultType() == self::RESULT_NO_SELECTION) {
                    $result = ilMath::_round($res, $this->getPrecision());
                }
            }
        }
        return $result;
    }

References $formula, $res, $result, $results, ilMath\_div(), getAvailableResultUnits(), getPrecision(), getResultType(), getUnit(), and substituteFormula().

Here is the call graph for this function:

◆ checkSign()

assFormulaQuestionResult::checkSign	(	$v1,
		$v2
	)

protected

Definition at line 418 of file class.assFormulaQuestionResult.php.

    {
        if ((($v1 >= 0) && ($v2 >= 0)) || (($v1 <= 0) && ($v2 <= 0))) {
            return true;
        } else {
            return false;
        }
    }

Referenced by getReachedPoints(), and getResultInfo().

Here is the caller graph for this function:

◆ convertDecimalToCoprimeFraction()

static assFormulaQuestionResult::convertDecimalToCoprimeFraction	(	$decimal_value,
		$tolerance = `1.e-9`
	)

static

Definition at line 830 of file class.assFormulaQuestionResult.php.

    {
        $to_string = (string) $decimal_value;
        $is_negative = strpos($to_string, '-') === 0;
        if ($is_negative) {
            $decimal_value = substr($decimal_value, 1);
        }
        $h1 = 1;
        $h2 = 0;
        $k1 = 0;
        $k2 = 1;
        $b = 1 / $decimal_value;
        do {
            $b = 1 / $b;
            $a = floor($b);
            $aux = $h1;
            $h1 = $a * $h1 + $h2;
            $h2 = $aux;
            $aux = $k1;
            $k1 = $a * $k1 + $k2;
            $k2 = $aux;
            $b = $b - $a;
        } while ((abs($decimal_value - $h1 / $k1) > $decimal_value * $tolerance) || ($k1 < 0 || $b < 0));
        if ($k1 == 1) {
            $result = $h1;
            $checkResult = $h1;
        } else {
            $result = "$h1/$k1";
            $checkResult = ($h1 / $k1);
        }
        if ($is_negative) {
            $result = '-' . $result;
            $checkResult = ($h1 / $k1) * -1;
        }
        if ($to_string == $checkResult . '' || $checkResult . '' == $result) {
            return $result;
        } else {
            return array($to_string,$result);
        }
    }

References $result, and $tolerance.

Referenced by assFormulaQuestion\getBestSolution(), and assFormulaQuestion\substituteVariables().

Here is the caller graph for this function:

◆ findValidRandomVariables()

assFormulaQuestionResult::findValidRandomVariables	(	$variables,
		$results
	)

Definition at line 142 of file class.assFormulaQuestionResult.php.

    {
        include_once "./Services/Math/classes/class.EvalMath.php";
        $i = 0;
        $inRange = false;
        while ($i < 1000 && !$inRange) {
            $formula = $this->substituteFormula($variables, $results);
            if (preg_match_all("/(\\\$v\\d+)/ims", $formula, $matches)) {
                foreach ($matches[1] as $variable) {
                    $varObj = $variables[$variable];
                    if (!is_object($varObj)) {
                        continue;
                    }
                    $varObj->setRandomValue();
                    $formula = preg_replace("/\\\$" . substr($variable, 1) . "(?![0-9]+)/", "(" . $varObj->getBaseValue() . ")" . "\\1", $formula);
                }
            }
            $math = new EvalMath();
            $math->suppress_errors = true;
            $result = $math->evaluate($formula);
            $inRange = (is_numeric($result)) ? true : false;
            if ($inRange) {
                if (is_numeric($this->getRangeMin())) {
                    if ($result < $this->getRangeMinBase()) {
                        $inRange = false;
                    }
                }
                if (is_numeric($this->getRangeMax())) {
                    if ($result > $this->getRangeMaxBase()) {
                        $inRange = false;
                    }
                }
            }
            $i++;
        }
    }

References $formula, $i, $result, $results, getRangeMax(), getRangeMaxBase(), getRangeMin(), getRangeMinBase(), and substituteFormula().

Here is the call graph for this function:

◆ getAvailableResultUnits()

assFormulaQuestionResult::getAvailableResultUnits ( $question_id )

Definition at line 881 of file class.assFormulaQuestionResult.php.

    {
        global $DIC;
        $ilDB = $DIC['ilDB'];
        
        $res = $ilDB->queryF(
            '
                        SELECT * FROM il_qpl_qst_fq_res_unit 
                        WHERE question_fi = %s
                        ORDER BY result',
            array('integer'),
            array($question_id)
        );
        
    
        while ($row = $ilDB->fetchAssoc($res)) {
            $this->available_units[$row['result']][] = $row['unit_fi'] ;
        }
        
        return $this->available_units;
    }

References $available_units, $DIC, $ilDB, $res, and $row.

Referenced by calculateFormula().

Here is the caller graph for this function:

◆ getFormula()

assFormulaQuestionResult::getFormula ( )

Definition at line 708 of file class.assFormulaQuestionResult.php.

    {
        return $this->formula;
    }

References $formula.

Referenced by substituteFormula().

Here is the caller graph for this function:

◆ getGreatestCommonDivisor()

static assFormulaQuestionResult::getGreatestCommonDivisor	(	$a,
		$b
	)

static

Definition at line 871 of file class.assFormulaQuestionResult.php.

    {
        if ($b > 0) {
            return self::getGreatestCommonDivisor($b, $a % $b);
        } else {
            return $a;
        }
    }

References getGreatestCommonDivisor().

Referenced by getGreatestCommonDivisor(), and isCoprimeFraction().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ getPoints()

assFormulaQuestionResult::getPoints ( )

Definition at line 718 of file class.assFormulaQuestionResult.php.

    {
        return $this->points;
    }

References $points.

Referenced by getReachedPoints(), and getResultInfo().

Here is the caller graph for this function:

◆ getPrecision()

assFormulaQuestionResult::getPrecision ( )

Definition at line 768 of file class.assFormulaQuestionResult.php.

    {
        return (int) $this->precision;
    }

References $precision.

Referenced by calculateFormula(), getReachedPoints(), isCorrect(), isInTolerance(), and suggestRange().

Here is the caller graph for this function:

◆ getRangeMax()

assFormulaQuestionResult::getRangeMax ( )

Definition at line 667 of file class.assFormulaQuestionResult.php.

    {
        return $this->range_max;
    }

References $range_max.

Referenced by findValidRandomVariables(), and getRangeMaxBase().

Here is the caller graph for this function:

◆ getRangeMaxBase()

assFormulaQuestionResult::getRangeMaxBase ( )

Definition at line 672 of file class.assFormulaQuestionResult.php.

    {
        if (is_numeric($this->getRangeMax())) {
            if (is_object($this->getUnit())) {
                include_once "./Services/Math/classes/class.ilMath.php";
                return ilMath::_mul($this->getRangeMax(), $this->getUnit()->getFactor(), 100);
            }
        }
        return $this->getRangeMax();
    }

References ilMath\_mul(), getRangeMax(), and getUnit().

Referenced by findValidRandomVariables().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ getRangeMaxTxt()

assFormulaQuestionResult::getRangeMaxTxt ( )

Definition at line 788 of file class.assFormulaQuestionResult.php.

    {
        return $this->range_max_txt;
    }

References $range_max_txt.

◆ getRangeMin()

assFormulaQuestionResult::getRangeMin ( )

Definition at line 635 of file class.assFormulaQuestionResult.php.

    {
        return $this->range_min;
    }

References $range_min.

Referenced by findValidRandomVariables(), and getRangeMinBase().

Here is the caller graph for this function:

◆ getRangeMinBase()

assFormulaQuestionResult::getRangeMinBase ( )

Definition at line 640 of file class.assFormulaQuestionResult.php.

    {
        if (is_numeric($this->getRangeMin())) {
            if (is_object($this->getUnit())) {
                include_once "./Services/Math/classes/class.ilMath.php";
                return ilMath::_mul($this->getRangeMin(), $this->getUnit()->getFactor(), 100);
            }
        }
        return $this->getRangeMin();
    }

References ilMath\_mul(), getRangeMin(), and getUnit().

Referenced by findValidRandomVariables().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ getRangeMinTxt()

assFormulaQuestionResult::getRangeMinTxt ( )

Definition at line 798 of file class.assFormulaQuestionResult.php.

    {
        return $this->range_min_txt;
    }

References $range_min_txt.

◆ getRatingSign()

assFormulaQuestionResult::getRatingSign ( )

Definition at line 738 of file class.assFormulaQuestionResult.php.

    {
        return $this->rating_sign;
    }

References $rating_sign.

Referenced by getReachedPoints(), and getResultInfo().

Here is the caller graph for this function:

◆ getRatingSimple()

assFormulaQuestionResult::getRatingSimple ( )

Definition at line 728 of file class.assFormulaQuestionResult.php.

    {
        return $this->rating_simple;
    }

References $rating_simple.

Referenced by getReachedPoints(), and getResultInfo().

Here is the caller graph for this function:

◆ getRatingUnit()

assFormulaQuestionResult::getRatingUnit ( )

Definition at line 758 of file class.assFormulaQuestionResult.php.

    {
        return $this->rating_unit;
    }

References $rating_unit.

Referenced by getReachedPoints(), and getResultInfo().

Here is the caller graph for this function:

◆ getRatingValue()

assFormulaQuestionResult::getRatingValue ( )

Definition at line 748 of file class.assFormulaQuestionResult.php.

    {
        return $this->rating_value;
    }

References $rating_value.

Referenced by getReachedPoints(), and getResultInfo().

Here is the caller graph for this function:

◆ getReachedPoints()

assFormulaQuestionResult::getReachedPoints	(	$variables,
		$results,
		$value,
		$unit,
		$units
	)

Definition at line 427 of file class.assFormulaQuestionResult.php.

    {
        global $DIC;
        $ilLog = $DIC['ilLog'];
        if ($this->getRatingSimple()) {
            if ($this->isCorrect($variables, $results, $value, $units[$unit])) {
                return $this->getPoints();
            } else {
                return 0;
            }
        } else {
            $points = 0;
            include_once "./Services/Math/classes/class.EvalMath.php";
            include_once "./Services/Math/classes/class.ilMath.php";
            $formula = $this->substituteFormula($variables, $results);
 
            if (preg_match_all("/(\\\$v\\d+)/ims", $formula, $matches)) {
                foreach ($matches[1] as $variable) {
                    $varObj = $variables[$variable];
                    if (!is_object($varObj)) {
                        continue;
                    }
                    if ($varObj->getUnit() != null) {
                        //convert unit and value to baseunit
                        if ($varObj->getUnit()->getBaseUnit() != -1) {
                            $tmp_value = $varObj->getValue() * $varObj->getUnit()->getFactor();
                        } else {
                            $tmp_value = $varObj->getValue();
                        }
                    } else {
                        $tmp_value = $varObj->getValue();
                    }
                    $formula = preg_replace("/\\\$" . substr($variable, 1) . "(?![0-9]+)/", "(" . $tmp_value . ")" . "\\1", $formula);
                }
            }
 
            $math = new EvalMath();
            $math->suppress_errors = true;
            $result = $math->evaluate($formula);
 
            // result_type extension
            switch ($this->getResultType()) {
                case assFormulaQuestionResult::RESULT_DEC:
                    if ((substr_count($value, '.') == 1) || (substr_count($value, ',') == 1)) {
                        $exp_val = $value;
                        $frac_value = str_replace(',', '.', $exp_val);
                    } else {
                        $frac_value = $value;
                    }
                    $check_fraction = true;
                    break;
                case assFormulaQuestionResult::RESULT_FRAC:
                    $exp_val = explode('/', $value);
                    if (count($exp_val) == 1) {
                        $frac_value = ilMath::_div($exp_val[0], 1, $this->getPrecision());
                        if (ilMath::_equals(abs($frac_value), abs($result), $this->getPrecision())) {
                            $check_fraction = true;
                        } else {
                            $check_fraction = false;
                        }
                    } else {
                        $frac_value = ilMath::_div($exp_val[0], $exp_val[1], $this->getPrecision());
                        if (ilMath::_equals(abs($frac_value), abs($result), $this->getPrecision())) {
                            $check_fraction = true;
                        }
                    }
                    break;
                case assFormulaQuestionResult::RESULT_CO_FRAC:
                    $exp_val = explode('/', $value);
                    if (count($exp_val) == 1) {
                        $check_fraction = false;
                    } else {
                        $frac_value = ilMath::_div($exp_val[0], $exp_val[1], $this->getPrecision());
                        if (self::isCoprimeFraction($exp_val[0], $exp_val[1])) {
                            $check_fraction = true;
                        }
                    }
                    break;
                case assFormulaQuestionResult::RESULT_NO_SELECTION:
                default:
                    $check_fraction = true;
                    break;
            }
 
            // result unit!!
            if (is_object($this->getUnit())) {
                // if expected resultunit != baseunit convert to resultunit
                if ($this->getUnit()->getBaseUnit() != -1) {
                    $result = ilMath::_div($result, $this->getUnit()->getFactor(), $this->getPrecision());
                } else {
                    //if resultunit == baseunit calculate to get correct precision
                    $result = ilMath::_mul($result, $this->getUnit()->getFactor(), $this->getPrecision());
                }
            }
 
            if (is_object($unit)) {
                if (isset($frac_value)) {
                    $value = ilMath::_mul($frac_value, $unit->getFactor(), 100);
                }
            }
 
            if ($this->checkSign($result, $value)) {
                $points += ilMath::_mul($this->getPoints(), ilMath::_div($this->getRatingSign(), 100));
            }
            if ($this->isInTolerance(abs($value), abs($result), $this->getTolerance())) {
                $points += ilMath::_mul($this->getPoints(), ilMath::_div($this->getRatingValue(), 100));
            }
            if (is_object($this->getUnit())) {
                $base1 = $units[$unit];
                if (is_object($base1)) {
                    $base1 = $units[$base1->getBaseUnit()];
                }
                $base2 = $units[$this->getUnit()->getBaseUnit()];
                if (is_object($base1) && is_object($base2) && $base1->getId() == $base2->getId()) {
                    $points += ilMath::_mul($this->getPoints(), ilMath::_div($this->getRatingUnit(), 100));
                }
            }
            return $points;
        }
    }

References $DIC, $formula, $ilLog, $points, $result, $results, $unit, ilMath\_div(), ilMath\_mul(), checkSign(), getPoints(), getPrecision(), getRatingSign(), getRatingSimple(), getRatingUnit(), getRatingValue(), getResultType(), getTolerance(), getUnit(), isCorrect(), isInTolerance(), RESULT_CO_FRAC, RESULT_DEC, RESULT_FRAC, RESULT_NO_SELECTION, and substituteFormula().

Here is the call graph for this function:

◆ getResult()

assFormulaQuestionResult::getResult ( )

Definition at line 614 of file class.assFormulaQuestionResult.php.

    {
        return $this->result;
    }

References $result.

Referenced by substituteFormula().

Here is the caller graph for this function:

◆ getResultInfo()

assFormulaQuestionResult::getResultInfo	(	$variables,
		$results,
		$value,
		$unit,
		$units
	)

Definition at line 548 of file class.assFormulaQuestionResult.php.

    {
        if ($this->getRatingSimple()) {
            if ($this->isCorrect($variables, $results, $value, $units[$unit])) {
                return array("points" => $this->getPoints());
            } else {
                return array("points" => 0);
            }
        } else {
            include_once "./Services/Math/classes/class.EvalMath.php";
            include_once "./Services/Math/classes/class.ilMath.php";
            $totalpoints = 0;
            $formula = $this->substituteFormula($variables, $results);
            if (preg_match_all("/(\\\$v\\d+)/ims", $formula, $matches)) {
                foreach ($matches[1] as $variable) {
                    $varObj = $variables[$variable];
                    $formula = preg_replace("/\\\$" . substr($variable, 1) . "(?![0-9]+)/", "(" . $varObj->getBaseValue() . ")" . "\\1", $formula);
                }
            }
            $math = new EvalMath();
            $math->suppress_errors = true;
            $result = $math->evaluate($formula);
            if (is_object($this->getUnit())) {
                $result = ilMath::_mul($result, $this->getUnit()->getFactor(), 100);
            }
            if (is_object($unit)) {
                $value = ilMath::_mul($value, $unit->getFactor(), 100);
            } else {
            }
            $details = array();
            if ($this->checkSign($result, $value)) {
                $points = ilMath::_mul($this->getPoints(), $this->getRatingSign() / 100);
                $totalpoints += $points;
                $details['sign'] = $points;
            }
            if ($this->isInTolerance(abs($value), abs($result), $this->getTolerance())) {
                $points = ilMath::_mul($this->getPoints(), $this->getRatingValue() / 100);
                $totalpoints += $points;
                $details['value'] = $points;
            }
            if (is_object($this->getUnit())) {
                $base1 = $units[$unit];
                if (is_object($base1)) {
                    $base1 = $units[$base1->getBaseUnit()];
                }
                $base2 = $units[$this->getUnit()->getBaseUnit()];
                if (is_object($base1) && is_object($base2) && $base1->getId() == $base2->getId()) {
                    $points = ilMath::_mul($this->getPoints(), $this->getRatingUnit() / 100);
                    $totalpoints += $points;
                    $details['unit'] = $points;
                }
            }
            $details['points'] = $totalpoints;
            return $details;
        }
    }

References $formula, $points, $result, $results, $unit, ilMath\_mul(), checkSign(), getPoints(), getRatingSign(), getRatingSimple(), getRatingUnit(), getRatingValue(), getTolerance(), getUnit(), isCorrect(), isInTolerance(), and substituteFormula().

Here is the call graph for this function:

◆ getResultType()

assFormulaQuestionResult::getResultType ( )

Definition at line 778 of file class.assFormulaQuestionResult.php.

    {
        return (int) $this->result_type;
    }

References $result_type.

Referenced by calculateFormula(), getReachedPoints(), and isCorrect().

Here is the caller graph for this function:

◆ getResultTypeByQstId()

static assFormulaQuestionResult::getResultTypeByQstId	(	$a_qst_id,
		$a_result
	)

static

Definition at line 803 of file class.assFormulaQuestionResult.php.

    {
        global $DIC;
        $ilDB = $DIC['ilDB'];
 
        $res = $ilDB->queryF(
            '
                        SELECT result_type
                        FROM il_qpl_qst_fq_res
                        WHERE question_fi = %s
                        AND result = %s',
            array('integer', 'text'),
            array($a_qst_id, $a_result)
        );
 
        $row = $ilDB->fetchAssoc($res);
 
        return $row['result_type'];
    }

References $DIC, $ilDB, $res, and $row.

Referenced by assFormulaQuestionGUI\getPreview(), and assFormulaQuestionGUI\getTestOutput().

Here is the caller graph for this function:

◆ getTolerance()

assFormulaQuestionResult::getTolerance ( )

Definition at line 688 of file class.assFormulaQuestionResult.php.

    {
        return $this->tolerance;
    }

References $tolerance.

Referenced by getReachedPoints(), getResultInfo(), and isCorrect().

Here is the caller graph for this function:

◆ getUnit()

assFormulaQuestionResult::getUnit ( )

Definition at line 698 of file class.assFormulaQuestionResult.php.

    {
        return $this->unit;
    }

References $unit.

Referenced by calculateFormula(), getRangeMaxBase(), getRangeMinBase(), getReachedPoints(), getResultInfo(), isCorrect(), and suggestRange().

Here is the caller graph for this function:

◆ isCoprimeFraction()

static assFormulaQuestionResult::isCoprimeFraction	(	$numerator,
		$denominator
	)

static

Definition at line 823 of file class.assFormulaQuestionResult.php.

    {
        $gcd = self::getGreatestCommonDivisor(abs($numerator), abs($denominator));
 
        return $gcd == 1 ? true : false;
    }

References getGreatestCommonDivisor().

Here is the call graph for this function:

◆ isCorrect()

assFormulaQuestionResult::isCorrect	(	$variables,
		$results,
		$value,
		$unit = `null`
	)

Parameters

	$variables	formula variables containing units
	$results	formula results containing units
	$value	user input value
null	$unit	user input unit

Returns: bool

Definition at line 224 of file class.assFormulaQuestionResult.php.

    {
        // The user did not answer the question ....
        if ($value === null || 0 == strlen($value)) {
            return false;
        }
        $value = str_replace(' ', '', $value);
        
        include_once "./Services/Math/classes/class.EvalMath.php";
        include_once "./Services/Math/classes/class.ilMath.php";
        $formula = $this->substituteFormula($variables, $results);
 
        $check_valid_chars = true;
        
        if (preg_match_all("/(\\\$v\\d+)/ims", $formula, $matches)) {
            foreach ($matches[1] as $variable) {
                $varObj = $variables[$variable];
                if (!is_object($varObj)) {
                    continue;
                }
 
                if ($varObj->getUnit() != null) {
                    //convert unit and value to baseunit.... because vars could have different units
                    if ($varObj->getUnit()->getBaseUnit() != -1) { #$this->getUnit() != NULL)
                        $tmp_value = $varObj->getValue() * $varObj->getUnit()->getFactor();
                    } else {
                        $tmp_value = $varObj->getValue();
                    }
                } else {
                    $tmp_value = $varObj->getValue();
                }
 
                $formula = preg_replace("/\\\$" . substr($variable, 1) . "(?![0-9]+)/", "(" . $tmp_value . ")" . "\\1", $formula);
            }
        }
 
        $math = new EvalMath();
        $math->suppress_errors = true;
        $result = $math->evaluate($formula); // baseunit-result!!
 
        $resultWithRespectedUnit = ilMath::_round($result, $this->getPrecision());
        if (is_object($this->getUnit())) {
            //there is a "fix" result_unit defined!
 
            // if expected resultunit != baseunit convert to "fix" result_unit
            if ($this->getUnit()->getBaseUnit() != -1) {
                $resultWithRespectedUnit = ilMath::_div($result, $this->getUnit()->getFactor(), $this->getPrecision());
            } else {
                //if resultunit == baseunit calculate to get correct precision
                $resultWithRespectedUnit = ilMath::_mul($result, 1, $this->getPrecision());
            }
        } elseif ($this->getUnit() == null && $unit != null) {
            // there is no "fix" result_unit defined, but the user has selected a unit ...
            // so .... there are "available resultunits" in multi-selectbox selected
            // -> check if selected user-unit is baseunit
            if ($unit->getFactor() == 1 && strlen(trim($unit->getFactor())) == 1) {
                // result is already calculated to baseunit.... -> get correct precision..
                $resultWithRespectedUnit = ilMath::_mul($result, 1, $this->getPrecision());
            } else {
                $resultWithRespectedUnit = ilMath::_div($result, $unit->getFactor(), $this->getPrecision());
            }
        }
        
        //      check for valid chars ("0-9",",|.|/","0-9","e|E","+|-","0-9")
        $has_valid_chars = preg_match("/^-?([0-9]*)(,|\\.|\\/){0,1}([0-9]*)([eE][\\+|-]([0-9])+)?$/", $value, $matches);
        if (!$has_valid_chars) {
            $check_valid_chars = false;
        } elseif (
            (isset($matches[2]) && $matches[2] == '/') &&
            (isset($matches[4]) && strtolower($matches[4]) == "e") &&
            (!isset($matches[1]) || !strlen($matches[1]) || !isset($matches[3]) || !strlen($matches[3]) || $matches[3] == 0)) {
            $check_valid_chars = false;
        }
        // result_type extension
        switch ($this->getResultType()) {
            case assFormulaQuestionResult::RESULT_DEC:
                if (substr_count($value, '.') == 1 || substr_count($value, ',') == 1) {
                    $exp_val = $value;
                    $frac_value = str_replace(',', '.', $exp_val);
                } else {
                    $frac_value = $value;
                }
                
                $frac_value = ilMath::_round($frac_value, $this->getPrecision());
 
                if (substr_count($value, '/') >= 1) {
                    $check_fraction = false;
                } else {
                    $check_fraction = true;
                }
                break;
            
            case assFormulaQuestionResult::RESULT_FRAC:
            case assFormulaQuestionResult::RESULT_CO_FRAC:
                $exp_val = explode('/', $value);
                if (count($exp_val) == 1) {
                    $frac_value = ilMath::_div($exp_val[0], 1, $this->getPrecision());
                    if (ilMath::_equals($frac_value, $resultWithRespectedUnit, $this->getPrecision())) {
                        $check_fraction = true;
                    } else {
                        $check_fraction = false;
                    }
                } else {
                    try {
                        $frac_value = ilMath::_div($exp_val[0], $exp_val[1], $this->getPrecision());
                    } catch (ilMathDivisionByZeroException $ex) {
                        if ($result) {
                            return false;
                        } else {
                            return true;
                        }
                    }
                    $frac_value = str_replace(',', '.', $frac_value);
 
                    if (ilMath::_equals($frac_value, $resultWithRespectedUnit, $this->getPrecision())) {
                        $check_fraction = true;
                    }
                    
                    if ($this->getResultType() == assFormulaQuestionResult::RESULT_CO_FRAC) {
                        if (!self::isCoprimeFraction($exp_val[0], $exp_val[1])) {
                            $check_fraction = false;
                        }
                    }
                }
                
                if (substr_count($value, '.') >= 1 || substr_count($value, ',') >= 1) {
                    $check_fraction = false;
                }
                break;
            
            case assFormulaQuestionResult::RESULT_NO_SELECTION:
            default:
                if (substr_count($value, '.') == 1 || substr_count($value, ',') == 1) {
                    $frac_value = str_replace(',', '.', $value);
                } elseif (substr_count($value, '/') == 1) {
                    $exp_val = explode('/', $value);
                    try {
                         $frac_value = ilMath::_div($exp_val[0], $exp_val[1], $this->getPrecision());
                    } catch (ilMathDivisionByZeroException $ex) {
                        if ($result) {
                            return false;
                        } else {
                            return true;
                        }
                    }
                } else {
                    $frac_value = $value;
                }
                $frac_value = ilMath::_round($frac_value, $this->getPrecision());
                $check_fraction = true;
            break;
        }
 
        if (is_object($unit)) {
            if (isset($frac_value)) {
                $value = ilMath::_mul($frac_value, $unit->getFactor(), 100);
            }
        }
 
        $checkvalue = false;
        if (isset($frac_value)) {
            if ($this->isInTolerance($frac_value, $resultWithRespectedUnit, $this->getTolerance())) {
                $checkvalue = true;
            }
        } else {
            if ($this->isInTolerance($value, $resultWithRespectedUnit, $this->getTolerance())) {
                $checkvalue = true;
            }
        }
 
        $checkunit = true;
        if (is_object($this->getUnit())) {
            if (is_object($unit)) {
                if ($unit->getId() != $this->getUnit()->getId()) {
                    $checkunit = false;
                }
            }
        }
        return $checkvalue && $checkunit && $check_fraction && $check_valid_chars;
    }

References $formula, $result, $results, $unit, ilMath\_div(), ilMath\_mul(), getPrecision(), getResultType(), getTolerance(), getUnit(), isInTolerance(), RESULT_CO_FRAC, RESULT_DEC, RESULT_FRAC, RESULT_NO_SELECTION, and substituteFormula().

Referenced by getReachedPoints(), and getResultInfo().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ isInTolerance()

assFormulaQuestionResult::isInTolerance	(	$v1,
		$v2,
		$p
	)

protected

Definition at line 405 of file class.assFormulaQuestionResult.php.

    {
        include_once "./Services/Math/classes/class.ilMath.php";
        $v1 = ilMath::_mul($v1, 1, $this->getPrecision());
        $b1 = ilMath::_sub($v2, abs(ilMath::_div(ilMath::_mul($p, $v2, 100), 100)), $this->getPrecision());
        $b2 = ilMath::_add($v2, abs(ilMath::_div(ilMath::_mul($p, $v2, 100), 100)), $this->getPrecision());
        if (($b1 <= $v1) && ($b2 >= $v1)) {
            return true;
        } else {
            return false;
        }
    }

References ilMath\_add(), ilMath\_div(), ilMath\_mul(), ilMath\_sub(), and getPrecision().

Referenced by getReachedPoints(), getResultInfo(), and isCorrect().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ setFormula()

assFormulaQuestionResult::setFormula ( $formula )

Definition at line 703 of file class.assFormulaQuestionResult.php.

    {
        $this->formula = $formula;
    }

References $formula.

◆ setPoints()

assFormulaQuestionResult::setPoints ( $points )

Definition at line 713 of file class.assFormulaQuestionResult.php.

    {
        $this->points = $points;
    }

References $points.

◆ setPrecision()

assFormulaQuestionResult::setPrecision ( $precision )

Definition at line 763 of file class.assFormulaQuestionResult.php.

    {
        $this->precision = $precision;
    }

References $precision.

◆ setRangeMax()

assFormulaQuestionResult::setRangeMax ( $range_max )

Definition at line 651 of file class.assFormulaQuestionResult.php.

    {
        //              include_once "./Services/Math/classes/class.EvalMath.php";
        //              $math = new EvalMath();
        //              $math->suppress_errors = TRUE;
        //              $result = $math->evaluate($range_max);
        //              $val = (strlen($result) > 8) ? strtoupper(sprintf("%e", $result)) : $result;
        //              $this->range_max = $val;
 
        include_once "./Services/Math/classes/class.EvalMath.php";
        $math = new EvalMath();
        $math->suppress_errors = true;
        $result = $math->evaluate($range_max);
        $this->range_max = $result;
    }

References $range_max, and $result.

Referenced by __construct(), and suggestRange().

Here is the caller graph for this function:

◆ setRangeMaxTxt()

assFormulaQuestionResult::setRangeMaxTxt ( $range_max_txt )

Definition at line 783 of file class.assFormulaQuestionResult.php.

    {
        $this->range_max_txt = $range_max_txt;
    }

References $range_max_txt.

Referenced by __construct().

Here is the caller graph for this function:

◆ setRangeMin()

assFormulaQuestionResult::setRangeMin ( $range_min )

Definition at line 619 of file class.assFormulaQuestionResult.php.

    {
        //              include_once "./Services/Math/classes/class.EvalMath.php";
        //              $math = new EvalMath();
        //              $math->suppress_errors = TRUE;
        //              $result = $math->evaluate($range_min);
        //              $val = (strlen($result) > 8) ? strtoupper(sprintf("%e", $result)) : $result;
        //              $this->range_min = $val;
 
        include_once "./Services/Math/classes/class.EvalMath.php";
        $math = new EvalMath();
        $math->suppress_errors = true;
        $result = $math->evaluate($range_min);
        $this->range_min = $result;
    }

References $range_min, and $result.

Referenced by __construct(), and suggestRange().

Here is the caller graph for this function:

◆ setRangeMinTxt()

assFormulaQuestionResult::setRangeMinTxt ( $range_min_txt )

Definition at line 793 of file class.assFormulaQuestionResult.php.

    {
        $this->range_min_txt = $range_min_txt;
    }

References $range_min_txt.

Referenced by __construct().

Here is the caller graph for this function:

◆ setRatingSign()

assFormulaQuestionResult::setRatingSign ( $rating_sign )

Definition at line 733 of file class.assFormulaQuestionResult.php.

    {
        $this->rating_sign = $rating_sign;
    }

References $rating_sign.

◆ setRatingSimple()

assFormulaQuestionResult::setRatingSimple ( $rating_simple )

Definition at line 723 of file class.assFormulaQuestionResult.php.

    {
        $this->rating_simple = $rating_simple;
    }

References $rating_simple.

◆ setRatingUnit()

assFormulaQuestionResult::setRatingUnit ( $rating_unit )

Definition at line 753 of file class.assFormulaQuestionResult.php.

    {
        $this->rating_unit = $rating_unit;
    }

References $rating_unit.

◆ setRatingValue()

assFormulaQuestionResult::setRatingValue ( $rating_value )

Definition at line 743 of file class.assFormulaQuestionResult.php.

    {
        $this->rating_value = $rating_value;
    }

References $rating_value.

◆ setResult()

assFormulaQuestionResult::setResult ( $result )

Definition at line 609 of file class.assFormulaQuestionResult.php.

    {
        $this->result = $result;
    }

References $result.

◆ setResultType()

assFormulaQuestionResult::setResultType ( $a_result_type )

Definition at line 773 of file class.assFormulaQuestionResult.php.

    {
        $this->result_type = $a_result_type;
    }

◆ setTolerance()

assFormulaQuestionResult::setTolerance ( $tolerance )

Definition at line 683 of file class.assFormulaQuestionResult.php.

    {
        $this->tolerance = $tolerance;
    }

References $tolerance.

◆ setUnit()

assFormulaQuestionResult::setUnit ( $unit )

Definition at line 693 of file class.assFormulaQuestionResult.php.

    {
        $this->unit = $unit;
    }

References $unit.

◆ substituteFormula()

assFormulaQuestionResult::substituteFormula	(	$variables,
		$results
	)

Definition at line 74 of file class.assFormulaQuestionResult.php.

    {
        global $DIC;
        $lng = $DIC['lng'];
 
        $formula = $this->getFormula();
 
        if (preg_match_all("/(\\\$r\\d+)/ims", $formula, $matches)) {
            foreach ($matches[1] as $result) {
                if (strcmp($result, $this->getResult()) == 0) {
                    ilUtil::sendFailure($lng->txt("errRecursionInResult"));
                    return false;
                }
 
                if (is_object($results[$result])) {
                    $formula = str_replace($result, $results[$result]->substituteFormula($variables, $results), $formula);
                } else {
                    ilUtil::sendFailure($lng->txt("errFormulaQuestion"));
                    return false;
                }
            }
        }
 
        return "(" . $formula . ")";
    }

References $DIC, $formula, $lng, $result, $results, getFormula(), getResult(), ilUtil\sendFailure(), and substituteFormula().

Referenced by calculateFormula(), findValidRandomVariables(), getReachedPoints(), getResultInfo(), isCorrect(), substituteFormula(), and suggestRange().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ suggestRange()

assFormulaQuestionResult::suggestRange	(	$variables,
		$results
	)

Definition at line 179 of file class.assFormulaQuestionResult.php.

    {
        
//              @todo Check this
        include_once "./Services/Math/classes/class.EvalMath.php";
        $range_min = null;
        $range_max = null;
        for ($i = 0; $i < 1000; $i++) {
            $formula = $this->substituteFormula($variables, $results);
            if (preg_match_all("/(\\\$v\\d+)/ims", $formula, $matches)) {
                foreach ($matches[1] as $variable) {
                    $varObj = $variables[$variable];
                    if (!is_object($varObj)) {
                        continue;
                    }
                    $varObj->setRandomValue();
                    $formula = preg_replace("/\\\$" . substr($variable, 1) . "(?![0-9]+)/", "(" . $varObj->getBaseValue() . ")" . "\\1", $formula);
                }
            }
            $math = new EvalMath();
            $math->suppress_errors = true;
            $result = $math->evaluate($formula);
            if (($range_min == null) || ($result < $range_min)) {
                $range_min = $result;
            }
            if (($range_max == null) || ($result > $range_max)) {
                $range_max = $result;
            }
        }
        include_once "./Services/Math/classes/class.ilMath.php";
        if (is_object($this->getUnit())) {
            $range_min = ilMath::_div($range_min, $this->getUnit()->getFactor());
            $range_max = ilMath::_div($range_max, $this->getUnit()->getFactor());
        }
        $this->setRangeMin(ilMath::_mul($range_min, 1, $this->getPrecision()));
        $this->setRangeMax(ilMath::_mul($range_max, 1, $this->getPrecision()));
    }