public function calculate($data)
 {
     $this->data = $data;
     $result = tanh($this->sum() * $this->beta * $this->betaWeight);
     //        $result = tanh($this->sum() * $this->beta * $this->betaWeight);
     return $result;
 }

 function nicko(&$irc, &$data)
 {
     $args = array_slice($data->messageex, 1);
     $nick = $args[0];
     if (strlen($nick) > 0) {
         $this->score = $shifts = 0;
         $special_cost = array('69' => 500, 'dea?th' => 500, 'dark' => 400, 'n[i1]ght' => 300, 'n[i1]te' => 500, 'fuck' => 500, 'sh[i1]t' => 500, 'coo[l1]' => 500, 'kew[l1]' => 500, 'lame' => 500, 'dood' => 500, 'dude' => 500, '[l1](oo?|u)[sz]er' => 500, '[l1]eet' => 500, 'e[l1]ite' => 500, '[l1]ord' => 500, 'pron' => 1000, 'warez' => 1000, 'xx' => 100, '\\[rkx]0' => 1000, '\\0[rkx]' => 1000);
         foreach ($special_cost as $special => $cost) {
             $special_pattern = $special;
             if (ereg($special, $nick)) {
                 $this->punish($cost, "special");
             }
         }
         $clean = eregi_replace("[^A-Z0-9]", "", $nick);
         $this->punish(pow(10, strlen($nick) - strlen($clean)) - 1, "non-alha ({$clean} vs {$nick})");
         $k3wlt0k_weights = array(5, 5, 2, 5, 2, 3, 1, 2, 2, 2);
         for ($digit = 0; $digit < 10; $digit++) {
             $this->punish($k3wlt0k_weights[$digit] * substr_count($nick, $digit), "leet digits");
         }
         $this->punish($this->slow_pow(9, similar_text($nick, strtoupper($nick))) - 1, "lowercase");
         if (ereg("^.*[XZ]\$", $nick)) {
             $this->punish(50, "lame endings");
         }
         if (eregi("[0-9][a-z]", $nick, $regs)) {
             $shifts = @sizeof($regs) - 1;
             unset($regs);
         }
         if (eregi("[a-z][0-9]", $nick, $regs)) {
             $shifts = @sizeof($regs) - 1;
             unset($regs);
         }
         $this->punish($this->slow_pow(9, $shifts) - 1, "shifts");
         if (ereg("[A-Z]", $nick, $regs)) {
             $caps = @sizeof($regs) - 1;
             unset($regs);
             $this->punish($this->slow_pow(7, $caps), "upper case");
         }
         $percentage = 100 * (1 + tanh(($this->score - 400) / 400)) * (1 - 1 / (1 + $this->score / 5)) / 2;
         $digits = 2 * (2 - floor(log(100 - $percentage) / log(10)));
         $out = "'{$nick}' is " . sprintf("%." . $digits . "f", $percentage) . "% lame";
     } else {
         $out = "'" . $data['nick'] . "' is 100% lame";
     }
     $this->talk($irc, $data, $out);
     $this->log($irc, $data, $out);
 }

 function activation()
 {
     //calculate the outputs of the hidden neurons, the hidden neurons are tanh
     for ($i = 0; $i < $this->numHidden; $i++) {
         $hidVal =& $this->hiddenVal[$i];
         $hidVal = 0.0;
         for ($j = 0; $j < $this->numInputs; $j++) {
             $hidVal = $hidVal + $this->trainInput[$this->patNum][$j] * $this->weightsIH[$j][$i];
         }
         $hidVal = tanh($hidVal);
     }
     //calculate the output of the network, the output neuron is linear
     $this->outPred = 0.0;
     for ($i = 0; $i < $this->numHidden; $i++) {
         $this->outPred = $this->outPred + $this->hiddenVal[$i] * $this->weightsHO[$i];
     }
     //calculate the error
     $this->errThisPat = $this->outPred - $this->trainOutput[$this->patNum];
 }

 /**
  * Returns the hyperbolic tangent of an angle.
  *
  * @param  number $angle
  * @return number
  */
 public function tanh($angle)
 {
     return tanh($angle);
 }

 /**
  * Hyperbolic tangent.
  * @link http://php.net/manual/en/function.tanh.php
  * @param float $number <p>The argument to process</p>
  * @return float The hyperbolic tangent of <i>number</i>
  */
 public static function tanh($number)
 {
     return tanh($number);
 }

 /**
  * @param float $x A number
  * @return float The hyperbolic tangent of the given value
  */
 public function tanh($x)
 {
     return tanh($x);
 }

<?php

define("MAX_64Bit", 9223372036854775807);
define("MAX_32Bit", 2147483647);
define("MIN_64Bit", -9223372036854775807 - 1);
define("MIN_32Bit", -2147483647 - 1);
$longVals = array(MAX_64Bit, MIN_64Bit, MAX_32Bit, MIN_32Bit, MAX_64Bit - MAX_32Bit, MIN_64Bit - MIN_32Bit, MAX_32Bit + 1, MIN_32Bit - 1, MAX_32Bit * 2, MAX_32Bit * 2 + 1, MAX_32Bit * 2 - 1, MAX_64Bit - 1, MAX_64Bit + 1, MIN_64Bit + 1, MIN_64Bit - 1);
foreach ($longVals as $longVal) {
    echo "--- testing: {$longVal} ---\n";
    var_dump(tanh($longVal));
}
?>
===DONE===

