Mercurial > octave-nkf

comparison examples/@polynomial/display.m @ 9284:567e3e4ab74d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix up examples/@polynomial
author Robert T. Short <octave@phaselockedsystems.com>
date Sun, 31 May 2009 21:11:31 -0700
parents dba0037e6602
children 1b48b209a8d6
comparison
equal deleted inserted replaced
9283:38ad8c99d6a2 9284:567e3e4ab74d
3 first = true; 3 first = true;
4 fprintf("%s =", inputname(1)); 4 fprintf("%s =", inputname(1));
5 for i = 1 : length (a); 5 for i = 1 : length (a);
6 if (a(i) != 0) 6 if (a(i) != 0)
7 if (first) 7 if (first)
8 first = false; 8 first = false;
9 elseif (a(i) > 0) 9 elseif (a(i) > 0)
10 fprintf (" +"); 10 fprintf (" +");
11 endif 11 endif
12 if (a(i) < 0) 12 if (a(i) < 0)
13 fprintf (" -"); 13 fprintf (" -");
14 endif 14 endif
15 if (i == 1) 15 if (i == 1)
16 fprintf (" %g", abs (a(i))); 16 fprintf (" %g", abs (a(i)));
17 elseif (abs(a(i)) != 1) 17 elseif (abs(a(i)) != 1)
18 fprintf (" %g *", abs (a(i))); 18 fprintf (" %g *", abs (a(i)));
19 endif 19 endif
20 if (i > 1) 20 if (i > 1)
21 fprintf (" X"); 21 fprintf (" X");
22 endif 22 endif
23 if (i > 2) 23 if (i > 2)
24 fprintf (" ^ %d", i - 1); 24 fprintf (" ^ %d", i - 1);
25 endif 25 endif
26 endif 26 endif
27 endfor 27 endfor
28 if (first) 28 if (first)
29 fprintf(" 0"); 29 fprintf(" 0");
30 endif 30 endif
31 fprintf("\n"); 31 fprintf("\n");
32 endfunction 32 endfunction
33