Chaotic_code/bit2byte.m

   1 function y = bit2byte(x)\r
   2 % y = bit2byte(x)\r
   3 % Transform a number of bits into a number of bytes.\r
   4 \r
   5 x = double(x);\r
   6 \r
   7 x_n = numel(x);\r
   8 if rem(x_n,8)\r
   9     x = [x zeros(1,8-rem(x_n,8))];\r
  10 end\r
  11 y = zeros(1,ceil(x_n/8));\r
  12 y_index = 1;\r
  13 v = 2.^(0:7);\r
  14 for i=1:8:x_n\r
  15     y(y_index) = sum(x(i+7:-1:i).*v);\r
  16     y_index = y_index + 1;\r
  17 end\r
  18 y = uint8(y);\r