diff options
Diffstat (limited to 'src/algebra/float.spad.pamphlet')
| -rw-r--r-- | src/algebra/float.spad.pamphlet | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/algebra/float.spad.pamphlet b/src/algebra/float.spad.pamphlet index 4ca77fdd..52eba7cc 100644 --- a/src/algebra/float.spad.pamphlet +++ b/src/algebra/float.spad.pamphlet @@ -259,8 +259,7 @@ Float(): asin x == zero? x => 0 negative? x => -asin(-x) --- one? x => pi()/2 - (x = 1) => pi()/2 + one? x => pi()/2 x > 1 => error "asin: argument > 1 in magnitude" inc 5; r := atan(x/sqrt(sub(1,times(x,x)))); dec 5 normalize r @@ -268,8 +267,7 @@ Float(): acos x == zero? x => pi()/2 negative? x => (inc 3; r := pi()-acos(-x); dec 3; normalize r) --- one? x => 0 - (x = 1) => 0 + one? x => 0 x > 1 => error "acos: argument > 1 in magnitude" inc 5; r := atan(sqrt(sub(1,times(x,x)))/x); dec 5 normalize r |