echo rtrim("\t\tThese are a few words :) ... ");
echo rtrim("\t\tThese are a few words :) ... ", " \t.");
echo rtrim("\tExample string\n", "..");
echo chop("\t\tThese are a few words :) ... ");
echo chop("\t\tThese are a few words :) ... ", " \t.");
echo chop("\tExample string\n", "..");
echo acos(0.5);
echo acosh(0.5);
echo asin(0.5);
echo asinh(0.5);
echo atan(0.5);
echo atan2(0.5, 0.5);
echo atanh(0.5);
echo cos(0.5);
echo cosh(0.5);
echo sin(0.5);
echo sinh(0.5);
echo tan(0.5);
echo tanh(0.5);
echo exp(5.7);
echo exp(12);
echo log10(12);
echo log(12);
echo sqrt(2);
echo ceil(7.9);
echo floor(7.9);
echo fmod(5.7, 1.3);
echo ip2long("127.0.0.1");
echo long2ip(pow(2, 32) + 1024);
echo rad2deg(M_PI_4);
echo deg2rad(45);

 public static function tanh($self, $a)
 {
     return tanh($a);
 }

 /**
  * 
  * Get the compatibility by weight. Based on euclidean distance ...
  * @param array $searchee 
  * @param array $candidate
  * @param int $type
  */
 function getCompatibilityByWeight($searchee = array(), $candidate = array(), $type = 1)
 {
     $commonItems = 0;
     $sim = 0;
     foreach ($searchee["MemberAttributeWeight"] as $weight_searchee) {
         foreach ($candidate["MemberAttributeWeight"] as $weight_candidate) {
             if ($weight_searchee["attribute_id"] == $weight_candidate["attribute_id"]) {
                 $attribute = $this->controller->Attribute->find("first", array("conditions" => array("Attribute.id" => $weight_candidate["attribute_id"])));
                 //if ($attribute["attribute_type_id"]==$type){
                 $commonItems++;
                 $weight1 = $weight_searchee["weight"];
                 $weight2 = $weight_candidate["weight"];
                 $sim += pow($weight1 - $weight2, 2);
                 //}
             }
         }
     }
     if ($commonItems > 0) {
         $sim = sqrt($sim / $commonItems);
         $sim = 1 - tanh($sim);
         $maxItems = min(count($searchee["MemberAttributeWeight"]), count($candidate["MemberAttributeWeight"]));
         $sim = $sim * ($commonItems / $maxItems);
     }
     return $sim;
 }

/**
 * Calculate TANH, within bounds.
 * 
 * @param
 *        	double d The value to calculate for.
 * @return double The result.
 */
function tanh($d)
{
    return \Encog\MathUtil\BoundNumbers\bound(\tanh($d));
}

 /**
  * {@inheritdoc}
  */
 public function tanh($angle)
 {
     return $this->withPrecision(tanh($angle));
 }

 protected function processCoth()
 {
     $operands = $this->getOperands();
     $operand = $operands[0];
     if ($operand->getValue() == 0) {
         return null;
     } else {
         if (is_infinite($operand->getValue())) {
             return new Float(0.0);
         }
     }
     return new Float(1 / tanh($operand->getValue()));
 }

<?php

/* 
 * proto float tanh(float number)
 * Function is implemented in ext/standard/math.c
*/
$arg_0 = 1.0;
$extra_arg = 1;
echo "\nToo many arguments\n";
var_dump(tanh($arg_0, $extra_arg));
echo "\nToo few arguments\n";
var_dump(tanh());

 /**
  * Calculates the hyperbolic cotangent of the parameter
  * 
  * @param float $x
  * @returns mixed A floating point on success, PEAR_Error object otherwise
  * @access public
  */
 function coth($x)
 {
     /*{{{*/
     $x = floatval($x);
     $tanh = tanh($x);
     if ($tanh == 0.0) {
         return PEAR::raiseError('Undefined operation, hyperbolic tangent of parameter is zero');
     } else {
         return 1 / $tanh;
     }
 }

 /**
  * This method returns the hyperbolic tangent of this object's value.
  *
  * @access public
  * @static
  * @param IReal\Type $x                                     the operand
  * @return IDouble\Type                                     the result
  */
 public static function tanh(IReal\Type $x) : IDouble\Type
 {
     return IDouble\Type::box(tanh($x->unbox()));
 }

<?php

