Mercurial > octave

comparison scripts/polynomial/polyreduce.m @ 1179:f070efd56c3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-03-23 21:45:33 by jwe]
author jwe
date Thu, 23 Mar 1995 21:45:33 +0000
parents bceff7ccdb79
children 611d403c7f3d
comparison
equal deleted inserted replaced
1178:bceff7ccdb79 1179:f070efd56c3d
30 30
31 index = find (p == 0); 31 index = find (p == 0);
32 32
33 if (length (index) != 0) 33 if (length (index) != 0)
34 34
35 index = find (index == 1:length(index)); 35 index = find (index == 1:length (index));
36 36
37 if (length (index) != 0) 37 if (length (index) != 0)
38 38
39 if (length (p) > 1) 39 if (length (p) > 1)
40 p = p (index (length (index))+1:length (p)); 40 p = p (index (length (index))+1:length (p));