Tag: Lathe

function number_string ($number
{
  $names = array
    0=>"zero", 1=>"one", 2=>"two", 3=>"three", 4=>"four"
    5=>"five", 6=>"six", 7=>"seven", 8=>"eight", 9=>"nine"
    10=>"ten", 11=>"eleven", 12=>"twelve", 13=>"thirteen", 14=>"fourteen"
    15=>"fifteen", 16=>"sixteen", 17=>"seventeen", 18=>"eighteen", 19=>"nineteen"
    20=>"twenty", 30=>"thirty", 40=>"forty", 50=>"fifty"
    60=>"sixty", 70=>"seventy", 80=>"eighty", 90=>"ninety"
  );
  
  $triplets = array
    100=>"hundred"
    1000=>"thousand"
    1000000=>"million"
    1000000000=>"billion"
    1000000000000=>"trillion"
    1000000000000000=>"quadrillion"
    1000000000000000000=>"quintillion"
    1000000000000000000000=>"sextillion"
    1000000000000000000000000=>"septillion"
    1000000000000000000000000000=>"octillion"
    1000000000000000000000000000000=>"nonillion"
  );
  
  krsort$names);
  krsort$triplets);
  
  if (abs$number) > PHP_INT_MAX) 
    throw new Exception'Maximum integer size for this version of PHP is '.PHP_INT_MAX);
  
  $prefix = ''
  $str = ''
  if ($number<0) {
    $prefix = 'negative '
    $number = $number*-1;
  }
  
  $remainder = 0;
  
  if ($number>=100) {
    
    foreach ($triplets as $num=>$name) {
      if ($num<=$number) {
        $str = $name
        $remainder = $number % $num
        $number = floor$number$num);
        break
      }
    }
    
    // how many of the triplets?
    $str = number_string$number).' '$str
    
    if ($remainder<100) $separator = ' and '
    else $separator = ', '
    
  } else {
    
    foreach ($names as $num=>$name) {
      if ($num<=$number) {
        $str = $name
        $remainder = $number % $num
        break
      }
    }
    
    $separator = '-'
  }
  
  // remainder to tack on?
  if ($remainder>0) {
    $str = $str$separatornumber_string$remainder);
  }
  
  return $prefix$str
} 

function primes ($number_of_primes
{
  $n = $number_of_primes
  $primes = array();
  for$i = 2; ; $i++)
  {
    $is_prime = true;
    for$j = 2; $j < $i; $j++)
    {
      if(($i % $j) == 0)
      {
        $is_prime = false;
        break
      }
      if$j > floor$i/2)) break
    }
    if ($is_prime
    {
      $primes[] = $i
      $n--;
    }
    if ($n == 0) break
  }
  return $primes
} 

function pi_digits ($digits
{
  $n = floor$digits * 14/4);
  
  $scale = 10000;
  $init = 2000;
  $carry = 0;
  $result = ''
  
  for$i=0;$i<=$n$i++) {
    $arr$i] = $init
  }
  
  for$i$n$i>0;$i$i-14) {  
    $sum = 0;  
    for$j$i$j>0;$j--) {  
      $sum = ($sum * $j) + ($scale * $arr$j]);  
      $arr$j] = $sum % (($j*2)-1);  
      $sum = floor$sum / (($j*2)-1));  
    }
    $result .= sprintf"%04d", ($carry + ($sum / $scale)));
    $carry = $sum % $scale;  
  }
  
  if ($digits>1) {
    return $result[0].'.'substr$result,1,$digits-1);
  } else {
    return substr$result,0,$digits);
  }
} 

function projectile_distance ($inital_velocity, $angle, $initial_height, $g
{
  $angle = deg2rad$angle);
  
  $distance = ($inital_velocitycos$angle)/$g
    * ($inital_velocitysin$angle) 
       + sqrtpow$inital_velocitysin$angle),2)+2*$g$initial_height));
  
  return $distance
} 

function pluralize ($word, $exceptions
{
  if (array_key_exists$word, $exceptions))
    return $exceptions$word];
  
  if (substr_compare$word, 'y', -1, 1)==0) {
    if (in_arraysubstr$word, -2, 1), array'a''e''i''o''u''y'))===false)
      return substr$word, 0, -1).'ies'
    else
      return $word's'
  }
  
  if (substr_compare$word, 'o', -1, 1)==0) {
    if (in_arraysubstr$word, -2, 1), array'a''e''i''o''u'))===false)
      return $word'es'
    else
      return $word's'
  }
  
  if (substr_compare$word, 's', -1, 1)==0)
    return $word'es'
  
  if (substr_compare$word, 'x', -1, 1)==0)
    return $word'es'
  
  if (substr_compare$word, 'z', -1, 1)==0)
    return $word'es'
  
  if (substr_compare$word, 'ch', -2, 2)==0)
    return $word'es'
  
  if (substr_compare$word, 'sh', -2, 2)==0)
    return $word'es'
  
  return $word's'
} 

function ordinal ($num
{
  // get the last two digits
  $last = $num % 100;
  // get last digit unless the number is in the teens
  $last = ($last < 20) ? $last : $num % 10; 
  $ord = ($last==1) ? 'st' : (($last==2) ? 'nd' : (($last==3) ? 'rd' : 'th'));
  return $num$ord
} 

function reverse_factorial ($factorial
{
  $current = 1;
  while ($factorial > $current) {
    if ($factorial % $current) return -1;
    $factorial = $factorial$current
    $current++;
  }
  if ($factorial == $current) return $current
  else return -1;
} 

function peasant_multiply ($a, $b
{
  $c = 0;
  
  while$a>0)
  {
    if(($a%10)%2 != 0)
      $c += $b
    $a = $a >> 1;
    $b = $b << 1;
  }
  
  return $c
} 

function radioactive_decay ($half_life, $time
{
  $lambda = log(2)/$half_life
  return 100 - 100 * powexp(1), -1 * $lambda * $time);
}