Mercurial > octave-nkf

comparison scripts/elfun/acsc.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
32 32
33 y = asin (1 ./ x); 33 y = asin (1 ./ x);
34 34
35 endfunction 35 endfunction
36 36
37
37 %!test 38 %!test
38 %! rt2 = sqrt (2); 39 %! rt2 = sqrt (2);
39 %! rt3 = sqrt (3); 40 %! rt3 = sqrt (3);
40 %! v = [pi/6, pi/4, pi/3, pi/2, pi/3, pi/4, pi/6]; 41 %! v = [pi/6, pi/4, pi/3, pi/2, pi/3, pi/4, pi/6];
41 %! x = [2, rt2, 2*rt3/3, 1, 2*rt3/3, rt2, 2]; 42 %! x = [2, rt2, 2*rt3/3, 1, 2*rt3/3, rt2, 2];
42 %! assert(all (abs (acsc (x) - v) < sqrt (eps))); 43 %! assert (all (abs (acsc (x) - v) < sqrt (eps)));
43 44
44 %!error acsc (); 45 %!error acsc ()
46 %!error acsc (1, 2)
45 47
46 %!error acsc (1, 2);
47