Mercurial > octave-nkf
diff scripts/elfun/sind.m @ 14220:5a13a75c2457
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 |
line wrap: on
line diff
--- a/scripts/elfun/sind.m Wed Jan 18 21:16:04 2012 -0800 +++ b/scripts/elfun/sind.m Wed Jan 18 21:17:14 2012 -0800 @@ -26,16 +26,21 @@ ## Author: David Bateman <dbateman@free.fr> function y = sind (x) + if (nargin != 1) print_usage (); endif + I = x / 180; y = sin (I .* pi); y(I == fix (I) & finite (I)) = 0; + endfunction -%!error(sind()) -%!error(sind(1,2)) -%!assert(sind(10:10:90),sin(pi*[10:10:90]/180),-10*eps) -%!assert(sind([0,180,360]) == 0) -%!assert(sind([90,270]) != 0) + +%!assert (sind (10:10:90), sin (pi*[10:10:90]/180), -10*eps) +%!assert (sind ([0, 180, 360]) == 0) +%!assert (sind ([90, 270]) != 0) + +%!error sind () +%!error sind (1, 2)