| 1 | 1 | 1 | 0 | 0 | 1 |
Con lo que la transformacion de binario a codigo de Gray sera 100101.
conversionBinarioGray[a_] := {a1 := IntegerDigits[a,2,7];
l1 := Length[a1]; b2 = a1; a4 = a1[[1]];
Do[b2[[i]] = BitXor[a1[[i]], a4]; a4 = a1[[i]], {i, 2, l1}];
Print[b2]}
conversionBinarioGray[2^^111001]
2011-07-31