Changeset 10633 for trunk/source/level1
 Timestamp:
 Sep 8, 2008, 5:50:38 AM (12 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level1/l1numbers.lisp
r10426 r10633 748 748 result)) 749 749 750 #+windowstarget 751 (progn 752 (defun %doublefloatasinh! (n result) 753 (%setfdoublefloat 754 result 755 (log (+ n (sqrt (1+ (* n n))))))) 756 757 #+32bittarget 758 (defun %singlefloatasinh! (n result) 759 (%setfshortfloat 760 result 761 (log (+ n (sqrt (1+ (* n n))))))) 762 763 #+64bittarget 764 (defun %singlefloatasinh (n) 765 (log (+ n (sqrt (1+ (* n n))))))) 766 767 #windowstarget 768 (progn 750 769 (defun %doublefloatasinh! (n result) 751 770 (declare (doublefloat n result)) … … 770 789 (%sfcheckexception1 'asinh n (%ffiexceptionstatus)) 771 790 result)) 772 791 ) 792 793 #+windowstarget 794 (progn 795 (defun %doublefloatacosh! (n result) 796 (%setfdoublefloat 797 result 798 (* 2 (log (+ (sqrt (/ (+ n 1) 2)) (sqrt (/ ( n 1) 2))))))) 799 800 #+32bittarget 801 (defun %singlefloatacosh! (n result) 802 (%setfshortfloat 803 result 804 (* 2 (log (+ (sqrt (/ (+ n 1) 2)) (sqrt (/ ( n 1) 2))))))) 805 806 #+64bittarget 807 (defun %singlefloatacosh (n) 808 (* 2 (log (+ (sqrt (/ (+ n 1) 2)) (sqrt (/ ( n 1) 2)))))) 809 810 ) 811 812 #windowstarget 813 (progn 773 814 (defun %doublefloatacosh! (n result) 774 815 (declare (doublefloat n result)) … … 792 833 (%sfcheckexception1 'acosh n (%ffiexceptionstatus)) 793 834 result)) 794 835 ) 836 837 #+windowstarget 838 (progn 839 (defun %doublefloatatanh! (n result) 840 (%setfdoublefloat 841 result 842 (/ ( (log (1+ n)) 843 (log ( 1 n))) 844 2))) 845 846 #+32bittarget 847 (defun %singlefloatatanh! (n result) 848 (%setfshortfloat 849 result 850 (/ ( (log (1+ n)) 851 (log ( 1 n))) 852 2))) 853 854 #+64bittarget 855 (defun %singlefloatatanh (n) 856 (/ ( (log (1+ n)) 857 (log ( 1 n))) 858 2)) 859 860 ) 861 862 #windowstarget 863 (progn 795 864 (defun %doublefloatatanh! (n result) 796 865 (declare (doublefloat n result)) … … 814 883 (%sfcheckexception1 'atanh n (%ffiexceptionstatus)) 815 884 result)) 816 817 818 819 885 )
Note: See TracChangeset
for help on using the changeset viewer.