Mercurial > hg > octave-lyh

comparison scripts/elfun/csch.m @ 14220:5a13a75c2457

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use Octave spacing conventions for scripts in elfun/ directory. * acosd.m, acot.m, acotd.m, acoth.m, acsc.m, acscd.m, acsch.m, asec.m, asecd.m, asech.m, asind.m, atand.m, cosd.m, cot.m, cotd.m, coth.m, csc.m, cscd.m, csch.m, sec.m, secd.m, sech.m, sind.m, tand.m: Use Octave spacing conventions.
author Rik <octave@nomad.inbox5.com>
date Wed, 18 Jan 2012 21:17:14 -0800
parents 72c96de7a403
children f3d52523cde1
comparison
equal deleted inserted replaced
14219:addec4a8a787 14220:5a13a75c2457
28 28
29 if (nargin != 1) 29 if (nargin != 1)
30 print_usage (); 30 print_usage ();
31 endif 31 endif
32 32
33 y = 1 ./ sinh(x); 33 y = 1 ./ sinh (x);
34 34
35 endfunction 35 endfunction
36
36 37
37 %!test 38 %!test
38 %! x = [pi/2*i, 3*pi/2*i]; 39 %! x = [pi/2*i, 3*pi/2*i];
39 %! v = [-i, i]; 40 %! v = [-i, i];
40 %! assert(all (abs (csch (x) - v) < sqrt (eps))); 41 %! assert (all (abs (csch (x) - v) < sqrt (eps)));
41 42
42 %!error csch (); 43 %!error csch ()
44 %!error csch (1, 2)
43 45
44 %!error csch (1, 2);
45