From 2eef476c721ed93b1acaaf1a77e20b5b7c73ed4f Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 6 Feb 2011 04:58:02 +0000 Subject: cleanup special hyperbolic builtins --- src/algebra/strap/DFLOAT.lsp | 84 ++++++++++++++++++++++++++++---------------- 1 file changed, 54 insertions(+), 30 deletions(-) (limited to 'src/algebra/strap/DFLOAT.lsp') diff --git a/src/algebra/strap/DFLOAT.lsp b/src/algebra/strap/DFLOAT.lsp index 21ed3bb1..3b21f1ba 100644 --- a/src/algebra/strap/DFLOAT.lsp +++ b/src/algebra/strap/DFLOAT.lsp @@ -209,13 +209,9 @@ (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;sec;2$;44|)) -(PUT '|DFLOAT;sec;2$;44| '|SPADreplace| '|%fsec|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;csc;2$;45|)) -(PUT '|DFLOAT;csc;2$;45| '|SPADreplace| '|%fcsc|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;asin;2$;46|)) @@ -234,8 +230,6 @@ (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;acsc;2$;49|)) -(PUT '|DFLOAT;acsc;2$;49| '|SPADreplace| '|%facsc|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;acot;2$;50|)) @@ -244,8 +238,6 @@ (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;asec;2$;51|)) -(PUT '|DFLOAT;asec;2$;51| '|SPADreplace| '|%fasec|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;sinh;2$;52|)) @@ -264,18 +256,12 @@ (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;csch;2$;55|)) -(PUT '|DFLOAT;csch;2$;55| '|SPADreplace| '|%fcsch|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;coth;2$;56|)) -(PUT '|DFLOAT;coth;2$;56| '|SPADreplace| '|%fcoth|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;sech;2$;57|)) -(PUT '|DFLOAT;sech;2$;57| '|SPADreplace| '|%fsech|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;asinh;2$;58|)) @@ -294,18 +280,12 @@ (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;acsch;2$;61|)) -(PUT '|DFLOAT;acsch;2$;61| '|SPADreplace| '|%facsch|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;acoth;2$;62|)) -(PUT '|DFLOAT;acoth;2$;62| '|SPADreplace| '|%facoth|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;asech;2$;63|)) -(PUT '|DFLOAT;asech;2$;63| '|SPADreplace| '|%fasech|) - (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%DoubleFloat| |%Shell|) |%DoubleFloat|) |DFLOAT;/;3$;64|)) @@ -403,6 +383,36 @@ (PUT '|DFLOAT;exp1;$;15| '|SPADreplace| '(XLAM NIL (|%fdiv| (|%i2f| 534625820200) (|%i2f| 196677847971)))) +(PUT '|DFLOAT;sec;2$;44| '|SPADreplace| + '(XLAM (|x|) (|%fdiv| (|%i2f| 1) (|%fcos| |x|)))) + +(PUT '|DFLOAT;csc;2$;45| '|SPADreplace| + '(XLAM (|x|) (|%fdiv| (|%i2f| 1) (|%fsin| |x|)))) + +(PUT '|DFLOAT;acsc;2$;49| '|SPADreplace| + '(XLAM (|x|) (|%fasin| (|%fdiv| (|%i2f| 1) |x|)))) + +(PUT '|DFLOAT;asec;2$;51| '|SPADreplace| + '(XLAM (|x|) (|%facos| (|%fdiv| (|%i2f| 1) |x|)))) + +(PUT '|DFLOAT;csch;2$;55| '|SPADreplace| + '(XLAM (|x|) (|%fdiv| (|%i2f| 1) (|%fsinh| |x|)))) + +(PUT '|DFLOAT;coth;2$;56| '|SPADreplace| + '(XLAM (|x|) (|%fdiv| (|%i2f| 1) (|%ftanh| |x|)))) + +(PUT '|DFLOAT;sech;2$;57| '|SPADreplace| + '(XLAM (|x|) (|%fdiv| (|%i2f| 1) (|%fcosh| |x|)))) + +(PUT '|DFLOAT;acsch;2$;61| '|SPADreplace| + '(XLAM (|x|) (|%fasinh| (|%fdiv| (|%i2f| 1) |x|)))) + +(PUT '|DFLOAT;acoth;2$;62| '|SPADreplace| + '(XLAM (|x|) (|%fatanh| (|%fdiv| (|%i2f| 1) |x|)))) + +(PUT '|DFLOAT;asech;2$;63| '|SPADreplace| + '(XLAM (|x|) (|%facosh| (|%fdiv| (|%i2f| 1) |x|)))) + (PUT '|DFLOAT;negative?;$B;65| '|SPADreplace| '(XLAM (|x|) (|%flt| |x| (|%i2f| 0)))) @@ -569,9 +579,13 @@ (DEFUN |DFLOAT;cot;2$;43| (|x| $) (DECLARE (IGNORE $)) (COT |x|)) -(DEFUN |DFLOAT;sec;2$;44| (|x| $) (DECLARE (IGNORE $)) (SEC |x|)) +(DEFUN |DFLOAT;sec;2$;44| (|x| $) + (DECLARE (IGNORE $)) + (/ 1.0 (COS |x|))) -(DEFUN |DFLOAT;csc;2$;45| (|x| $) (DECLARE (IGNORE $)) (CSC |x|)) +(DEFUN |DFLOAT;csc;2$;45| (|x| $) + (DECLARE (IGNORE $)) + (/ 1.0 (SIN |x|))) (DEFUN |DFLOAT;asin;2$;46| (|x| $) (DECLARE (IGNORE $)) @@ -585,13 +599,13 @@ (DEFUN |DFLOAT;acsc;2$;49| (|x| $) (DECLARE (IGNORE $)) - (C-TO-R (ACSC |x|))) + (C-TO-R (ASIN (/ 1.0 |x|)))) (DEFUN |DFLOAT;acot;2$;50| (|x| $) (DECLARE (IGNORE $)) (ACOT |x|)) (DEFUN |DFLOAT;asec;2$;51| (|x| $) (DECLARE (IGNORE $)) - (C-TO-R (ASEC |x|))) + (C-TO-R (ACOS (/ 1.0 |x|)))) (DEFUN |DFLOAT;sinh;2$;52| (|x| $) (DECLARE (IGNORE $)) (SINH |x|)) @@ -599,11 +613,17 @@ (DEFUN |DFLOAT;tanh;2$;54| (|x| $) (DECLARE (IGNORE $)) (TANH |x|)) -(DEFUN |DFLOAT;csch;2$;55| (|x| $) (DECLARE (IGNORE $)) (CSCH |x|)) +(DEFUN |DFLOAT;csch;2$;55| (|x| $) + (DECLARE (IGNORE $)) + (/ 1.0 (SINH |x|))) -(DEFUN |DFLOAT;coth;2$;56| (|x| $) (DECLARE (IGNORE $)) (COTH |x|)) +(DEFUN |DFLOAT;coth;2$;56| (|x| $) + (DECLARE (IGNORE $)) + (/ 1.0 (TANH |x|))) -(DEFUN |DFLOAT;sech;2$;57| (|x| $) (DECLARE (IGNORE $)) (SECH |x|)) +(DEFUN |DFLOAT;sech;2$;57| (|x| $) + (DECLARE (IGNORE $)) + (/ 1.0 (COSH |x|))) (DEFUN |DFLOAT;asinh;2$;58| (|x| $) (DECLARE (IGNORE $)) (ASINH |x|)) @@ -615,13 +635,17 @@ (DECLARE (IGNORE $)) (C-TO-R (ATANH |x|))) -(DEFUN |DFLOAT;acsch;2$;61| (|x| $) (DECLARE (IGNORE $)) (ACSCH |x|)) +(DEFUN |DFLOAT;acsch;2$;61| (|x| $) + (DECLARE (IGNORE $)) + (ASINH (/ 1.0 |x|))) (DEFUN |DFLOAT;acoth;2$;62| (|x| $) (DECLARE (IGNORE $)) - (C-TO-R (ACOTH |x|))) + (C-TO-R (ATANH (/ 1.0 |x|)))) -(DEFUN |DFLOAT;asech;2$;63| (|x| $) (DECLARE (IGNORE $)) (ASECH |x|)) +(DEFUN |DFLOAT;asech;2$;63| (|x| $) + (DECLARE (IGNORE $)) + (C-TO-R (ACOSH (/ 1.0 |x|)))) (DEFUN |DFLOAT;/;3$;64| (|x| |y| $) (DECLARE (IGNORE $)) (/ |x| |y|)) -- cgit v1.2.3