if ($_GET['map'] == 'y') {
    $url = "http://sat0" . rand(1, 4) . ".maps.yandex.net/tiles?l=sat&x=" . $_GET['x'] . "&y=" . $_GET['y'] . "&z=" . $_GET['z'] . "&g=" . substr("Gagarin", 0, rand(1, 8));
    $url = "https://khms0.google.com/kh/v=184&src=app&x=" . $_GET['x'] . "&y=" . $_GET['y'] . "&z=" . $_GET['z'] . "&s=" . substr("Galileo", 0, rand(1, 8));
    //echo "<a href='".$url."' target='_blank'>".$url."</a><br>";
    //$exec='echo '.$_GET['x'].' '.$_GET['y'].' |cs2cs +proj=merc +ellps=WGS84 +to +proj=merc +lon_0=0 +k=1 +x_0=0 +y_0=0 +a=6378137 +b=6356752 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs';
    //echo '<br>';
    //$lonlat = explode("	", exec($exec));
    //print_r($lonlat);
    //echo exec($exec);
    /*echo '<br>';
    		echo $exec;*/
    //$url = "http://sat0".rand(1, 4).".maps.yandex.net/tiles?l=sat&x=".round($lonlat[0])."&y=".round($lonlat[1])."&z=".$_GET['z']."&g=".substr("Gagarin", 0, rand(1, 8));
    $xtile = $_GET['x'] / 111319.49079327358;
    $ytile = rad2deg(asin(tanh($_GET['y'] / 20037508.342789244 * pi)));
    echo $xtile . '<br>';
    echo $ytile . '<br>';
    $url = "http://sat0" . rand(1, 4) . ".maps.yandex.net/tiles?l=sat&x=" . round($lonlat[0]) . "&y=" . round($lonlat[1]) . "&z=" . $_GET['z'] . "&g=" . substr("Gagarin", 0, rand(1, 8));
    //echo "<a href='".$url."' target='_blank'>".$url."</a><br>";
} else {
    $url = "http://khms" . rand(1, 3) . ".google.com/kh/v=184&src=app&x=" . $_GET['x'] . "&y=" . $_GET['y'] . "&z=" . $_GET['z'] . "&s=" . substr("Galileo", 0, rand(1, 8));
}
if ($_GET['map'] != 'y') {
    header('Content-Type: image/jpeg');
    //header('Content-Length: ' . filesize($file));
    //echo $url;
    $ch = curl_init();
    curl_setopt($ch, CURLOPT_URL, $url);
    curl_setopt($ch, CURLOPT_FAILONERROR, 1);
    curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);

function lambert93ToWgs84($x, $y)
{
    $x = number_format($x, 10, '.', '');
    $y = number_format($y, 10, '.', '');
    $b6 = 6378137.0;
    $b7 = 298.257222101;
    $b8 = 1 / $b7;
    $b9 = 2 * $b8 - $b8 * $b8;
    $b10 = sqrt($b9);
    $b13 = 3.0;
    $b14 = 700000.0;
    $b15 = 12655612.0499;
    $b16 = 0.725607765053267;
    $b17 = 11754255.426096;
    $delx = $x - $b14;
    $dely = $y - $b15;
    $gamma = atan(-$delx / $dely);
    $r = sqrt($delx * $delx + $dely * $dely);
    $latiso = log($b17 / $r) / $b16;
    $sinphiit0 = tanh($latiso + $b10 * atanh($b10 * sin(1)));
    $sinphiit1 = tanh($latiso + $b10 * atanh($b10 * $sinphiit0));
    $sinphiit2 = tanh($latiso + $b10 * atanh($b10 * $sinphiit1));
    $sinphiit3 = tanh($latiso + $b10 * atanh($b10 * $sinphiit2));
    $sinphiit4 = tanh($latiso + $b10 * atanh($b10 * $sinphiit3));
    $sinphiit5 = tanh($latiso + $b10 * atanh($b10 * $sinphiit4));
    $sinphiit6 = tanh($latiso + $b10 * atanh($b10 * $sinphiit5));
    $longrad = $gamma / $b16 + $b13 / 180 * pi();
    $latrad = asin($sinphiit6);
    $long = $longrad / pi() * 180;
    $lat = $latrad / pi() * 180;
    return array('y84' => $lat, 'x84' => $long);
}

 /**
  * Tangente hiperbólica
  * @return Number
  */
 public function tanh()
 {
     $this->num = tanh($this->num);
     return $this;
 }

*/
$file_path = dirname(__FILE__);
require $file_path . "/allowed_rounding_error.inc";
echo "tanh .5  = ";
var_dump(tanh(0.5));
if (allowed_rounding_error(tanh(0.5), 0.46211715726001)) {
    echo "Pass\n";
} else {
    echo "Fail\n";
}
echo "tanh -0.5  = ";
var_dump(tanh(-0.5));
if (allowed_rounding_error(tanh(-0.5), -0.46211715726001)) {
    echo "Pass\n";
} else {
    echo "Fail\n";
}
echo "tanh 3  = ";
var_dump(tanh(3.0));
if (allowed_rounding_error(tanh(3.0), 0.99505475368673)) {
    echo "Pass\n";
} else {
    echo "Fail\n";
}
echo "tanh -3  = ";
var_dump(tanh(-3.0));
if (allowed_rounding_error(tanh(-3.0), -0.99505475368673)) {
    echo "Pass\n";
} else {
    echo "Fail\n";
}