Mercurial > hg > octave-nkf

comparison scripts/elfun/acoth.m @ 7385:8b7b4f58199f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-15 20:49:09 by jwe]
author jwe
date Tue, 15 Jan 2008 20:49:10 +0000
parents a1dbe9d80eee
children eb63fbe60fab
comparison
equal deleted inserted replaced
7384:47c919254791 7385:8b7b4f58199f
31 endif 31 endif
32 32
33 w = atanh (1 ./ z); 33 w = atanh (1 ./ z);
34 34
35 endfunction 35 endfunction
36
37 %!test
38 %! rt2 = sqrt (2);
39 %! rt3 = sqrt (3);
40 %! v = -i*[pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6];
41 %! x = i*[rt3, 1, rt3/3, -rt3/3, -1, -rt3];
42 %! assert(all (abs (acoth (x) - v) < sqrt (eps)));
43
44 %!error acoth ();
45
46 %!error acoth (1, 2);
47