将二进制字符串转换为二进制或十进制值

是否有将二进制字符串转换为二进制或十进制值的功能？将二进制字符串转换为二进制或十进制值

如果我有一个二进制字符串000101，我应该怎么做才能将它转换成5？

2012-10-15 LifeWorks

你使用哪种语言？ –

哪种语言？这是一个非常基本的功能，你可以为它编写你自己的函数.. – Arpit

@ChandraSekharWalajapet - OP标记了问题[tag：r];所以我想这涉及到语言[R]（http://www.r-project.org/） – Marijn

这里是你可以尝试什么：

binStr <- "00000001001100110000010110110111" # 20121015 
(binNum <- 00000001001100110000010110110111) # 20121015 
[1] 1.0011e+24 
binVec <- c(1,0,1,0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1) # 2670721 
shortBin <- 10011010010 # 1234 
BinToDec <- function(x) 
    sum(2^(which(rev(unlist(strsplit(as.character(x), "")) == 1))-1)) 
BinToDec(binStr) 
[1] 20121015 
BinToDec(binNum) 
[1] 576528 
BinToDec(binVec) 
[1] 2670721 
BinToDec(shortBin) 
[1] 1234

也就是说，你可以输入两个字符串（因为as.character()）和数字的二进制值，但也有一些问题，大量像binNum。据我了解，你也想二进制字符串转换为数字二进制值，但遗憾的是，至少在基础R.没有这样的数据类型

编辑：现在BinToDec也接受二元载体，这可能是一个解决方案大数。从包功能digitsBase()sfsmisc返回这样的载体：

(vec <- digitsBase(5, base= 2, 10)) 
Class 'basedInt'(base = 2) [1:1] 
     [,1] 
[1,] 0 
[2,] 0 
[3,] 0 
[4,] 0 
[5,] 0 
[6,] 0 
[7,] 0 
[8,] 1 
[9,] 0 
[10,] 1 
BinToDec(vec) 
[1] 5

最后，另一个可能性是包compositions，例如：

(x <- unbinary("10101010")) 
[1] 170 
(y <- binary(x)) 
[1] "10101010"

来源

2012-10-15 09:20:09 Julius

谢谢，我认为这是比我写的更好的方法... – LifeWorks

此函数计算十进制版本与柔性基底。基本等于2是二进制的，等等。这应该工作，直到10。

base2decimal = function(base_number, base = 2) { 
    split_base = strsplit(as.character(base_number), split = "") 
    return(sapply(split_base, function(x) sum(as.numeric(x) * base^(rev(seq_along(x) - 1))))) 
} 
> base2decimal(c("000101", "00000001001100110000010110110111")) 
[1]  5 20121015

来源

2012-10-15 09:25:58

基地你可以使用packBits功能（在base包）。请记住，该功能需要非常具体的输入。

(yy <- intToBits(5)) 
# [1] 01 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
# [26] 00 00 00 00 00 00 00 
# Note that there are 32 bits and the order is reversed from your example 

class(yy) 
[1] "raw" 

packBits(yy, "integer") 
# [1] 5

也有strtoi功能（也在base包）：

strtoi("00000001001100110000010110110111", base = 2) 
# [1] 20121015 

strtoi("000101", base = 2) 
# [1] 5

来源

2012-10-15 09:59:21 BenBarnes

@LifeWorks，我忘记了'strtoi'函数;请参阅编辑。 – BenBarnes

在你有二进制字符串，所有以前的答案是伟大的情况。我经常发现自己处于想要编码二进制向量组合的情况。从0和1的一个整数的组合翻译的逻辑总是相同的：

bincount <- function(B, base=2) { return(B %*% base^seq(0,ncol(B)-1)) }

其中B是一个矩阵，每一列是二元载体。

例子：

isBig <- c(0, 1, 0, 1) 
isRed <- c(0, 0, 1, 1) 
B = cbind(isBig,isRed) 
bincount(B) 
# 0 1 2 3

来源

2014-12-18 15:21:57

base::strtoi(binary_string, base = 2)

来源

2016-06-19 01:43:51

将二进制字符串转换为二进制或十进制值

回答

相关问题