home *** CD-ROM | disk | FTP | other *** search
-
- /* Asinh.c
-
- inverse hyperbolic sine
-
- Source to ASINH.BIN. Rebuild with Borland C++:
-
- bcc -c -mt! asinh
- tlink x02 asinh /t/x/c,asinh.bin,,fp ld
-
- If you are using a coprocessor, you can also build with:
-
- bcc -c -mt! asinh
- tlink x01 asinh f87 /t/x/c,asinh.bin,,fp ld
-
- With older versions of Borland C++ (Turbo C), compile with:
-
- tcc -c -mt asinh
-
- */
-
- #include "mathl.h"
-
- void pascal xmain(double far *x)
- {
- x[0] = logl(x[1] + sqrtl(x[1]*x[1] + 1));
- }
-