function [r, e] = bits3(x)

  r = '0.';
  for i = 1:32
    if x >= 2 * 3^-i
      r = [r, '2'];
      x = x - 2 * 3^-i;
    elseif x >= 3^-i
      r = [r, '1'];
      x = x - 3^-i;
    else
      r = [r, '0'];
    end
  end
  e = x;

end
