Mercurial > octave
diff scripts/elfun/lcm.m @ 2311:2b5788792cad
[project @ 1996-07-11 20:18:38 by jwe]
| author | jwe |
|---|---|
| date | Thu, 11 Jul 1996 20:18:38 +0000 |
| parents | 5cffc4b8de57 |
| children | 204cc7db6f4a |
line wrap: on
line diff
--- a/scripts/elfun/lcm.m Thu Jul 11 20:02:03 1996 +0000 +++ b/scripts/elfun/lcm.m Thu Jul 11 20:18:38 1996 +0000 @@ -17,15 +17,15 @@ ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA ### 02111-1307, USA. +## usage: lcm (a, ...) +## +## lcm (a) returns the least common multiple of the entries of the +## integer vector a. +## lcm (a1, ..., ak) is the same as lcm([a1, ..., ak]). + function l = lcm (a, ...) - ## usage: lcm (a, ...) - ## - ## lcm (a) returns the least common multiple of the entries of the - ## integer vector a. - ## lcm (a1, ..., ak) is the same as lcm([a1, ..., ak]). - - ## Written by KH (Kurt.Hornik@ci.tuwien.ac.at) on Sep 16, 1994. +## Written by KH (Kurt.Hornik@ci.tuwien.ac.at) on Sep 16, 1994. if (nargin > 1) va_start;