function s = color(x)
  if x<0
    s = sprintf('\\color{red}{%12.6f}', x);
  else
    s = sprintf('\\color{blue}{%12.6f}', x);
  endif
end