/*
The text from line 1 to line 23 are comments. They may be deleted safely.
 
Math Aliases by vSkyzv
http://www.hawkee.com/
 
$avrg: Find the average of a given set of numbers (seperated by a space)
Usage: $avrg(Numbers)
Example: $avrg(10 2 5 3)
-> Returns "5"
 
$qdrc: Quadratic Equation
Usage: $qdrc(a,b,c)
Example: $qdrc(1,4,1)
-> Returns: "-0.267949 -3.732051"
*Note: The .x1 and .x2 properties can be used as well, e.g. $qdrc(1,4,1).x1 returns "-0.267949"
 
$opst: Get the opposite of a number
Usage: $opst(Number)
Example: $opst(372)
-> Returns "-372"
 
*/
alias avrg { return $calc(($replace($1,$chr(32),+)) / $numtok($1,32)) }
alias qdrc {
  var %dscrm = $calc(($2 * $2) - 4($1 * $3)), %x1 = $calc(($opst($2) + $sqrt(%dscrm)) / 2($1)), %x2 = $calc(($opst($2) - $sqrt(%dscrm)) / 2($1))
  if (!$prop) { return %x1 %x2 }
  elseif ($prop == x1) { return %x1 }
  elseif ($prop == x2) { return %x2 }
}
alias opst { return $iif($1 > 0,$calc($1 - $calc($1 * 2)),$abs($1)) }

Commenting Options