Mercurial > octave-dspies

view examples/@polynomial/display.m @ 18710:584b20e9112c gui-release

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use shortcut manager for the main help menu * main_window.cc (add_action): new parameter for the signal receiver; (construct_help_menu): use add_action for the actions of the menu; (construct_documentation_menu): use add_action for the actions of the menu; (set_global_shortcuts): set/unset shortcuts * main-window.h: actions are class variables, add_action with new parameter * shortcut-manager.cc (do_init_data): initialize the shortcuts in the help menu
author Torsten <ttl@justmail.de>
date Thu, 01 May 2014 12:12:08 +0200
parents 1b48b209a8d6
children
line wrap: on
line source

function display (p)
  a = p.poly;
  first = true;
  fprintf ("%s =", inputname (1));
  for i = 1 : length (a);
    if (a(i) != 0)
      if (first)
        first = false;
      elseif (a(i) > 0)
        fprintf (" +");
      endif
      if (a(i) < 0)
        fprintf (" -");
      endif
      if (i == 1)
        fprintf (" %g", abs (a(i)));
      elseif (abs(a(i)) != 1)
        fprintf (" %g *", abs (a(i)));
      endif
      if (i > 1)
        fprintf (" X");
      endif
      if (i > 2)
        fprintf (" ^ %d", i - 1);
      endif
    endif
  endfor
  if (first)
    fprintf (" 0");
  endif
  fprintf ("\n");
endfunction