Mercurial > hg > octave-lyh

comparison examples/polynomial/display.m @ 8223:0c91b9a17dcf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Commit missing files from previous change
author David Bateman <dbateman@free.fr>
date Thu, 16 Oct 2008 09:20:58 +0100
parents
children
comparison
equal deleted inserted replaced
8222:11badf6c9e9f 8223:0c91b9a17dcf
1 function display (p)
2 a = p.poly;
3 first = true;
4 fprintf("%s =", inputname(1));
5 for i = 1 : length (a);
6 if (a(i) != 0)
7 if (first)
8 first = false;
9 elseif (a(i) > 0)
10 fprintf (" +");
11 endif
12 if (a(i) < 0)
13 fprintf (" -");
14 endif
15 if (i == 1)
16 fprintf (" %g", abs (a(i)));
17 elseif (abs(a(i)) != 1)
18 fprintf (" %g *", abs (a(i)));
19 endif
20 if (i > 1)
21 fprintf (" X");
22 endif
23 if (i > 2)
24 fprintf (" ^ %d", i - 1);
25 endif
26 endif
27 endfor
28 if (first)
29 fprintf(" 0");
30 endif
31 fprintf("\n");
32 endfunction
33