Changeset 15553 for trunk/source/level0/l0float.lisp
 Timestamp:
 Dec 29, 2012, 11:23:41 PM (8 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level0/l0float.lisp
r15407 r15553 888 888 (let ((sqrt1x (sqrt ( 1 x))) 889 889 (sqrt1+x (sqrt (+ 1 x)))) 890 (complex (atan ( / (realpart x)891 (realpart (* sqrt1x sqrt1+x))))890 (complex (atan (realpart x) 891 (realpart (* sqrt1x sqrt1+x))) 892 892 (asinh (imagpart (* (conjugate sqrt1x) 893 893 sqrt1+x)))))) … … 930 930 ) 931 931 932 933 934 932 (defun acos (x) 935 933 "Return the arc cosine of NUMBER." 936 934 (numbercase x 937 935 (complex 938 (let ((sqrt1+x (sqrt (+ 1 x))) 939 (sqrt1x (sqrt ( 1 x)))) 940 (complex (* 2 (atan (/ (realpart sqrt1x) 941 (realpart sqrt1+x)))) 942 (asinh (imagpart (* (conjugate sqrt1+x) 943 sqrt1x)))))) 944 936 (if (typep (realpart x) 'doublefloat) 937 ( doublefloathalfpi (asin x)) 938 ( singlefloathalfpi (asin x)))) 945 939 (doublefloat 946 940 (locally (declare (type doublefloat x))
Note: See TracChangeset
for help on using the changeset viewer.