Mercurial > hg > octave-nkf
annotate scripts/elfun/acoth.m @ 20818:9d2023d1a63c
binoinv.m: Implement binary search algorithm for 28X performance increase (bug #34363).
* binoinv.m: Call new functions scalar_binoinv or vector_binoinv to calculate
binoinv. If there are still uncalculated values then call bin_search_binoinv
to perform binary search for remaining values. Add more BIST tests.
* binoinv.m (scalar_binoinv): New subfunction to calculate binoinv for scalar x.
Stops when x > 1000.
* binoinv.m (vector_binoinv): New subfunction to calculate binoinv for scalar x.
Stops when x > 1000.
| author | Lachlan Andrew <lachlanbis@gmail.com> |
|---|---|
| date | Sun, 11 Oct 2015 19:49:40 -0700 |
| parents | 4197fc428c7d |
| children |
| rev | line source |
|---|---|
|
19898
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1 ## Copyright (C) 1994-2015 John W. Eaton |
| 2313 | 2 ## |
| 3 ## This file is part of Octave. | |
| 4 ## | |
| 5 ## Octave is free software; you can redistribute it and/or modify it | |
| 6 ## under the terms of the GNU General Public License as published by | |
| 7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
| 8 ## your option) any later version. | |
| 2313 | 9 ## |
| 10 ## Octave is distributed in the hope that it will be useful, but | |
| 11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 13 ## General Public License for more details. | |
| 14 ## | |
| 15 ## You should have received a copy of the GNU General Public License | |
| 7016 | 16 ## along with Octave; see the file COPYING. If not, see |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 2303 | 18 |
| 3428 | 19 ## -*- texinfo -*- |
| 5016 | 20 ## @deftypefn {Mapping Function} {} acoth (@var{x}) |
| 3428 | 21 ## Compute the inverse hyperbolic cotangent of each element of @var{x}. |
|
9155
ad20b967e1c9
Update section 17.3 (Trigonometry) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
22 ## @seealso{coth} |
| 3428 | 23 ## @end deftypefn |
| 713 | 24 |
| 2314 | 25 ## Author: jwe |
| 26 | |
|
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
9245
diff
changeset
|
27 function y = acoth (x) |
| 713 | 28 |
| 29 if (nargin != 1) | |
| 6046 | 30 print_usage (); |
| 713 | 31 endif |
| 32 | |
|
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
9245
diff
changeset
|
33 y = atanh (1 ./ x); |
| 713 | 34 |
| 2326 | 35 endfunction |
| 7385 | 36 |
|
14220
5a13a75c2457
Use Octave spacing conventions for scripts in elfun/ directory.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
37 |
| 7385 | 38 %!test |
| 39 %! rt2 = sqrt (2); | |
| 40 %! rt3 = sqrt (3); | |
| 41 %! v = -i*[pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6]; | |
| 42 %! x = i*[rt3, 1, rt3/3, -rt3/3, -1, -rt3]; | |
|
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14220
diff
changeset
|
43 %! assert (acoth (x), v, sqrt (eps)); |
| 7385 | 44 |
|
14220
5a13a75c2457
Use Octave spacing conventions for scripts in elfun/ directory.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
45 %!error acoth () |
|
5a13a75c2457
Use Octave spacing conventions for scripts in elfun/ directory.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
46 %!error acoth (1, 2) |
| 7385 | 47 |