Mercurial > octave-nkf

comparison scripts/general/idivide.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 16f53d29049f
children a8ce6bdecce5
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
78 elseif (isfloat (y)) 78 elseif (isfloat (y))
79 typ = class (x); 79 typ = class (x);
80 else 80 else
81 typ = class (x); 81 typ = class (x);
82 if (!strcmp (class (x), class (y))) 82 if (!strcmp (class (x), class (y)))
83 error ("idivide: incompatible types"); 83 error ("idivide: incompatible types");
84 endif 84 endif
85 endif 85 endif
86 86
87 if (strcmp (op, "fix")) 87 if (strcmp (op, "fix"))
88 z = cast (fix (double (x) ./ double (y)), typ); 88 z = cast (fix (double (x) ./ double (y)), typ);