pd.if.org Git - pdclib/blob - functions/math/sqrt.c

   1 // ----------------------------------------------------------------------------
   2 // $Id$
   3 // ----------------------------------------------------------------------------
   4 // Public Domain C Library - http://pdclib.sourceforge.net
   5 // This code is Public Domain. Use, modify, and redistribute at will.
   6 // ----------------------------------------------------------------------------
   7
   8 // ----------------------------------------------------------------------------
   9 // C++
  10
  11 float sqrt( float x ) { /* TODO */ };
  12 long double sqrt( long double x ) { /* TODO */ };
  13
  14 // ----------------------------------------------------------------------------
  15 // Standard C
  16
  17 double sqrt( double x ) { /* TODO */ };
  18
  19 /* Therx code
  20 {
  21     double i = x / 2;
  22     if ( x < 0 )
  23     {
  24         return 0;
  25     }
  26     // (15 DP) HOW GET MORE?
  27     while ( ( fabs( i - ( x / i ) ) / i ) > 0.000000000000001)
  28     {
  29         i = ( i + ( x / i ) ) / 2;
  30     }
  31     return i;
  32 }
  33 */
  34
  35 float sqrtf( float x ) { /* TODO */ };
  36 long double sqrtl( long double x ) { /* TODO */ };