Mercurial > octave-nkf
diff scripts/elfun/sec.m @ 7385:8b7b4f58199f
[project @ 2008-01-15 20:49:09 by jwe]
author | jwe |
---|---|
date | Tue, 15 Jan 2008 20:49:10 +0000 |
parents | a1dbe9d80eee |
children | eb63fbe60fab |
line wrap: on
line diff
--- a/scripts/elfun/sec.m Tue Jan 15 20:27:02 2008 +0000 +++ b/scripts/elfun/sec.m Tue Jan 15 20:49:10 2008 +0000 @@ -33,3 +33,15 @@ w = 1 ./ cos(z); endfunction + +%!test +%! rt2 = sqrt (2); +%! rt3 = sqrt (3); +%! x = [0, pi/6, pi/4, pi/3, 2*pi/3, 3*pi/4, 5*pi/6, pi]; +%! v = [1, 2*rt3/3, rt2, 2, -2, -rt2, -2*rt3/3, -1]; +%! assert(all (abs (sec (x) - v) < sqrt (eps))); + +%!error sec (); + +%!error sec (1, 2); +