Mercurial > hg > octave-lyh

comparison scripts/elfun/csc.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 ./ sin(x); 33 y = 1 ./ sin (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 %! x = [pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6]; 41 %! x = [pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6];
41 %! v = [2, rt2, 2*rt3/3, 1, 2*rt3/3, rt2, 2]; 42 %! v = [2, rt2, 2*rt3/3, 1, 2*rt3/3, rt2, 2];
42 %! assert(all (abs (csc (x) - v) < sqrt (eps))); 43 %! assert (all (abs (csc (x) - v) < sqrt (eps)));
43 44
44 %!error csc (); 45 %!error csc ()
46 %!error csc (1, 2)
45 47
46 %!error csc (1, 2);
47