$test = $a*($a+$b+$c+$d ) - ($a+$b)*($a+$c); #### return 1 if $test < 0 and $ts;